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

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

@@ -741,16 +741,16 @@ 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--visiting-node-at-point (org-roam-review--update-review-buffer-entry
(let ((id (org-entry-get (point-min) "ID"))) (org-roam-review--visiting-node-at-point
(unless id (let ((id (org-entry-get (point-min) "ID")))
(error "No ID in buffer")) (unless id
(org-with-point-at (org-find-property "ID" id) (error "No ID in buffer"))
(org-roam-review--delete-tags-and-properties id) (org-with-point-at (org-find-property "ID" id)
(save-buffer)) (org-roam-review--delete-tags-and-properties id)
(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)