Massive update!

[dotemacs] / text-edit / my-recentf.el

diff --git a/text-edit/my-recentf.el b/text-edit/my-recentf.el
new file mode 100644 (file)
index 0000000..d04b5df
--- /dev/null
+++ b/text-edit/my-recentf.el
@@ -0,0 +1,16 @@
+;;; -*- lexical-binding: t -*-
+
+;; Auto-cleanup and auto-save with no (message)
+
+(defvar my/recentf-list-prev nil)
+
+(defun my/recentf-periodic ()
+  (when (not (equal recentf-list my/recentf-list-prev))
+    (let ((inhibit-message t)) (recentf-cleanup))
+    (let ((inhibit-message t)) (recentf-save-list))
+    (setq my/recentf-list-prev recentf-list)))
+
+(defun my/recentf-auto-cleanup-and-save ()
+  (run-with-idle-timer 30 t #'my/recentf-periodic))
+
+(provide 'my-recentf)