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

tools/pdf: minor refactor & reformat

Browse source
This commit is contained in:
Henrik Lissner 2019-12-17 18:10:16 -05:00
parent e56cc98ae9
commit 9664f68c5f
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 19 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -3,9 +3,7 @@
(use-package! pdf-tools (use-package! pdf-tools
:mode ("\\.[pP][dD][fF]\\'" . pdf-view-mode) :mode ("\\.[pP][dD][fF]\\'" . pdf-view-mode)
:magic ("%PDF" . pdf-view-mode) :magic ("%PDF" . pdf-view-mode)
:config :init
(map! :map pdf-view-mode-map :gn "q" #'kill-current-buffer)
(after! pdf-annot (after! pdf-annot
(defun +pdf-cleanup-windows-h () (defun +pdf-cleanup-windows-h ()
"Kill left-over annotation buffers when the document is killed." "Kill left-over annotation buffers when the document is killed."
@ -19,6 +17,9 @@
(add-hook! 'pdf-view-mode-hook (add-hook! 'pdf-view-mode-hook
(add-hook 'kill-buffer-hook #'+pdf-cleanup-windows-h nil t))) (add-hook 'kill-buffer-hook #'+pdf-cleanup-windows-h nil t)))
:config
(map! :map pdf-view-mode-map :gn "q" #'kill-current-buffer)
(setq-default pdf-view-display-size 'fit-page (setq-default pdf-view-display-size 'fit-page
pdf-view-use-scaling t pdf-view-use-scaling t
pdf-view-use-imagemagick nil) pdf-view-use-imagemagick nil)
@ -41,11 +42,16 @@
;; Turn off cua so copy works ;; Turn off cua so copy works
(add-hook! 'pdf-view-mode-hook (cua-mode 0)) (add-hook! 'pdf-view-mode-hook (cua-mode 0))
;; Handle PDF-tools related popups better ;; Handle PDF-tools related popups better
(set-popup-rule! "^\\*Outline*" :side 'right :size 40 :select nil) (set-popup-rules!
(set-popup-rule! "\\(?:^\\*Contents\\|'s annots\\*$\\)" :ignore t) '(("^\\*Outline*" :side 'right :size 40 :select nil)
("\\(?:^\\*Contents\\|'s annots\\*$\\)" :ignore t)))
;; The mode-line does serve any useful purpose is annotation windows
(add-hook 'pdf-annot-list-mode-hook #'hide-mode-line-mode) (add-hook 'pdf-annot-list-mode-hook #'hide-mode-line-mode)
;; Fix #1107: flickering pdfs when evil-mode is enabled
;; HACK Fix #1107: flickering pdfs when evil-mode is enabled
(setq-hook! 'pdf-view-mode-hook evil-normal-state-cursor (list nil)) (setq-hook! 'pdf-view-mode-hook evil-normal-state-cursor (list nil))
;; Install epdfinfo binary if needed, blocking until it is finished ;; Install epdfinfo binary if needed, blocking until it is finished
@ -55,8 +61,9 @@
(message "Building epdfinfo, this will take a moment...") (message "Building epdfinfo, this will take a moment...")
;; HACK We reset all `pdf-view-mode' buffers to fundamental mode so that ;; HACK We reset all `pdf-view-mode' buffers to fundamental mode so that
;; `pdf-tools-install' has a chance to reinitialize them as ;; `pdf-tools-install' has a chance to reinitialize them as
;; `pdf-view-mode' buffers. This is necessary because `pdf-tools-install' ;; `pdf-view-mode' buffers. This is necessary because
;; won't do this to buffers that are already in pdf-view-mode. ;; `pdf-tools-install' won't do this to buffers that are already in
;; pdf-view-mode.
(dolist (buffer (doom-buffers-in-mode 'pdf-view-mode)) (dolist (buffer (doom-buffers-in-mode 'pdf-view-mode))
(with-current-buffer buffer (fundamental-mode))) (with-current-buffer buffer (fundamental-mode)))
(while compilation-in-progress (while compilation-in-progress