From fad72aabb29f76cfa8a527177dc191001b5d606a Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Thu, 28 Dec 2023 08:13:22 +0200 Subject: Add gnosis-suspend Interactive function to suspend notes with specified values e.g either based on tags or decks. --- gnosis.el | 11 +++++++++++ 1 file changed, 11 insertions(+) diff --git a/gnosis.el b/gnosis.el index 720076c..60ff17e 100644 --- a/gnosis.el +++ b/gnosis.el @@ -236,6 +236,17 @@ When called with a prefix, unsuspends all notes in deck." (suspend (if current-prefix-arg 0 1))) (cl-loop for note in notes do (gnosis-update 'review-log `(= suspend ,suspend) `(= id ,(car 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.")) + (_ (message "Not ready yet."))))) + + (defun gnosis-add-note-fields (deck type main options answer extra tags suspend image) "Add fields for new note. -- cgit v1.2.3