diff options
Diffstat (limited to 'emacs/.emacs.d/lisp/my/belf.el')
| -rw-r--r-- | emacs/.emacs.d/lisp/my/belf.el | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/emacs/.emacs.d/lisp/my/belf.el b/emacs/.emacs.d/lisp/my/belf.el index 7eecf87..8a4a9f0 100644 --- a/emacs/.emacs.d/lisp/my/belf.el +++ b/emacs/.emacs.d/lisp/my/belf.el @@ -452,9 +452,11 @@ Compare without leading \"The \"." (interactive) (find-file-other-window (tabulated-list-get-id))) +;;; belf-recent + (defvar belf-recent-file (locate-user-emacs-file "belf-list")) -(defun belf-add-to-recent (file) +(defun belf-recent-add (file) "Add FILE to `belf-recent-file'. Can be used as a `find-file-hook'." @@ -473,9 +475,9 @@ Can be used as a `find-file-hook'." (write-file belf-recent-file) ))) -(defun belf-add-current-to-recent () +(defun belf-recent-add-current () (when buffer-file-name - (belf-add-to-recent buffer-file-name))) + (belf-recent-add buffer-file-name))) (define-derived-mode belf-recent-mode belf-mode "Bookshelf Recent" "Major mode for browsing a list of books." @@ -490,10 +492,10 @@ Can be used as a `find-file-hook'." (pop-to-buffer-same-window buf))) (defun belf-recent-list-refresh-contents (&rest _) - (setq-local tabulated-list-entries (belf-parse-recent-file-names)) + (setq-local tabulated-list-entries (belf-recent-parse-file-names)) (tabulated-list-print)) -(defun belf-parse-recent-file-names () +(defun belf-recent-parse-file-names () (with-temp-buffer (when (file-exists-p belf-recent-file) (insert-file-contents belf-recent-file)) |