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 ++++---- emacs/.emacs.d/lisp/my/my-nov.el | 12 ++++++++++-- 2 files changed, 14 insertions(+), 6 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))) diff --git a/emacs/.emacs.d/lisp/my/my-nov.el b/emacs/.emacs.d/lisp/my/my-nov.el index 1bc8eca..816afc6 100644 --- a/emacs/.emacs.d/lisp/my/my-nov.el +++ b/emacs/.emacs.d/lisp/my/my-nov.el @@ -65,8 +65,16 @@ chapter title." nov-file-name dest staging))) (defun my-nov-set-margins () - (set-window-margins nil 3 2) - (set-window-fringes nil 0 0)) + ;; Does not work as well as setq left- and right-margin-width + ;; (set-window-margins nil 3 2) + (setq left-margin-width 3) + (setq right-margin-width 2) + ;; Does not work as well as setq left- and right-fringe-width + ;; (set-window-fringes nil 0 0) + (setq left-fringe-width 0) + (setq right-fringe-width 0) + (visual-line-mode) + ) (provide 'my-nov) ;;; my-nov.el ends here -- cgit v1.2.3