diff options
Diffstat (limited to 'lib/doc/jao-org-notes.el')
| -rw-r--r-- | lib/doc/jao-org-notes.el | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/lib/doc/jao-org-notes.el b/lib/doc/jao-org-notes.el index 62ee1ef..3f3c5ea 100644 --- a/lib/doc/jao-org-notes.el +++ b/lib/doc/jao-org-notes.el @@ -38,7 +38,7 @@ (cons (format "%s %s" (replace-regexp-in-string "^\\./" "" (car m)) (replace-regexp-in-string "[0-9]+:#\\+\\(title\\|tags\\):" - " (\\2)" (cadr m))) + " (\\1)" (cadr m))) (expand-file-name (car m) default-directory))) (defun jao-org-notes--matches (lines) @@ -120,9 +120,8 @@ (insert "\n")) (defun jao-org-notes--template (k) - `(,k "Note" plain (file jao-org-notes-open-or-create) - "\n- %a\n %i" - :jump-to-captured t)) + `(,k "Note" plain (file jao-org-notes-create) + "\n- %a\n %i" :jump-to-captured t)) ;;;###autoload (defun jao-org-notes-open () @@ -132,8 +131,8 @@ (find-file f))) ;;;###autoload -(defun jao-org-notes-open-or-create () - "Open or create a new note file, matching tags and titles with completion." +(defun jao-org-notes-create () + "Create a new note file, matching tags and titles with completion." (interactive) (when (jao-org-notes--insert-title) (jao-org-notes--insert-date) @@ -159,7 +158,7 @@ (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) " "))) + (insert ":" (mapconcat 'identity (jao-org-notes--read-tags) ":") ":")) ;;;###autoload (defun jao-org-notes-insert-link () |