sqrtminusone/org-journal-tags
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/org-journal-tags.git synced 2025-12-10 19:03:03 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix: insert new tag

Browse source
This commit is contained in:
Pavel Korytov 2022-02-01 16:43:06 +03:00
parent de6791f6f3
commit e7939e4266
1 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
org-journal-tags.el
View file

@ -630,8 +630,13 @@ list of tags to remove."
"Insert org-journal tag at point."
(interactive)
(insert
(org-journal-tags--complete)))
(let ((name (completing-read
"Tag: "
(org-journal-tags--list-tags))))
(unless (org-journal-tags--valid-tag-p name)
(user-error "Invalid tag name: %s" name))
(funcall org-journal-tags-format-new-tag-function
name))))
;; Global setup
(defun org-journal-tags--setup-buffer ()