ad6a3d0f33
featurep! will be renamed modulep! in the future, so it's been deprecated. They have identical interfaces, and can be replaced without issue. featurep! was never quite the right name for this macro. It implied that it had some connection to featurep, which it doesn't (only that it was similar in purpose; still, Doom modules are not features). To undo such implications and be consistent with its namespace (and since we're heading into a storm of breaking changes with the v3 release anyway), now was the best opportunity to begin the transition.
67 lines
2.8 KiB
EmacsLisp
67 lines
2.8 KiB
EmacsLisp
;;; lang/latex/+viewers.el -*- lexical-binding: t; -*-
|
|
|
|
;; Fall back PDF previewing to `latex-preview-pane-mode'.
|
|
(add-to-list 'TeX-view-program-selection '(output-pdf "preview-pane") 'append)
|
|
(add-to-list 'TeX-view-program-list '("preview-pane" latex-preview-pane-mode))
|
|
|
|
(dolist (viewer (reverse +latex-viewers))
|
|
(pcase viewer
|
|
(`skim
|
|
(when-let
|
|
(app-path
|
|
(and IS-MAC
|
|
(file-exists-p! (or "/Applications/Skim.app"
|
|
"~/Applications/Skim.app"))))
|
|
(add-to-list 'TeX-view-program-selection '(output-pdf "Skim"))
|
|
(add-to-list 'TeX-view-program-list
|
|
(list "Skim" (format "%s/Contents/SharedSupport/displayline -r -b %%n %%o %%b"
|
|
app-path)))))
|
|
|
|
(`sumatrapdf
|
|
(when (and IS-WINDOWS
|
|
(executable-find "SumatraPDF"))
|
|
(add-to-list 'TeX-view-program-selection '(output-pdf "SumatraPDF"))))
|
|
|
|
(`okular
|
|
(when (executable-find "okular")
|
|
;; Configure Okular as viewer. Including a bug fix
|
|
;; (https://bugs.kde.org/show_bug.cgi?id=373855).
|
|
(add-to-list 'TeX-view-program-list '("Okular" ("okular --noraise --unique file:%o" (mode-io-correlate "#src:%n%a"))))
|
|
(add-to-list 'TeX-view-program-selection '(output-pdf "Okular"))))
|
|
|
|
(`zathura
|
|
(when (executable-find "zathura")
|
|
(add-to-list 'TeX-view-program-selection '(output-pdf "Zathura"))))
|
|
|
|
(`evince
|
|
(when (executable-find "evince")
|
|
(add-to-list 'TeX-view-program-selection '(output-pdf "Evince"))))
|
|
|
|
(`pdf-tools
|
|
(when (modulep! :tools pdf)
|
|
(add-to-list 'TeX-view-program-selection '(output-pdf "PDF Tools"))
|
|
(when IS-MAC
|
|
;; PDF Tools isn't in `TeX-view-program-list-builtin' on macs.
|
|
(add-to-list 'TeX-view-program-list '("PDF Tools" TeX-pdf-tools-sync-view)))
|
|
;; Update PDF buffers after successful LaTeX runs.
|
|
(add-hook 'TeX-after-compilation-finished-functions #'TeX-revert-document-buffer)))))
|
|
|
|
|
|
(after! latex-preview-pane
|
|
(setq latex-preview-pane-multifile-mode 'auctex)
|
|
|
|
;; TODO: PR this to maintained fork by arifer48. The original project appears abandoned.
|
|
(defadvice! +latex--dont-reopen-preview-pane-a (fn &rest args)
|
|
"Once the preview pane has been closed it should not be reopened."
|
|
:around #'latex-preview-pane-update
|
|
(letf! (defun init-latex-preview-pane (&rest _)
|
|
;; HACK Avoid the function because it tries to delete the current
|
|
;; window, but it's already gone, so it ends up deleting the
|
|
;; wrong window.
|
|
(setq-local latex-preview-pane-mode nil))
|
|
(apply fn args)))
|
|
|
|
(define-key! doc-view-mode-map
|
|
"ESC" #'delete-window
|
|
"q" #'delete-window
|
|
"k" (cmd! (quit-window) (delete-window))))
|