awesome-emacs/nursery
1
0
Fork 0
mirror of https://github.com/chrisbarrett/nursery synced 2025-08-19 13:43:32 -05:00
Code Issues Packages Projects Releases Wiki Activity

Ensure modifications to the review buffers occur with buffer selected

Browse Source
This commit is contained in:
Chris Barrett
2023-03-12 14:03:33 +13:00
parent e092f60878
commit 9429aa6c76
1 changed files with 28 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -248,6 +248,13 @@ A higher score means that the node will appear less frequently."
;;; Review buffers ;;; Review buffers
(defmacro org-roam-review--with-current-review-buffer (&rest body)
(declare (indent 0))
`(if-let* ((buf (car (org-roam-review-buffers))))
(with-current-buffer buf
,@body)
(error "No review buffer")))
(defun org-roam-review--daily-file-p (&optional file) (defun org-roam-review--daily-file-p (&optional file)
"Test whether FILE is a daily node. "Test whether FILE is a daily node.
@@ -637,28 +644,26 @@ them as reviewed with `org-roam-review-accept',
(run-hooks 'org-roam-review-next-node-selected-hook))))) (run-hooks 'org-roam-review-next-node-selected-hook)))))
(defun org-roam-review--update-review-buffer-entry (node) (defun org-roam-review--update-review-buffer-entry (node)
(when-let* ((buf (get-buffer "*org-roam-review*"))) (org-roam-review--with-current-review-buffer
(let ((continue t)
(found-pos nil)
(id (org-roam-node-id node)))
(save-excursion
(goto-char (point-min))
(while (and (not found-pos) continue)
(if (equal id (ignore-errors (org-roam-node-id (org-roam-node-at-point))))
(setq continue nil
found-pos (point))
(or (ignore-errors (magit-section-forward) t)
(setq continue nil)))))
(with-current-buffer buf (when found-pos
(let ((continue t) (goto-char found-pos)
(found-pos nil) (when-let* ((section (magit-current-section)))
(id (org-roam-node-id node))) (when (oref section node)
(save-excursion (let ((inhibit-read-only t))
(goto-char (point-min)) (put-text-property (line-beginning-position) (line-end-position) 'face 'font-lock-comment-face))
(while (and (not found-pos) continue) (magit-section-hide section)))))))
(if (equal id (ignore-errors (org-roam-node-id (org-roam-node-at-point))))
(setq continue nil
found-pos (point))
(or (ignore-errors (magit-section-forward) t)
(setq continue nil)))))
(when found-pos
(goto-char found-pos)
(when-let* ((section (magit-current-section)))
(when (oref section node)
(let ((inhibit-read-only t))
(put-text-property (line-beginning-position) (line-end-position) 'face 'font-lock-comment-face))
(magit-section-hide section))))))))
(defmacro org-roam-review--transform-selected-sections (&rest body) (defmacro org-roam-review--transform-selected-sections (&rest body)
"Execute BODY, possibly over multiple sections. "Execute BODY, possibly over multiple sections.
@@ -678,7 +683,8 @@ Return the affected sections."
(magit-section-update-highlight))) (magit-section-update-highlight)))
result)) result))
,@body) ,@body)
(org-roam-review--forward-to-uncommented-sibling))) (org-roam-review--with-current-review-buffer
(org-roam-review--forward-to-uncommented-sibling))))
(defun org-roam-review--maybe-kill-reviewed-buffer (buf) (defun org-roam-review--maybe-kill-reviewed-buffer (buf)
(when (and org-roam-review-kill-reviewed-buffers-p (buffer-live-p buf)) (when (and org-roam-review-kill-reviewed-buffers-p (buffer-live-p buf))