From 865df75f21dde2f5d5618ff07db8e883bb70d392 Mon Sep 17 00:00:00 2001 From: luhuaei Date: Fri, 3 Apr 2020 23:47:48 +0800 Subject: [PATCH] eaf-interleave: refactor eaf-interleave-add-note --- app/interleave/eaf-interleave.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/app/interleave/eaf-interleave.el b/app/interleave/eaf-interleave.el index e81512e..8f36493 100644 --- a/app/interleave/eaf-interleave.el +++ b/app/interleave/eaf-interleave.el @@ -440,11 +440,17 @@ Return the position of the newly inserted heading." (eaf-interleave--switch-to-org-buffer t new-note-position))) (defun eaf-interleave-add-note () - "Add note for the current page. + "Add note for the EAF buffer. -If there are already notes for this page, jump to the notes +If there are already notes for this url, jump to the notes buffer." (interactive) + (cond ((and (derived-mode-p 'eaf-mode) + (equal eaf--buffer-app-name "pdf-viewer")) + (eaf-interleave-pdf-add-note)))) + +(defun eaf-interleave-pdf-add-note () + "EAF pdf-viewer-mode add note" (let* ((page (eaf-interleave--pdf-viewer-current-page)) (position (eaf-interleave--go-to-page-note page))) (if position