Merge branch 'main' of https://tildegit.org/acdw/emacs

1 files changed, 59 insertions, 24 deletions

@@ -66,7 +66,7 @@
 ;; Flash the mode line
 (defun flash-mode-line ()
   "Flash the modeline as a bell."
-  (when (eq acdw/system :home)
+  (when (acdw/system :home)
     (beep))
   (invert-face 'mode-line)
   (run-with-timer 0.1 nil #'invert-face 'mode-line))
@@ -103,7 +103,7 @@
                   'browse-url-default-browser)
                 browse-url-new-window-flag t
                 browse-url-firefox-new-window-is-tab t)
-  (when (eq acdw/system :work)
+  (when (acdw/system :work)
     (add-to-list 'exec-path "C:/Program Files/Mozilla Firefox")))
 
 (setup buffers
@@ -162,14 +162,14 @@
   
   (:global "C-x C-j" dired-jump)
 
-  (pcase acdw/system
-    (:work (:straight w32-browser)
-           (autoload 'dired-w32-browser "w32-browser")
-           (:bind "RET" dired-w32-browser))
-    (:home (:straight dired-open)
-           (require 'dired-open)
-           (:bind "RET" dired-find-alternate-file)
-           (:option (prepend dired-open-functions) #'dired-open-xdg)))
+  (acdw/system
+   (:work (:straight w32-browser)
+          (autoload 'dired-w32-browser "w32-browser")
+          (:bind "RET" dired-w32-browser))
+   (:home (:straight dired-open)
+          (require 'dired-open)
+          (:bind "RET" dired-find-alternate-file)
+          (:option (prepend dired-open-functions) #'dired-open-xdg)))
   
   (:when-loaded
    (:straight dired-subtree)
@@ -251,11 +251,11 @@
   (set-terminal-coding-system 'utf-8-unix)
   (set-keyboard-coding-system 'utf-8-unix)
 
-  (pcase acdw/system
-    (:work (set-clipboard-coding-system 'utf-16-le)
-           (set-selection-coding-system 'utf-16-le))
-    (_ (set-selection-coding-system 'utf-8)
-       (set-clipboard-coding-system 'utf-8))))
+  (acdw/system
+   (:work (set-clipboard-coding-system 'utf-16-le)
+          (set-selection-coding-system 'utf-16-le))
+   (_ (set-selection-coding-system 'utf-8)
+      (set-clipboard-coding-system 'utf-8))))
 
 (setup eshell
   (:option eshell-directory-name (acdw/dir "eshell/" t)
@@ -450,26 +450,58 @@
   (:option recentf-save-file (acdw/dir "recentf.el")
            recentf-max-menu-items 100
            recentf-max-saved-items nil
-           recentf-auto-cleanup 60
+           recentf-auto-cleanup 'mode
            (append recentf-exclude) (acdw/dir))
+
+  ;; Magic advice to rename entries in recentf when moving files in
+  ;; dired.
+  (defun rjs/recentf-rename-notify (oldname newname &rest args)
+    (if (file-directory-p newname)
+        (rjs/recentf-rename-directory oldname newname)
+      (rjs/recentf-rename-file oldname newname)))
+
+  (defun rjs/recentf-rename-file (oldname newname)
+    (setq recentf-list
+          (mapcar (lambda (name)
+                    (if (string-equal name oldname)
+                        newname
+                      oldname))
+                  recentf-list)))
+
+  (defun rjs/recentf-rename-directory (oldname newname)
+    ;; oldname, newname and all entries of recentf-list should already
+    ;; be absolute and normalised so I think this can just test whether
+    ;; oldname is a prefix of the element.
+    (setq recentf-list
+          (mapcar (lambda (name)
+                    (if (string-prefix-p oldname name)
+                        (concat newname (substring name (length oldname)))
+                      name))
+                  recentf-list)))
+
+  (advice-add 'dired-rename-file :after #'rjs/recentf-rename-notify)
+  
   (recentf-mode +1))
 
 (setup (:require savehist)
   (:option history-length t
            history-delete-duplicates t
-           savehist-autosave-interval 6
+           savehist-autosave-interval 60
            savehist-file (acdw/dir "savehist.el"))
 
-  (dolist (var '(kill-ring
+  (dolist (var '(extended-command-history
+                 global-mark-ring
+                 kill-ring
+                 regexp-search-ring
                  search-ring
-                 regexp-search-ring))
+                 mark-ring))
     (:option (append savehist-additional-variables) var))
   
   (savehist-mode +1))
 
 (setup saveplace
   (:option save-place-file (acdw/dir "places.el")
-           save-place-forget-unreadable-files (eq acdw/system :home))
+           save-place-forget-unreadable-files (acdw/system :home))
   
   (save-place-mode +1))
 
@@ -595,7 +627,9 @@
            find-function-C-source-directory (acdw/find-emacs-source))
 
   (:global "M-=" count-words
-           "C-w" kill-region-or-backward-word)
+           "C-w" kill-region-or-backward-word
+           "<help> h" nil ; HELLO takes a long time to load on Windows
+           )
 
   ;; Remap C-h to DEL -- <f1> can be the "help" key
   (define-key key-translation-map [?\C-h] [?\C-?])
@@ -617,7 +651,8 @@
 
   ;; Use a dumb formatter on modes that `apheleia' doesn't work for.
   (hook-defun dumb-auto-format before-save-hook
-    (setq stupid-modes '(makefile-mode))    
+    (setq stupid-modes '(makefile-mode
+                         org-mode))    
     ;; If there's no apheleia formatter for the mode, just indent the buffer.
     (unless (or (apply #'derived-mode-p stupid-modes)
                 (and (fboundp 'apheleia--get-formatter-command)
@@ -985,7 +1020,7 @@ if ripgrep is installed, otherwise `consult-grep'."
   (:option undo-fu-session-incompatible-files '("/COMMIT_EDITMSG\\'"
                                                 "/git-rebase-todo\\'")
            undo-fu-session-directory (acdw/dir "undo/" t)
-           undo-fu-session-compression (eq acdw/system :home))
+           undo-fu-session-compression (acdw/system :home))
   
   (global-undo-fu-session-mode +1))
 
@@ -1059,7 +1094,7 @@ call `zzz-to-char'."
 ;;; System-dependent
 
 ;;;; Home
-(when (eq acdw/system :home)
+(when (acdw/system :home)
 
   (setup (:straight pkgbuild-mode))