+;;; -*- lexical-binding: t -*-
+
(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)
(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/advice/silent-write-region (original-function &rest args)
+(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/advice/silent-message (original-function &rest args)
- (apply #'format args))
-
(recentf-mode 1)