From b573f1d2238976e0d8d8e17737a0ce290b7465f3 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Sun, 16 Jun 2024 20:29:38 +0300 Subject: Add gnosis-review-action--quit --- gnosis.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) 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. -- cgit v1.2.3