code.delx.au - dotemacs/blob - text-edit/my-recentf.el

   1 ;;; -*- lexical-binding: t -*-
   2
   3 ;; Auto-cleanup and auto-save with no (message)
   4
   5 (defvar my/recentf-list-prev nil)
   6
   7 (defun my/recentf-periodic ()
   8   (when (not (equal recentf-list my/recentf-list-prev))
   9     (let ((inhibit-message t)) (recentf-cleanup))
  10     (let ((inhibit-message t)) (recentf-save-list))
  11     (setq my/recentf-list-prev recentf-list)))
  12
  13 (defun my/recentf-auto-cleanup-and-save ()
  14   (run-with-idle-timer 30 t #'my/recentf-periodic))
  15
  16 (provide 'my-recentf)