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

tools/pdf: add saveplace-pdf-view package

Browse source
This commit is contained in:
Henrik Lissner 2020-11-27 15:52:31 -05:00
parent 6774c0d26e
commit 0f3226558f
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 6 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -36,20 +36,6 @@
;; HACK Fix #1107: flickering pdfs when evil-mode is enabled
(setq-hook! 'pdf-view-mode-hook evil-normal-state-cursor (list nil))
;; Persist current page for PDFs opened in Emacs
(defvar +pdf--page-restored-p nil)
(add-hook! 'pdf-view-change-page-hook
(defun +pdf-remember-page-number-h ()
(when-let (page (and buffer-file-name (pdf-view-current-page)))
(doom-store-put buffer-file-name page nil "pdf-view"))))
(add-hook! 'pdf-view-mode-hook
(defun +pdf-restore-page-number-h ()
(when-let (page (and buffer-file-name (doom-store-get buffer-file-name "pdf-view")))
(and (not +pdf--page-restored-p)
(<= page (or (pdf-cache-number-of-pages) 1))
(pdf-view-goto-page page)
(setq-local +pdf--page-restored-p t)))))
;; Install epdfinfo binary if needed, blocking until it is finished
(when doom-interactive-p
(require 'pdf-tools)
@ -113,3 +99,7 @@
:width (car (pdf-view-image-size))
props))
(apply orig-fn args)))))
(use-package! saveplace-pdf-view
:after pdf-view)