oni-org: Add function to find a node with org-mem

1 files changed, 6 insertions, 1 deletions

diff --git a/oni-org/oni-org.el b/oni-org/oni-org.el
index eb0fe81..0172865 100644
--- a/oni-org/oni-org.el
+++ b/oni-org/oni-org.el
@@ -241,7 +241,7 @@ _di_: Add inlineimages STARTUP
   ("t" (org-capture nil "t"))
   ("A" (org-capture nil "a"))
   ("j" (org-capture nil "j"))
-  ("f" org-roam-node-find)
+  ("f" oni-org-find-node)
   ("i" org-roam-node-insert)
   ("di" oni-org-document-add-inline-images-startup))
 
@@ -1095,6 +1095,11 @@ CLOSED: %(setq oni-org--capture-D-date (format-time-string (org-time-stamp-forma
                     (file-relative-name (org-mem-entry-file entry))
                     title))))
 
+(defun oni-org-find-node ()
+  (interactive)
+  (let ((entries (mapcar (lambda (x) (cons (org-mem-title x) (org-mem-file x))) (org-mem-all-entries))))
+    (find-file (map-elt entries (completing-read "Header: " entries)))))
+
 ;;; Mastodon post dynamic block
 
 (defun oni-org-dblock-write-mastodon-post (params)