From 4df0aba0364f6a234870f0bf5e086b98609689a8 Mon Sep 17 00:00:00 2001 From: bd Date: Wed, 23 Oct 2024 21:55:54 -0400 Subject: find-file opens pdfs/epub in zathura --- .config/emacs/modules/bd--files.el | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) (limited to '.config/emacs/modules/bd--files.el') diff --git a/.config/emacs/modules/bd--files.el b/.config/emacs/modules/bd--files.el index 01f9f49..4765510 100644 --- a/.config/emacs/modules/bd--files.el +++ b/.config/emacs/modules/bd--files.el @@ -24,6 +24,21 @@ (,(regexp-opt '(".pdf")) "pdftotext -nopgbrk -enc UTF-8 -eol unix -layout") (,(regexp-opt '(".html")) "icecat &"))) +;; pdf +(defun bd/zathura (file &rest args) + "Launch zathura ignoring args." + (interactive) + (ignore args) + (start-process "zathura" nil "zathura" file)) + +(defun bd/pdf-find-file-wrapper (f &rest args) + "Wrapper around F (find-file), passing ARGS." + (if (string-match "\\(?:epub\\|pdf\\)" (or (file-name-extension (car args)) "")) + (progn + (bd/zathura (car args)) + (recentf-add-file (car args))) + (apply f args))) +(advice-add 'find-file :around #'bd/pdf-find-file-wrapper) ;;;; transmission (use-package transmission @@ -31,5 +46,6 @@ (:map transmission-mode-map ("R" . #'transmission-move))) + (provide 'bd--files) ;;; bd-files ends here -- cgit v1.2.3