diff --git a/app/interleave/eaf-interleave.el b/app/interleave/eaf-interleave.el index ed66996..bf3df8d 100644 --- a/app/interleave/eaf-interleave.el +++ b/app/interleave/eaf-interleave.el @@ -117,15 +117,7 @@ split horizontally." (if eaf-interleave-mode (progn (setq eaf-interleave-org-buffer (current-buffer)) - (setq eaf-interleave--window-configuration (current-window-configuration)) - (eaf-interleave--open-file) - ;; expand/show all headlines if narrowing is disabled - (when eaf-interleave-disable-narrowing - (with-current-buffer eaf-interleave-org-buffer - (goto-char (point-min)) - (org-cycle-hide-drawers 'all))) - (eaf-interleave--go-to-page-note 1) - (message "EAF Interleave enabled")) + (setq eaf-interleave--window-configuration (current-window-configuration))) ;; Disable the corresponding minor mode in the PDF file too. (set-window-configuration eaf-interleave--window-configuration) (setq eaf-interleave--window-configuration nil) @@ -384,6 +376,7 @@ buffer." (defun eaf-interleave-sync-current-note () "Sync EAF buffer on current note" + (interactive) (let ((url (org-entry-get-with-inheritance eaf-interleave--url-prop))) (cond ((and (string-prefix-p "/" url) (string-suffix-p "pdf" url t)) (eaf-interleave-sync-pdf-page-current)))) @@ -401,7 +394,8 @@ buffer." (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) + (eaf-interleave--select-split-function) + (eaf-interleave--open-pdf pdf-url) ))) ;;;###autoload