emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Prevent pdf page being persisted too many times

Browse source
This commit is contained in:
Henrik Lissner 2020-05-14 00:07:26 -04:00
parent 558ea08411
commit 92174200aa
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

14
modules/tools/pdf/config.el
View file

@ -26,16 +26,18 @@
pdf-view-use-imagemagick nil) pdf-view-use-imagemagick nil)
;; Persist current page for PDF files viewed in Emacs ;; Persist current page for PDF files viewed in Emacs
(defvar +pdf--page-restored-p nil)
(add-hook! 'pdf-view-change-page-hook (add-hook! 'pdf-view-change-page-hook
(defun +pdf-remember-page-number-h () (defun +pdf-remember-page-number-h ()
(when buffer-file-name (when-let (page (and buffer-file-name (pdf-view-current-page)))
(doom-store-put buffer-file-name (pdf-view-current-page) nil "pdf-view")))) (doom-store-put buffer-file-name page nil "pdf-view"))))
(add-hook! 'pdf-view-mode-hook (add-hook! 'pdf-view-mode-hook
(defun +pdf-restore-page-number-h () (defun +pdf-restore-page-number-h ()
(when-let (page (doom-store-get buffer-file-name "pdf-view")) (when-let (page (and buffer-file-name (doom-store-get buffer-file-name "pdf-view")))
(or (and (< page 1) (and (not +pdf--page-restored-p)
(> page (pdf-cache-number-of-pages))) (<= page (or (pdf-cache-number-of-pages) 1))
(pdf-view-goto-page page))))) (pdf-view-goto-page page)
(setq-local +pdf--page-restored-p t)))))
;; Add retina support for MacOS users ;; Add retina support for MacOS users
(when IS-MAC (when IS-MAC