summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorThanos Apollo <[email protected]>2024-06-16 20:29:38 +0300
committerThanos Apollo <[email protected]>2024-06-16 20:29:38 +0300
commitb573f1d2238976e0d8d8e17737a0ce290b7465f3 (patch)
tree5712f09777a79a3c716bbd941f62811c4ff2ef4c
parent352b2b4aa8658965e67855cd0e9b698c299b6a23 (diff)
Add gnosis-review-action--quit
-rw-r--r--gnosis.el12
1 files changed, 12 insertions, 0 deletions
diff --git a/gnosis.el b/gnosis.el
index b7bd513..0c16c25 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -1336,6 +1336,18 @@ NOTE-COUNT."
(gnosis-edit-note note t)
(recursive-edit)
(gnosis-review-actions success note note-count))
+
+(defun gnosis-review-action--quit (success note note-count)
+ "Quit review session.
+
+Update result for NOTE review with SUCCESS and commit session for NOTE-COUNT.
+
+This function should be used with `gnosis-review-actions', to finish
+the review session."
+ (gnosis-review-result note success)
+ (gnosis-review-commit note-count)
+ ;; Break the loop of `gnosis-review-session'
+ (throw 'stop-loop t))
(defun gnosis-review-actions (success note note-count)
"Specify action during review of note.