diff options
| author | jao <jao@gnu.org> | 2022-09-01 04:07:54 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2022-09-01 04:07:54 +0100 |
| commit | 68d9a048cdd05d19fe79f87a2ec32dde14fd282b (patch) | |
| tree | 443cd9e5bbbc201ad2add60df306f8173e8c375b /lib/doc/jao-org-links.el | |
| parent | 83d903b05d311f1811cdab188775a665f173600e (diff) | |
| download | elibs-68d9a048cdd05d19fe79f87a2ec32dde14fd282b.tar.gz elibs-68d9a048cdd05d19fe79f87a2ec32dde14fd282b.tar.bz2 | |
doc session: allowing a buffer to register more than one file
Diffstat (limited to 'lib/doc/jao-org-links.el')
| -rw-r--r-- | lib/doc/jao-org-links.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lib/doc/jao-org-links.el b/lib/doc/jao-org-links.el index d6bb8dc..dd8f2bb 100644 --- a/lib/doc/jao-org-links.el +++ b/lib/doc/jao-org-links.el @@ -2,17 +2,19 @@ (require 'jao-org-notes) (require 'jao-doc-view) +(require 'jao-doc-session) (require 'jao-pdf) (defvar jao-org--sink-dir "./") -(defvar jao-org-open-pdf-fun #'jao-org--pdf-open) +(defvar jao-org-open-pdf-fun #'jao-org--default-open) -(defun jao-org--pdf-open (path page &optional height) +(defun jao-org--default-open (path page &optional height) (org-open-file path 1) (jao-doc-view-goto-page page height)) (defun jao-org--pdf-open (path page &optional height) - (funcall (or jao-org-open-pdf-fun #'jao-org--pdf-open) path page height)) + (when (file-exists-p path) (jao-doc-session-mark path)) + (funcall (or jao-org-open-pdf-fun #'jao-org--default-open) path page height)) (defun jao-org-links--open-pdf (link) "Open LINK in pdf-view-mode." @@ -119,7 +121,7 @@ (defun jao-org-goto-pdf () (interactive) (if-let (f (jao-org-org-to-pdf-file)) - (funcall jao-org-open-pdf-fun f 1) + (jao-org--pdf-open f nil) (user-error "No PDF file associated with this buffer"))) (with-eval-after-load "org" |