doomemacs/modules/tools/pdf/config.el

;;; tools/pdf/config.el -*- lexical-binding: t; -*-

(use-package! pdf-tools
  :mode ("\\.pdf\\'" . pdf-view-mode)
  :config
  (unless noninteractive
    (pdf-tools-install))

  (map! :map pdf-view-mode-map :gn "q" #'kill-current-buffer)

  (defun +pdf-cleanup-windows-h ()
    "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-h 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))
  ;; Handle PDF-tools related popups better
  (set-popup-rule! "^\\*Outline*" :side 'right :size 40 :select nil)
  ;; The next rules are not needed, they are defined in modules/ui/popups/+hacks.el
  ;; (set-popup-rule! "\\*Contents\\*" :side 'right :size 40)
  ;; (set-popup-rule! "* annots\\*$" :side 'left :size 40 :select nil)
  ;; Fix #1107: flickering pdfs when evil-mode is enabled
  (setq-hook! 'pdf-view-mode-hook evil-normal-state-cursor (list nil)))
add pdf-tools settings 2018-02-06 01:07:36 +01:00			`;;; tools/pdf/config.el -- lexical-binding: t; --`

:boom: Rename def-package! -> use-package! Calling this pivotal macro "def-package!" has frequently been a source of confusion. It is a thin wrapper around use-package, and it should be obvious that it is so. For this reason, and to match the naming convention used with other convenience macros/wrappers, it is now use-package!. Also changes def-package-hook! -> use-package-hook! The old macros are now marked obsolete and will be removed when straight integration is merged. 2019-07-23 12:44:03 +02:00			`(use-package! pdf-tools`
Major refactor & optimization of how modules load their packages Now that we are loading package autoloads files (as part of the generated doom-package-autoload-file when running make autoloads), many :commands properties are redundant. In fact, many def-package! blocks are redundant. In some cases, we can do without a config.el file entirely, and can move into the autoloads file or rely entirely on package autoloads. Also, many settings have been moved in their module's autoloads files, which makes them available ASAP; their use no longer depends on module load order. This gained me a modest ~10% boost in startup speed. 2018-05-25 00:46:11 +02:00			`:mode ("\\.pdf\\'" . pdf-view-mode)`
add pdf-tools settings 2018-02-06 01:07:36 +01:00			`:config`
tools/pdf: fix epdfinfo prompt at compile time; autoload pdf-tools 2018-02-18 20:10:41 -05:00			`(unless noninteractive`
			`(pdf-tools-install))`
tools/pdf: conform to code conventions; no-byte-compile packages.el 2018-02-10 00:32:00 -05:00
Replace kill-this-buffer with kill-current-buffer As per the documentation for kill-this-buffer, it should only be invoked from the menu and behaves unpredictably when invoked programmatically. 2019-05-30 18:54:58 -07:00			`(map! :map pdf-view-mode-map :gn "q" #'kill-current-buffer)`
tools/pdf: close annotation lists when killing pdf 2018-06-15 03:32:46 +02:00
tools/pdf: conform to new conventions 2019-07-23 00:00:08 +02:00			`(defun +pdf-cleanup-windows-h ()`
tools/pdf: close annotation lists when killing pdf 2018-06-15 03:32:46 +02:00			`"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`
tools/pdf: conform to new conventions 2019-07-23 00:00:08 +02:00			`(add-hook 'kill-buffer-hook #'+pdf-cleanup-windows-h nil t))`
tools/pdf: close annotation lists when killing pdf 2018-06-15 03:32:46 +02:00
add pdf-tools settings 2018-02-06 01:07:36 +01:00			`(setq-default pdf-view-display-size 'fit-page)`
Uncluttered custom modeline to show page numbers Add rules to handle windows that should not be considered as popups. 2018-04-12 16:03:48 +02:00			`;; Turn off cua so copy works`
			`(add-hook! 'pdf-view-mode-hook (cua-mode 0))`
			`;; Handle PDF-tools related popups better`
:boom: Change set-popup-rule! usage Now accepts a flat plist of all its former parameters, including new :parameters and :actions properties to increase your control over the fate of your windows. The old usage of set-popup-rule! is deprecated and may not work right! The :ui popup module has also seen a major refactor to improve efficiency and load times. Sorry! This is the last "big" change before 2.1! 2018-06-18 02:26:05 +02:00			`(set-popup-rule! "^\\Outline" :side 'right :size 40 :select nil)`
pdf-tools: fixes for the new `modeline` module Sneak in a comment that addresses some TODOs. 2019-01-02 15:16:05 +01:00			`;; The next rules are not needed, they are defined in modules/ui/popups/+hacks.el`
:boom: Change set-popup-rule! usage Now accepts a flat plist of all its former parameters, including new :parameters and :actions properties to increase your control over the fate of your windows. The old usage of set-popup-rule! is deprecated and may not work right! The :ui popup module has also seen a major refactor to improve efficiency and load times. Sorry! This is the last "big" change before 2.1! 2018-06-18 02:26:05 +02:00			`;; (set-popup-rule! "\\Contents\\" :side 'right :size 40)`
			`;; (set-popup-rule! "* annots\\*$" :side 'left :size 40 :select nil)`
Fix flickering PDFs in pdf-view-mode #1107 2019-01-22 19:28:10 -05:00			`;; Fix #1107: flickering pdfs when evil-mode is enabled`
			`(setq-hook! 'pdf-view-mode-hook evil-normal-state-cursor (list nil)))`