[elpa] externals/denote 2ba496bbf0 2/3: Merge pull request #241 from vedang/add-prompts-when-extracting-org-subtree

[ELPA Syncer]

branch: externals/denote
commit 2ba496bbf0e2c100270c89b55acab0c7a774ae75
Merge: 3a1d857850 799fc5d4d3
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: GitHub <noreply@github.com>

    Merge pull request #241 from vedang/add-prompts-when-extracting-org-subtree
    
    Use denote-prompts to prompt user when extracting org subtree
---
 denote-org-extras.el | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/denote-org-extras.el b/denote-org-extras.el
index 61215c6cc3..79e756ebc0 100644
--- a/denote-org-extras.el
+++ b/denote-org-extras.el
@@ -161,10 +161,19 @@ Make the new note an Org file regardless of the value of
   (if-let ((text (org-get-entry))
            (heading (denote-link-ol-get-heading)))
       (let ((tags (org-get-tags))
-            (date (denote-org-extras--get-heading-date)))
+            (date (denote-org-extras--get-heading-date))
+            subdirectory
+            signature)
+        (dolist (prompt denote-prompts)
+          (pcase prompt
+            ('keywords (when (not tags)
+                         (setq tags (denote-keywords-prompt))))
+            ('subdirectory (setq subdirectory (denote-subdirectory-prompt)))
+            ('date (when (not date) (setq date (denote-date-prompt))))
+            ('signature (setq signature (denote-signature-prompt)))))
         (delete-region (org-entry-beginning-position)
                        (save-excursion (org-end-of-subtree t) (point)))
-        (denote heading tags 'org nil date)
+        (denote heading tags 'org subdirectory date nil signature)
         (insert text))
     (user-error "No subtree to extract; aborting")))