From 772e4aec801da45b40a7ca41533346e4f2751acc Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Sun, 16 Jun 2024 20:30:15 +0300 Subject: Add gnosis-review-action--override --- gnosis.el | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/gnosis.el b/gnosis.el index 00af476..1c56c24 100644 --- a/gnosis.el +++ b/gnosis.el @@ -1357,6 +1357,15 @@ should be recursively called using SUCCESS, NOTE, NOTE-COUNT." (gnosis-suspend-note note) (gnosis-review-actions success note note-count)) +(defun gnosis-review-action--override (success note note-count) + "Override current review result for SUCCESS. + +This function should be used with `gnosis-review-actions', which will +be called with new SUCCESS value plus NOTE & NOTE-COUNT." + (setf success (if success nil t)) + (gnosis-display-next-review note success) + (gnosis-review-actions success note note-count)) + (defun gnosis-review-actions (success note note-count) "Specify action during review of note. -- cgit v1.2.3