From 84530976cf523605514498e985bb48803a83f534 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Thu, 9 May 2024 23:14:34 +0300 Subject: Remove gnosis-review-override This should be done more elegantly within a gnosis-review-actions without a y-or-n prompt --- gnosis.el | 11 +---------- 1 file changed, 1 insertion(+), 10 deletions(-) diff --git a/gnosis.el b/gnosis.el index ea23edd..9797c16 100644 --- a/gnosis.el +++ b/gnosis.el @@ -437,7 +437,7 @@ Also see `gnosis-string-edit'." (propertize (format "%s" interval) 'face 'gnosis-face-next-review)))) (if (search-backward "Next review" nil t) ;; Delete previous result, and override with new this should - ;; occur only when used with `gnosis-review-override' + ;; occur only when used for overriding review result. (progn (delete-region (point) (progn (end-of-line) (point))) (insert (propertize (replace-regexp-in-string "\n" "" next-review-msg) 'face (if success 'gnosis-face-correct 'gnosis-face-false)))) @@ -1274,15 +1274,6 @@ NOTE-NUM: The number of notes reviewed in the session." (gnosis-vc-push)) (message "Review session finished. %d notes reviewed." note-num))) -(defun gnosis-review-override (id success) - "Override review result of note ID. - -Reverse the result of review SUCCESS." - (let ((success-new (if success nil t))) - (gnosis-display-next-review id success-new) - (if (y-or-n-p (format "Override review result as %s?" (if success-new "`SUCCESS'" "`FAILURE'"))) - (gnosis-review--update id success-new) - (gnosis-review-override id success-new)))) (defun gnosis-review--session (notes) "Start review session for NOTES. -- cgit v1.2.3