awesome-emacs/nursery
1
0
Fork 0
mirror of https://github.com/chrisbarrett/nursery synced 2025-09-24 16:30:55 -05:00
Code Issues Packages Projects Releases Wiki Activity

Make note exclusion bury notes during a review session

Browse Source
This commit is contained in:
Chris Barrett
2022-08-18 11:35:46 +12:00
parent 335261ab18
commit 031d724246
1 changed files with 10 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/org-roam-review.el
View File

@@ -741,6 +741,7 @@ the future."
This deletes all the properties and tags managed by this This deletes all the properties and tags managed by this
package." package."
(interactive) (interactive)
(org-roam-review--update-review-buffer-entry
(org-roam-review--visiting-node-at-point (org-roam-review--visiting-node-at-point
(let ((id (org-entry-get (point-min) "ID"))) (let ((id (org-entry-get (point-min) "ID")))
(unless id (unless id
@@ -748,9 +749,8 @@ package."
(org-with-point-at (org-find-property "ID" id) (org-with-point-at (org-find-property "ID" id)
(org-roam-review--delete-tags-and-properties id) (org-roam-review--delete-tags-and-properties id)
(save-buffer)) (save-buffer))
(let ((title (org-roam-node-title (org-roam-node-from-id id)))) (let ((title (org-roam-node-title (org-roam-node-from-id id))))
(message "Excluded node `%s' from reviews" title))))) (message "Excluded node `%s' from reviews" title))))))
(provide 'org-roam-review) (provide 'org-roam-review)