diff options
Diffstat (limited to 'bard-elisp')
| -rw-r--r-- | bard-elisp/bard-writing.el | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/bard-elisp/bard-writing.el b/bard-elisp/bard-writing.el index 0f18c46..1733ed7 100644 --- a/bard-elisp/bard-writing.el +++ b/bard-elisp/bard-writing.el @@ -83,6 +83,18 @@ ;; Node does not exist (no id): create via Denote (bard/denote-insert-node title)))))) +(defun bard/find-or-create-node () + "Find an Org-roam node by title; if missing, create via Denote." + (interactive) + (let* ((node (org-roam-node-read nil nil)) ;; no auto-create; just selection + (title (org-roam-node-title node))) + (if (org-roam-node-id node) + ;; Node exists → visit + (org-roam-node-visit node) + ;; Node missing → create via Denote + (let ((keyword (denote-keywords-prompt))) + (denote title keyword))))) + (defun bard/denote-insert-node (title) "Denote analogy for `org-roam-insert-node', takes TITLE as node title." (interactive) |