update packages

[dotemacs] / lisp / my-recentf.el

diff --git a/lisp/my-recentf.el b/lisp/my-recentf.el
index 5d41f17b2a3d49f791369267a3e18fa6d0cb1ab9..a96f6300ffd1a63f400e2cfb65fb618ecb18921a 100644 (file)
--- a/lisp/my-recentf.el
+++ b/lisp/my-recentf.el
@@ -2,8 +2,12 @@
 
 (require 'recentf)
 
-(setq recentf-exclude '("recentf"))
+(setq recentf-exclude (list
+                       "/\\.emacs\\.d/recentf$"
+                       "/\\.git/"))
+
 (setq recentf-max-saved-items 1000)
+
 (run-with-idle-timer 30 t #'my/recentf-periodic)
 
 (defvar my/recentf-list-prev nil)
@@ -15,19 +19,20 @@
     (setq my/recentf-list-prev recentf-list)))
 
 (defun my/with-silence (function)
-  (advice-add 'message :around #'my/advice/silent-message)
-  (advice-add 'write-region :around #'my/advice/silent-write-region)
+  (advice-add 'message :around #'my/with-silence/advice-message)
+  (advice-add 'write-region :around #'my/with-silence/advice-write-region)
   (unwind-protect
       (funcall function)
-    (advice-remove 'message #'my/advice/silent-message)
-    (advice-remove 'write-region #'my/advice/silent-write-region)))
+    (advice-remove 'message #'my/with-silence/advice-message)
+    (advice-remove 'write-region #'my/with-silence/advice-write-region)))
+
+(defun my/with-silence/advice-message (original-function &rest args)
+  (ignore original-function)
+  (apply #'format args))
 
-(defun my/advice/silent-write-region (original-function &rest args)
+(defun my/with-silence/advice-write-region (original-function &rest args)
   (setf (nth 4 args) 'nomsg)
   (apply original-function args)
   (set-buffer-modified-p nil))
 
-(defun my/advice/silent-message (original-function &rest args)
-  (apply #'format args))
-
 (recentf-mode 1)