diff options
| -rw-r--r-- | gnosis.el | 9 |
1 files changed, 8 insertions, 1 deletions
@@ -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."))))) |