diff options
| -rw-r--r-- | org-gnosis.el | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/org-gnosis.el b/org-gnosis.el index 0291cc1..e93dde2 100644 --- a/org-gnosis.el +++ b/org-gnosis.el @@ -377,6 +377,22 @@ instead." (org-insert-link nil id node))) ;;;###autoload +(defun org-gnosis-insert-tag () + "Insert filetag." + (interactive) + (let* ((filetags (org-gnosis-select 'tag 'tags '1=1 t)) + (tag (funcall org-gnosis-completing-read-func "Select tag: " filetags))) + (save-excursion + (goto-char (point-min)) + (if (re-search-forward "^#\\+FILETAGS:" nil t) + (progn + (end-of-line) + (insert (if (looking-back ":" nil) "" ":") tag ":")) + (progn + (insert "#+FILETAGS: :" tag ":") + (newline)))))) + +;;;###autoload (defun org-gnosis-journal-find (&optional date) "Find journal entry for DATE." (interactive) |