[Emacs] Add imalison:org-roam-browse-backlink

This commit is contained in:
Ivan Malison 2023-08-16 07:30:08 -06:00
parent 699daf3c89
commit d2954404dd

View File

@ -3666,6 +3666,16 @@ alphanumeric characters only."
(frame-list)))
nil)))
(defun imalison:org-roam-browse-backlink ()
(interactive)
(let* ((node-alist
(cl-loop for backlink in (org-roam-backlinks-get (org-roam-node-at-point))
for node = (org-roam-backlink-source-node backlink)
collect `(,(org-roam-node-title node) . ,node)))
(selected-name (completing-read "Select a backlink to visit: " node-alist))
(selected-node (alist-get selected-name node-alist nil nil 'string-equal)))
(org-roam-node-visit selected-node)))
(defun imalison:org-roam-frame-based-buffer-visibility-fn ()
(cond
((--any (funcall frame-mode-is-frame-viewable-fn it)