From 031d7242460ce524e3b9543b483cc236ae508c1e Mon Sep 17 00:00:00 2001 From: Chris Barrett Date: Thu, 18 Aug 2022 11:35:46 +1200 Subject: [PATCH] Make note exclusion bury notes during a review session --- lisp/org-roam-review.el | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/lisp/org-roam-review.el b/lisp/org-roam-review.el index 0d4bb9b..81e0965 100644 --- a/lisp/org-roam-review.el +++ b/lisp/org-roam-review.el @@ -741,16 +741,16 @@ the future." This deletes all the properties and tags managed by this package." (interactive) - (org-roam-review--visiting-node-at-point - (let ((id (org-entry-get (point-min) "ID"))) - (unless id - (error "No ID in buffer")) - (org-with-point-at (org-find-property "ID" id) - (org-roam-review--delete-tags-and-properties id) - (save-buffer)) - - (let ((title (org-roam-node-title (org-roam-node-from-id id)))) - (message "Excluded node `%s' from reviews" title))))) + (org-roam-review--update-review-buffer-entry + (org-roam-review--visiting-node-at-point + (let ((id (org-entry-get (point-min) "ID"))) + (unless id + (error "No ID in buffer")) + (org-with-point-at (org-find-property "ID" id) + (org-roam-review--delete-tags-and-properties id) + (save-buffer)) + (let ((title (org-roam-node-title (org-roam-node-from-id id)))) + (message "Excluded node `%s' from reviews" title)))))) (provide 'org-roam-review)