diff options
Diffstat (limited to 'emacs/.emacs.d/lisp/my/belf.el')
| -rw-r--r-- | emacs/.emacs.d/lisp/my/belf.el | 8 |
1 files changed, 4 insertions, 4 deletions
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))) |