compile: Add function to update mupdf

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