From 735a103b79d039d50cb5173da90444414273c0cb Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Thu, 28 Dec 2023 12:30:40 +0200 Subject: Add gnosis-suspend-tag --- gnosis.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'gnosis.el') diff --git a/gnosis.el b/gnosis.el index 60ff17e..94d4260 100644 --- a/gnosis.el +++ b/gnosis.el @@ -237,13 +237,20 @@ When called with a prefix, unsuspends all notes in deck." (cl-loop for note in notes do (gnosis-update 'review-log `(= suspend ,suspend) `(= id ,(car note)))))) +(defun gnosis-suspend-tag () + "Suspend all note(s) with tag." + (let ((notes (gnosis-select-by-tag (gnosis-prompt-tag))) + (suspend (if current-prefix-arg 0 1))) + (cl-loop for note in notes + do (gnosis-update 'review-log `(= suspend ,suspend) `(= id ,note))))) + (defun gnosis-suspend () "Suspend note(s) with specified values." (interactive) (let ((item (completing-read "Suspend by: " '("Deck" "Tag")))) (pcase item ("Deck" (gnosis-suspend-deck)) - ("Tag" (message "Not ready yet.")) + ("Tag" (gnosis-suspend-tag)) (_ (message "Not ready yet."))))) -- cgit v1.2.3