Make recentf dired-aware

1 files changed, 30 insertions, 1 deletions

@@ -450,8 +450,37 @@
   (: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)