Massive update!

[dotemacs] / lisp / my-recentf.el

diff --git a/lisp/my-recentf.el b/lisp/my-recentf.el
deleted file mode 100644 (file)
index 71a6c46..0000000
--- a/lisp/my-recentf.el
+++ /dev/null
@@ -1,42 +0,0 @@
-;;; -*- lexical-binding: t -*-
-
-(require 'recentf)
-
-(setq recentf-exclude (list
-                       "/emacs\\.d/recentf$"
-                       "/\\.git/"
-                       #'my/filename-not-truename-p))
-
-(setq recentf-max-saved-items 1000)
-
-(run-with-idle-timer 30 t #'my/recentf-periodic)
-
-(defvar my/recentf-list-prev nil)
-
-(defun my/recentf-periodic ()
-  (my/with-silence #'recentf-cleanup)
-  (unless (equal recentf-list my/recentf-list-prev)
-    (my/with-silence #'recentf-save-list)
-    (setq my/recentf-list-prev recentf-list)))
-
-(defun my/with-silence (function)
-  (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/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/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/filename-not-truename-p (filename)
-  (not (equal (file-truename filename) filename)))
-
-(recentf-mode 1)