summaryrefslogtreecommitdiff
path: root/gnosis.el
diff options
context:
space:
mode:
authorThanos Apollo <[email protected]>2023-12-28 07:33:08 +0200
committerThanos Apollo <[email protected]>2023-12-28 07:33:08 +0200
commit4cb80ac12ad21eb13a48e2b54edb3c3d91600514 (patch)
tree88f1c390401d8f5f719070139b64474a3368dd91 /gnosis.el
parent21bace61c89728798f8d283c65f18450f9482b71 (diff)
Add gnosis-review-all-with-tags
Diffstat (limited to 'gnosis.el')
-rw-r--r--gnosis.el12
1 files changed, 8 insertions, 4 deletions
diff --git a/gnosis.el b/gnosis.el
index 82284cc..17fcf3c 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -553,10 +553,14 @@ If user-input is equal to CLOZE, return t."
("cloze" (gnosis-review-cloze id))
(_ (error "Malformed note type")))))
-;;;###autoload
-(defun gnosis-review ()
- "Start gnosis session."
- (interactive)
+(defun gnosis-review-all-with-tags ()
+ "Review all note(s) with specified tag(s)."
+ (let ((notes (gnosis-select-by-tag (gnosis-prompt-tag))))
+ (cl-loop for note in notes
+ do (progn (gnosis-review-note note)
+ (while (y-or-n-p "Review next note?")
+ (gnosis-review-note note)))
+ finally (message "Review session finished"))))
(let* ((due-notes (gnosis-review-get-due-notes))
(note-count 0)
(total-notes (length due-notes)))