From d2954404dd451d589e4453bfa2b851b290162d78 Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Wed, 16 Aug 2023 07:30:08 -0600 Subject: [PATCH] [Emacs] Add imalison:org-roam-browse-backlink --- dotfiles/emacs.d/README.org | 10 ++++++++++ 1 file changed, 10 insertions(+) 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)