pdfs with skim

1 files changed, 10 insertions, 7 deletions

diff --git a/lib/doc/jao-org-links.el b/lib/doc/jao-org-links.el
index 5f2304a..5547c9b 100644
--- a/lib/doc/jao-org-links.el
+++ b/lib/doc/jao-org-links.el
@@ -101,16 +101,19 @@
   (insert  "\n#+startup: latexpreview\n\n"))
 
 ;;;###autoload
-(defun jao-org-pdf-goto-org (arg)
+(defun jao-org-pdf-goto-org (arg &optional file-name)
   (interactive "P")
-  (when (jao-pdf-is-pdf-file buffer-file-name)
-    (let* ((file (jao-org-notes-find-for-pdf))
-           (new (not (file-exists-p file)))
-           (title (jao-pdf-title)))
-      (when (or arg new) (org-store-link nil t))
+  (when (jao-pdf-is-pdf-file (or file-name buffer-file-name))
+    (let* ((file (jao-org-notes-find-for-pdf file-name))
+           (new (not (file-exists-p file))))
+      (if (and (not file-name) (or arg new))
+          (org-store-link nil t)
+        (when-let* ((fboundp 'jao-skim-current-doc)
+                    (lnk (jao-pdf-skim-org-link nil)))
+          (kill-new lnk)))
       (find-file-other-window file)
       (when new
-        (jao-org-insert-doc-skeleton title)
+        (jao-org-insert-doc-skeleton (jao-pdf-title file-name))
         (org-insert-link)))))
 
 ;;;###autoload