[Emacs] Add imalison:org-roam-browse-backlink
This commit is contained in:
parent
699daf3c89
commit
d2954404dd
@ -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)
|
||||
|
Loading…
Reference in New Issue
Block a user