eaf-interleave: support multi pdf file

master
luhuaei 6 years ago
parent e2654c3256
commit 526f761293
  1. 23
      app/interleave/eaf-interleave.el

@ -172,9 +172,10 @@ split horizontally."
SPLIT-WINDOW is a function that actually splits the window, so it must be either
`split-window-right' or `split-window-below'."
(let ((pdf-file-name
(or (eaf-interleave--headline-pdf-path eaf-interleave-org-buffer)
(eaf-interleave--find-pdf-path eaf-interleave-org-buffer)
(eaf-interleave--handle-parse-pdf-file-name))))
(or (org-entry-get-with-inheritance eaf-interleave--url-prop)
(eaf-interleave--headline-pdf-path eaf-interleave-org-buffer)
(eaf-interleave--find-pdf-path eaf-interleave-org-buffer)
(eaf-interleave--handle-parse-pdf-file-name))))
(eaf-interleave--select-split-function)
(eaf-interleave--eaf-open-pdf pdf-file-name)
pdf-file-name))
@ -419,12 +420,16 @@ buffer."
(defun eaf-interleave-sync-pdf-page-current ()
"Open PDF page for currently visible notes."
(interactive)
(let ((pdf-page (string-to-number (org-entry-get-with-inheritance eaf-interleave--page-note-prop)))
(pdf-url (org-entry-get-with-inheritance eaf-interleave--url-prop)))
(when (and (integerp pdf-page) (> pdf-page 0)) ; The page number needs to be a positive integer
(eaf-interleave--narrow-to-subtree)
(with-current-buffer (eaf-interleave--find-buffer pdf-url)
(eaf-interleave--pdf-viewer-goto-page pdf-url pdf-page))
(let* ((pdf-page (string-to-number (org-entry-get-with-inheritance eaf-interleave--page-note-prop)))
(pdf-url (org-entry-get-with-inheritance eaf-interleave--url-prop))
(buffer (eaf-interleave--find-buffer pdf-url)))
(if buffer
(when (and (integerp pdf-page) (> pdf-page 0)) ; The page number needs to be a positive integer
(eaf-interleave--narrow-to-subtree)
(display-buffer-reuse-mode-window buffer '(("mode" . "eaf-interleave-pdf-mode")))
(with-current-buffer buffer
(eaf-interleave--pdf-viewer-goto-page pdf-url pdf-page)))
(eaf-interleave--open-file)
)))
;;;###autoload

Loading…
Cancel
Save