various little things

1 files changed, 16 insertions, 14 deletions

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")
+