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

tools/pdf: close annotation lists when killing pdf

Browse source
This commit is contained in:
Henrik Lissner 2018-06-15 03:32:46 +02:00
parent eaca8c58fa
commit 0ef522bbf2
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 16 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -10,6 +10,22 @@
"q" #'kill-this-buffer
(kbd doom-leader-key) nil)
(when (featurep! :feature evil +everywhere)
(evil-define-key* 'normal pdf-view-mode-map
"q" #'kill-this-buffer))
(defun +pdf|cleanup-windows ()
"Kill left-over annotation buffers when the document is killed."
(when (buffer-live-p pdf-annot-list-document-buffer)
(pdf-info-close pdf-annot-list-document-buffer))
(when (buffer-live-p pdf-annot-list-buffer)
(kill-buffer pdf-annot-list-buffer))
(let ((contents-buffer (get-buffer "*Contents*")))
(when (and contents-buffer (buffer-live-p contents-buffer))
(kill-buffer contents-buffer))))
(add-hook! 'pdf-view-mode-hook
(add-hook 'kill-buffer-hook #'+pdf|cleanup-windows nil t))
(setq-default pdf-view-display-size 'fit-page)
;; Turn off cua so copy works
(add-hook! 'pdf-view-mode-hook (cua-mode 0))