From 1c711aba758437974ebdfa15edda730d5dffffab Mon Sep 17 00:00:00 2001 From: Chris Barrett Date: Mon, 29 Aug 2022 20:27:45 +1200 Subject: [PATCH] Allow passing point in to org-roam-review-insert-preview --- lisp/org-roam-review.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/org-roam-review.el b/lisp/org-roam-review.el index efdba98..b72bb0d 100644 --- a/lisp/org-roam-review.el +++ b/lisp/org-roam-review.el @@ -329,9 +329,9 @@ When called with a `C-u' prefix arg, clear the current filter." (replace-regexp-in-string (rx bol) (make-string (* depth org-roam-review-indent-width) 32) str)) -(cl-defun org-roam-review-insert-preview (node &key (depth 0)) +(cl-defun org-roam-review-insert-preview (node &key point (depth 0)) (magit-insert-section section (org-roam-preview-section) - (let* ((start (org-roam-node-point node)) + (let* ((start (or point (org-roam-node-point node))) (file (org-roam-node-file node)) (preview (org-roam-fontify-like-in-org-mode (org-roam-preview-get-contents file start))) (post-formatters