From 42ff26ea6f14cd510107e98e1c8f8fa460ead0a1 Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Wed, 13 Sep 2023 18:40:26 -0600 Subject: [PATCH] [Emacs] Fix browse backlinks --- dotfiles/emacs.d/org-config.org | 23 ++++++++++++----------- 1 file changed, 12 insertions(+), 11 deletions(-) diff --git a/dotfiles/emacs.d/org-config.org b/dotfiles/emacs.d/org-config.org index 5587ddd2..788c8fdf 100644 --- a/dotfiles/emacs.d/org-config.org +++ b/dotfiles/emacs.d/org-config.org @@ -877,6 +877,16 @@ alphanumeric characters only." (use-package org-roam :after org :defer 1 + :preface + (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))) :bind (("C-c r f" . org-roam-node-find) ("C-c r i" . org-roam-node-insert) @@ -901,16 +911,6 @@ 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) @@ -1014,7 +1014,8 @@ alphanumeric characters only." :host github :files ("org-window-habit.el")) :custom - ((org-window-habit-property-prefix nil)) + ((org-window-habit-property-prefix nil) + (org-window-habit-repeat-to-scheduled t)) :config (progn (org-window-habit-mode +1)))