From 62d075049740e0fa1cfadc2f88e875a444c1f34c Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Thu, 28 Dec 2023 07:34:04 +0200 Subject: Add gnosis-review-due-tags --- gnosis.el | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'gnosis.el') diff --git a/gnosis.el b/gnosis.el index fb36bf6..b04905f 100644 --- a/gnosis.el +++ b/gnosis.el @@ -561,6 +561,13 @@ If user-input is equal to CLOZE, return t." (while (y-or-n-p "Review next note?") (gnosis-review-note note))) finally (message "Review session finished")))) + +(defun gnosis-review-due-tags () + "Review due notes, with specified tag." + (let ((notes (gnosis-select-by-tag + (list (completing-read "Start session for tag: " (gnosis-review-due-notes--with-tags)))))) + (cl-loop for note in notes do (gnosis-review-note note)))) + (defun gnosis-review-all-due-notes () "Review all due notes." (let* ((due-notes (gnosis-review-get-due-notes)) -- cgit v1.2.3