summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/km-compile.el21
1 files changed, 21 insertions, 0 deletions
diff --git a/lisp/km-compile.el b/lisp/km-compile.el
index 4812afd..2e179ca 100644
--- a/lisp/km-compile.el
+++ b/lisp/km-compile.el
@@ -90,5 +90,26 @@ 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-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)
+ (call-process "xdotool" nil nil nil
+ "search" "--all" "--class" "--name"
+ (concat "^mupdf|" (file-name-nondirectory
+ (match-string 1 cmd)))
+ "key" "--window" "%@" "r"))))))
+
+(add-to-list 'compilation-finish-functions #'km/compile-check-pdf)
+
(provide 'km-compile)
;;; km-compile.el ends here