diff options
Diffstat (limited to 'lib/doc/jao-pdf.el')
| -rw-r--r-- | lib/doc/jao-pdf.el | 17 |
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) |