From 34bf6748f05551430352a712c05cf74980febc8a Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Wed, 10 Apr 2024 23:22:09 +0300 Subject: [Feature] Add override - Override review result - gnosis-review--update will be used only on gnosis-review--sesion. - gnosis-review-TYPE functions should return t or nil, for success or failure of review. --- gnosis.el | 31 +++++++++++++++++-------------- 1 file changed, 17 insertions(+), 14 deletions(-) diff --git a/gnosis.el b/gnosis.el index 5a3bb0c..e08e93a 100644 --- a/gnosis.el +++ b/gnosis.el @@ -1220,20 +1220,23 @@ NOTES: List of note ids" (message "No notes for review.") (when (y-or-n-p (format "You have %s total notes for review, start session?" (length notes))) (cl-loop for note in notes - do (gnosis-review-note note) - (setf note-count (1+ note-count)) - (pcase (car (read-multiple-choice - "Note actions" - '((?n "next") - (?s "suspend") - (?e "edit") - (?q "quit")))) - (?n nil) - (?s (gnosis-suspend-note note)) - (?e (gnosis-edit-note note t) - (recursive-edit)) - (?q (gnosis-review-commit note-count) - (cl-return))) + do (let ((success (gnosis-review-note note))) + (setf note-count (1+ note-count)) + (pcase (car (read-multiple-choice + "Note actions" + '((?n "next") + (?o "override") + (?s "suspend") + (?e "edit") + (?q "quit")))) + (?n (gnosis-review--update note success) (sit-for 10)) + (?o (gnosis-review--update note (if success nil t))) + (?s (gnosis-suspend-note note)) + (?e (gnosis-review--update note success) + (gnosis-edit-note note t) + (recursive-edit)) + (?q (gnosis-review-commit note-count) + (cl-return)))) finally (gnosis-review-commit note-count)))))) -- cgit v1.2.3