colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Ivan Malison 2023-08-16 07:30:08 -06:00
parent 699daf3c89
commit d2954404dd
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
dotfiles/emacs.d/README.org
View File

@ -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)