From 666fd197f7fadaa266ab5ff0b7242a4626fda434 Mon Sep 17 00:00:00 2001 From: luhuaei Date: Sat, 4 Apr 2020 09:50:27 +0800 Subject: [PATCH] eaf-interleave: add eaf-interleave-add-file-url support add new url on note if property is none. else modify current url. --- app/interleave/eaf-interleave.el | 16 +++++----------- 1 file changed, 5 insertions(+), 11 deletions(-) diff --git a/app/interleave/eaf-interleave.el b/app/interleave/eaf-interleave.el index 0a23ef5..e15fab5 100644 --- a/app/interleave/eaf-interleave.el +++ b/app/interleave/eaf-interleave.el @@ -151,17 +151,11 @@ split horizontally." "The pdf property string.") ;; functions -(defun eaf-interleave--handle-parse-pdf-file-name () - "When don't parse responsive pdf file on current org file." - (let ((pdf-file-name (read-file-name "No INTERLEAVE_PDF property found. Please specify path: " nil nil t))) - ;; Check whether we have any entry at point with `org-entry-properties' before - ;; prompting if the user wants multi-pdf. - (if (and (org-entry-properties) (y-or-n-p "Is this multi-pdf? ")) - (org-entry-put (point) "INTERLEAVE_PDF" pdf-file-name) - (save-excursion - (goto-char (point-min)) - (insert "#+INTERLEAVE_PDF: " pdf-file-name))) - pdf-file-name)) +(defun eaf-interleave-add-file-url () + "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))) (defun eaf-interleave--select-split-function () "Determine which split function to use.