pdfs with skim

1 files changed, 16 insertions, 1 deletions

diff --git a/lib/doc/jao-pdf.el b/lib/doc/jao-pdf.el
index 7996be8..fc332ab 100644
--- a/lib/doc/jao-pdf.el
+++ b/lib/doc/jao-pdf.el
@@ -108,7 +108,21 @@
 
 ;;; Mac
 
-(jao-when-darwin (require 'jao-mac))
+(when (eq system-type 'darwin)
+  (require 'jao-mac)
+  (defun jao-pdf-skim-org-link (title)
+    (when-let* ((fp (jao-skim-current-doc))
+                (file (file-name-nondirectory (car fp)))
+                (page (cadr fp))
+                (lnk (format "doc:%s::%s" file page)))
+      (org-make-link-string lnk title)))
+
+  (defun jao-pdf-insert-skim-org-link ()
+    (interactive)
+    (if-let* ((title (read-string "Title: "))
+              (lnk (jao-pdf-skim-org-link title)))
+        (insert lnk)
+      (user-error "Skim is not viewing any docs!"))))
 
 ;;; Open doc functions
 
@@ -125,6 +139,7 @@
            (when page (jao-doc-view-goto-page page height))))
         (jao-river-enabled (jao-river-open-with-zathura file page))
         (jao-sway-enabled (jao-sway-open-with-zathura file page))
+        ((eq system-type 'darwin) (jao-mac-open-in-skim file page))
         (t (jao-zathura-open file page))))
 
 (defun jao-open-doc (&optional file page height)