X-Git-Url: https://code.delx.au/dotemacs/blobdiff_plain/5c421a7c44357af95dcd1b51c52b1899ec363be5..1e6aea58aa155b613de2008b1489bedc49ab9231:/text-edit/my-recentf.el

diff --git a/text-edit/my-recentf.el b/text-edit/my-recentf.el
new file mode 100644
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)