jao-org-notes: insert tags interactively

1 files changed, 11 insertions, 3 deletions

diff --git a/lib/org/jao-org-notes.el b/lib/org/jao-org-notes.el
index 621ac12..a1b9dbe 100644
--- a/lib/org/jao-org-notes.el
+++ b/lib/org/jao-org-notes.el
@@ -92,10 +92,12 @@
         (org-global-tags-completion-table
          (directory-files-recursively jao-org-notes-dir ".*\\.org"))))
 
-(defun jao-org-notes--insert-tags ()
+(defun jao-org-notes--read-tags ()
   (unless jao-org-notes--tags (jao-org-notes--update-tags))
-  (let ((ts (completing-read-multiple "Tags: " jao-org-notes--tags)))
-    (insert "#+filetags: " (mapconcat 'identity ts " ") "\n")))
+  (completing-read-multiple "Tags: " jao-org-notes--tags))
+
+(defun jao-org-notes--insert-tags ()
+  (insert "#+filetags: " (mapconcat #'identity (jao-org-notes--read-tags) " ") "\n"))
 
 (defun jao-org-notes--insert-date ()
   (insert "#+date: ")
@@ -133,6 +135,12 @@
                    (concat "\\[\\[file:(.*/)?" (regexp-quote (buffer-name)))))
 
 ;;;###autoload
+(defun jao-org-notes-insert-tags ()
+  "Insert a list of tags at point, with completing read."
+  (interactive)
+  (insert (mapconcat 'identity (jao-org-notes--read-tags) " ")))
+
+;;;###autoload
 (defun jao-org-notes-insert-link ()
   "Select a note file (with completion) and insert a link to it."
   (interactive)