summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--gnosis.el9
1 files changed, 6 insertions, 3 deletions
diff --git a/gnosis.el b/gnosis.el
index 6f3c0cc..f462fec 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -334,9 +334,12 @@ Set SPLIT to t to split all input given."
(gnosis--delete 'decks `(= name ,deck))
(message "Deleted deck %s" deck))
-(defun gnosis-suspend-note (id)
- "Suspend note with ID."
- (gnosis-update 'review-log '(= suspend 1) `(= id ,id)))
+;; TODO: Redo this as a single function
+(cl-defun gnosis-suspend-note (id &optional (suspend 1))
+ "Suspend note with ID.
+
+SUSPEND: 1 to suspend, 0 to unsuspend."
+ (gnosis-update 'review-log `(= suspend ,suspend) `(= id ,id)))
(cl-defun gnosis-suspend-deck (&optional (deck (gnosis--get-deck-id)))
"Suspend all note(s) with DECK id.