Add gnosis-suspend-tag

1 files changed, 8 insertions, 1 deletions

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.")))))