various little things

4 files changed, 27 insertions, 18 deletions

diff --git a/code.el b/code.el
index 7afb676..18415e9 100644
--- a/code.el
+++ b/code.el
@@ -1,3 +1,4 @@
+
 (use-package scad-mode
   :defer t)
 
@@ -9,3 +10,10 @@
 
 (use-package magit
   :bind (("C-x g" . magit-status)))
+
+
+(use-package cc-mode
+  :defer t
+  :config
+  (setopt c-default-style "linux"))
+
diff --git a/early-init.el b/early-init.el
index 35f3ace..5c31b90 100644
--- a/early-init.el
+++ b/early-init.el
@@ -3,7 +3,5 @@
 (setq native-comp-async-report-warnings-errors 'silent)
 
 (setq frame-resize-pixelwise t)
-(tool-bar-mode -1)
-(setq default-frame-alist '((vertical-scroll-bars . nil)
-			    (horizontal-scroll-bars . nil)
+(setq default-frame-alist '((horizontal-scroll-bars . nil)
 			    (font . "monospace-12")))
diff --git a/init.el b/init.el
index 8810d45..9703b6f 100644
--- a/init.el
+++ b/init.el
@@ -2,7 +2,12 @@
   (load-file (expand-file-name filename user-emacs-directory)))
 (my/load-config-file "straight-bootstrap.el")
 
-(straight-use-package 'org)		; org complains about this for some reason
+(defun my/copy-char ()
+  (interactive)
+  "Puts a unicode character into the clipboard."
+  (kill-new
+   (make-string 1
+		(read-char-by-name "Copy character (Unicode or hex):"))))
 
 (setopt inhibit-splash-screen t)
 (setopt make-backup-files nil)
@@ -19,8 +24,6 @@
 (setopt sentence-end-double-space nil)
 (cua-mode 1)
 
-(menu-bar-mode -1)
-
 (setopt enable-recursive-minibuffers t)
 (setopt completion-cycle-threshold 1)
 (setopt completions-detailed t)
@@ -56,12 +59,11 @@
 (add-to-list 'tab-bar-format 'tab-bar-format-align-right 'append)
 (add-to-list 'tab-bar-format 'tab-bar-format-global 'append)
 
-(setopt straight-use-package-by-default t)
+(setopt ring-bell-function 'ignore)
 
-(setq modus-themes-italic-constructs t
-      modus-themes-bold-constructs t)
+(setopt straight-use-package-by-default t)
 
-(load-theme 'modus-operandi-tinted)
+(use-package diminish)
 
 (use-package gcmh
   :diminish gcmh-mode
@@ -69,13 +71,14 @@
   (gcmh-mode 1))
 
 (use-package emacs
-  :init
-  (fset #'fundamental-mode #'text-mode)
   :hook
   ((prog-mode . electric-pair-mode))
   :bind
-  (("C-c c c" . calc)
-   ("C-c c f" . full-calc)))
+  (("C-x C-c" . nil)
+   ("C-x R" . restart-emacs)
+   ("C-c c c" . calc)
+   ("C-c c f" . full-calc)
+   ("C-x 8 S-<return>" . my/copy-char)))
 
 (use-package consult
   :bind
@@ -113,9 +116,8 @@
   :custom
   (custom-file (no-littering-expand-etc-file-name "custom.el")))
 
-(use-package secrets)
-
-(use-package diminish)
+(straight-use-package 'org)		; org complains about this for some reason
 
 (my/load-config-file "writing.el")
 (my/load-config-file "code.el")
+
diff --git a/writing.el b/writing.el
index f622989..944f2e0 100644
--- a/writing.el
+++ b/writing.el
@@ -7,6 +7,7 @@
    (org-mode . turn-on-org-cdlatex))
   :config
   (setq org-export-with-smart-quotes t
+	org-export-with-latex nil
 	org-html-validation-link nil))
 
 (use-package org-roam
@@ -29,7 +30,7 @@
   (:host github :repo "org-roam/org-roam-ui" :branch "main" :files ("*.el" "out"))
   :after org-roam
   :bind
-  (("C-c r o" . org-roam-ui))
+  (("C-c r o" . org-roam-ui-mode))
   :config
   (setq org-roam-ui-sync-theme t
         org-roam-ui-follow t