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

tools/pdf: refactor retina support advice #1667

Browse source
This commit is contained in:
Henrik Lissner 2019-09-19 18:39:09 -04:00
parent ac276bcd3c
commit a0826447f5
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 36 additions and 106 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -21,11 +21,22 @@
pdf-view-use-scaling t
pdf-view-use-imagemagick nil)
(advice-add 'pdf-annot-show-annotation :override #'*pdf-pdf-annot-show-annotation)
(advice-add 'pdf-isearch-hl-matches :override #'*pdf-pdf-isearch-hl-matches)
(advice-add 'pdf-util-frame-scale-factor :override #'*pdf-pdf-util-frame-scale-factor)
(advice-add 'pdf-view-display-region :override #'*pdf-pdf-view-display-region)
(advice-add 'pdf-view-use-scaling-p :override #'*pdf-pdf-view-use-scaling-p)
;; Add retina support for MacOS users
(when IS-MAC
(advice-add #'pdf-util-frame-scale-factor :around #'+pdf--util-frame-scale-factor-a)
(advice-add #'pdf-view-use-scaling-p :before-until #'+pdf--view-use-scaling-p-a)
(defadvice! +pdf--supply-width-to-create-image-calls-a (orig-fn &rest args)
:around '(pdf-annot-show-annotation
pdf-isearch-hl-matches
pdf-view-display-region)
(cl-letf* ((old-create-image (symbol-function #'create-image))
((symbol-function #'create-image)
(lambda (file-or-data &optional type data-p &rest props)
(apply old-create-image file-or-data type data-p
:width (car (pdf-view-image-size))
props))))
(apply orig-fn args))))
;; Turn off cua so copy works
(add-hook! 'pdf-view-mode-hook (cua-mode 0))
;; Handle PDF-tools related popups better