From a747aa540809b018f5e87a812a4d88b0b2e2da8f Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Sun, 2 Feb 2025 15:46:32 +1100 Subject: [emacs] Fix nov margin/fringe widths And do not show temp files in belf --- emacs/.emacs.d/lisp/my/belf.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'emacs/.emacs.d/lisp/my/belf.el') diff --git a/emacs/.emacs.d/lisp/my/belf.el b/emacs/.emacs.d/lisp/my/belf.el index d9392c9..84cf184 100644 --- a/emacs/.emacs.d/lisp/my/belf.el +++ b/emacs/.emacs.d/lisp/my/belf.el @@ -51,12 +51,12 @@ (let ((buf (get-buffer-create "*Bookshelf*"))) (with-current-buffer buf (belf-mode) - (belf-list-refresh-contents) - (tabulated-list-print)) + (belf-list-refresh-contents)) (pop-to-buffer-same-window buf))) (defun belf-list-refresh-contents (&rest _) - (setq-local tabulated-list-entries (belf-parse-all-file-names))) + (setq-local tabulated-list-entries (belf-parse-all-file-names)) + (tabulated-list-print)) (defvar belf-dir "~/Documents" "Directory of books.") @@ -68,7 +68,7 @@ (when-let ((parsed (belf-parse-file-name f))) (let-alist parsed (list f (vector .authors .title .year))))) - (directory-files belf-dir t)))) + (directory-files belf-dir t "[^#]$")))) (defun belf-parse-file-name (file-name) (let ((base (file-name-base file-name))) -- cgit v1.2.3