Redo gnosis-suspend-note

Use cl-defun and add optional value for unsuspend, this function
should also be used to unsuspend notes

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.