diff --git a/dotfiles/emacs.d/README.org b/dotfiles/emacs.d/README.org index 12b28f24..c95019d1 100644 --- a/dotfiles/emacs.d/README.org +++ b/dotfiles/emacs.d/README.org @@ -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)