[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)))
|
(frame-list)))
|
||||||
nil)))
|
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 ()
|
(defun imalison:org-roam-frame-based-buffer-visibility-fn ()
|
||||||
(cond
|
(cond
|
||||||
((--any (funcall frame-mode-is-frame-viewable-fn it)
|
((--any (funcall frame-mode-is-frame-viewable-fn it)
|
||||||
|
Loading…
Reference in New Issue
Block a user