Changes for Emacs 30

mouse-prefer-closest-glyph enabled
ielm history set up, old kludge commented ou for now - may be made conditional
at some point.
binding added for replace-regexp-as-diff

diff --git a/README.org b/README.org
index b8910b7a8be6b3a501f885e535c28d0adff291c9..f2038b18e659464428d2fb1befe8758bc1b50449 100644 (file)
--- a/README.org
+++ b/README.org
@@ -9,7 +9,7 @@ Many þoughtlines taken from:
 - [[https://github.com/sachac/.emacs.d][github.com/sachac/.emacs.d]]
 
 ** A note on draft checkiŋ
-I keep my emacs installs on þe latest draft, so I don't worry about looking at drafts in my bespokeniŋ unless I happen to updraft on linux/BSD before þe windows forebindings are shared.  Þat beiŋ said, I am now on draft 29.3.
+I keep my emacs installs on þe latest draft, so I don't worry about looking at drafts in my bespokeniŋ unless I happen to updraft on linux/BSD before þe windows forebindings are shared.  Þat beiŋ said, I am now on draft 30.1
 
 * Overbespokeniŋ
 I have chaŋed þe overbespokeniŋ.  I no loŋer taŋle from an ~.org~ writ, instead choosiŋ to split my bespokeniŋ into a set of writs.

diff --git a/init.el b/init.el
index 07cccdc4cc4ca5773b3c1f471b02b724e4db74d4..e7ea4ce51ef4add1c3aa278044d1386c8f5d5303 100644 (file)
--- a/init.el
+++ b/init.el
@@ -23,6 +23,7 @@
            (require 're-math-defuns)
            (require 're-electronics-defuns)
            (require 're-plc-defuns)
+           (require 're-unit-conversions)
            (require 're-refrigeration-defuns)
            (require 're-skeletons)
            (require 're-org)
@@ -34,7 +35,8 @@
 (setq-default indicate-empty-lines t
              fill-column 80
              cursor-type 'bar
-             cursor-in-non-selected-windows 'hollow)
+             cursor-in-non-selected-windows 'hollow
+             mouse-prefer-closest-glyph t)
 
 (blink-cursor-mode -1)
 (column-number-mode t)
@@ -159,6 +161,9 @@
 
 (add-hook 'org-mode-hook #'abbrev-mode)
 
+;; IELM
+(setq ielm-history-file-name (expand-file-name "ielm/history" user-emacs-directory))
+
 ;; Bespoken framework
 (setq custom-file (expand-file-name "custom.el" user-emacs-directory))
 

diff --git a/re/re-bindings.el b/re/re-bindings.el
index 27909fef6afc8cb6ac9424736e9a1c7b6f2c28af..10c4bb3d2055b0a65b910f5c7618daa456f357bb 100644 (file)
--- a/re/re-bindings.el
+++ b/re/re-bindings.el
@@ -41,6 +41,7 @@
 (keymap-global-set "C-%" #'replace-string)
 (keymap-global-set "C-s" #'re/isearch-forward-use-region)
 (keymap-global-set "C-r" #'re/isearch-backward-use-region)
+(keymap-global-set "C-M-S-R" #'replace-regexp-as-diff)
 (keymap-global-set "C-S-S" #'isearch-forward-regexp)
 (keymap-global-set "C-S-R" #'isearch-backward-regexp)
 

diff --git a/re/re-repl-defuns.el b/re/re-repl-defuns.el
index a3bdfdc35b8d6ae6d87056dd583d56e843a1610a..2a2eb637d207f4a5902fe32ecb92858ecf917556 100644 (file)
--- a/re/re-repl-defuns.el
+++ b/re/re-repl-defuns.el
@@ -29,9 +29,9 @@
 Either delete or add as many ')' as needed."
   (let ((distance (re/sexp-unbalanced-count)))
     (cond ((re/sexp-need-paren-p)
-           (insert-char 41 distance))
-          ((re/sexp-drop-paren-p)
-           (backward-delete-char distance)))))
+          (insert-char 41 distance))
+         ((re/sexp-drop-paren-p)
+          (backward-delete-char distance)))))
 
 (defmacro re/balance-and-eval-sexp (executor)
   "Balance the sexp before point, then call `executor'.
@@ -50,20 +50,20 @@ Stolen from https://depp.brause.cc/dotemacs"
     (delete-char arg)))
 
 ;; IELM
-(defun re/ielm-init-history ()
-  "Stolen from https://n16f.net/blog/making-ielm-more-comfortable."
-  (let ((path (expand-file-name "ielm/history" user-emacs-directory)))
-    (make-directory (file-name-directory path) t)
-    (setq-local comint-input-ring-file-name path))
-  (setq-local comint-input-ring-size 10000 comint-input-ignoredups t)
-  (comint-read-input-ring))
+;; (defun re/ielm-init-history ()
+;;   "Stolen from https://n16f.net/blog/making-ielm-more-comfortable."
+;;   (let ((path (expand-file-name "ielm/history" user-emacs-directory)))
+;;     (make-directory (file-name-directory path) t)
+;;     (setq-local comint-input-ring-file-name path))
+;;   (setq-local comint-input-ring-size 10000 comint-input-ignoredups t)
+;;   (comint-read-input-ring))
 
-(defun re/ielm-write-history (&rest _args)
-  "Stolen from https://n16f.net/blog/making-ielm-more-comfortable."
-  (with-file-modes 384 (comint-write-input-ring)))
+;; (defun re/ielm-write-history (&rest _args)
+;;   "Stolen from https://n16f.net/blog/making-ielm-more-comfortable."
+;;   (with-file-modes 384 (comint-write-input-ring)))
 
-(add-hook 'ielm-mode-hook #'re/ielm-init-history)
-(advice-add 'ielm-send-input :after #'re/ielm-write-history)
+;; (add-hook 'ielm-mode-hook #'re/ielm-init-history)
+;; (advice-add 'ielm-send-input :after #'re/ielm-write-history)
 
 (provide 're-repl-defuns)
 ;;; re-repl-defuns.el ends here