[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.

1 files 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))))))