From 1ac2d1f0c1fc36cbccf318605b09600ab5399c81 Mon Sep 17 00:00:00 2001 From: luhuaei Date: Sat, 4 Apr 2020 10:14:45 +0800 Subject: [PATCH] eaf-interleave: add new pdf url, default page is 1 --- app/interleave/eaf-interleave.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/app/interleave/eaf-interleave.el b/app/interleave/eaf-interleave.el index 58d6dfc..67f8a64 100644 --- a/app/interleave/eaf-interleave.el +++ b/app/interleave/eaf-interleave.el @@ -204,7 +204,8 @@ It (possibly) narrows the subtree when found." "Add new url on note if property is none. else modify current url" (interactive) (let ((url (read-file-name "Please specify path: " nil nil t))) - (org-entry-put (point) eaf-interleave--url-prop url))) + (org-entry-put (point) eaf-interleave--url-prop url) + (org-entry-put (point) eaf-interleave--page-note-prop "1"))) (defun eaf-interleave--narrow-to-subtree (&optional force)