eaf-interleave: add new pdf url, default page is 1

6 years ago · 1ac2d1f0c1
parent 49e4b0e161
commit 1ac2d1f0c1
1 changed files with 2 additions and 1 deletions
--- 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)