diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2017-02-18 18:58:03 -0500 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2017-02-18 18:58:03 -0500 |
| commit | 20b21ee15c5f2745328e8d1c825aeaccf14c1fad (patch) | |
| tree | 1c7fec32fef6098c0a881ce8a7e07470680029c7 /lisp | |
| parent | 0fb37a03805e85556fe9c777c417de42ab8eddbc (diff) | |
| download | emacs.d-20b21ee15c5f2745328e8d1c825aeaccf14c1fad.tar.gz | |
Use function list for mupdf compile refresh
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/km-compile.el | 39 |
1 files changed, 28 insertions, 11 deletions
diff --git a/lisp/km-compile.el b/lisp/km-compile.el index f04c660..3cd5a4f 100644 --- a/lisp/km-compile.el +++ b/lisp/km-compile.el @@ -97,23 +97,40 @@ Otherwise, if ARG is non-nil, prompt with buffers from (defun km/compilation-buffer-list () (-filter #'km/compilation-buffer-p (buffer-list))) -(defvar km/compile-pdf-re - (rx string-start - (zero-or-one "snake") "make" - (zero-or-more not-newline) space - (group (one-or-more (not space)) ".pdf") - (zero-or-more space) - string-end)) +(defun km/compile-make-pdf-target (command) + (and (string-match (rx string-start + (zero-or-one "snake") "make" + (zero-or-more not-newline) space + (group (one-or-more (not space)) ".pdf") + (zero-or-more space) + string-end) + command) + (match-string 1 command))) + +(defun km/compile-latexmk-pdf-target (command) + (and (string-match (rx string-start + "latexmk" + (zero-or-more not-newline) space + (group (one-or-more (not space))) + (zero-or-one ".tex") + (zero-or-more space) + string-end) + command) + (concat (match-string 1 command) ".pdf"))) + +(defvar km/compile-pdf-functions '(km/compile-make-pdf-target + km/compile-latexmk-pdf-target)) (defun km/compile-check-pdf (buf exit) (when (equal exit "finished\n") (with-current-buffer buf - (let ((cmd (car compilation-arguments))) - (when (string-match km/compile-pdf-re cmd) + (let* ((cmd (car compilation-arguments)) + (pdf-file (run-hook-with-args-until-success + 'km/compile-pdf-functions cmd))) + (when pdf-file (call-process "xdotool" nil nil nil "search" "--all" "--class" "--name" - (concat "^mupdf|" (file-name-nondirectory - (match-string 1 cmd))) + (concat "^mupdf|" (file-name-nondirectory pdf-file)) "key" "--window" "%@" "r")))))) (add-to-list 'compilation-finish-functions #'km/compile-check-pdf) |