Adding notes/decks: Warn user if using testing env

- Add gnosis-testing variable, when any function such as those in
gnosis-dev create a testing env, they should also change this value to t

1 files changed, 12 insertions, 2 deletions

diff --git a/gnosis.el b/gnosis.el
index e66e2ce..efdba9a 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -58,6 +58,8 @@
 
 WARNING: Do not change this value!")
 
+(defvar gnosis-testing nil
+  "When t, warn user he is in a testing environment.")
 
 (cl-defun gnosis-select (value table &optional (restrictions '1=1))
   "Select VALUE from TABLE, optionally with RESTRICTIONS."
@@ -239,8 +241,13 @@ Set SPLIT to t to split all input given."
 (defun gnosis-add-deck (name)
   "Create deck with NAME."
   (interactive (list (read-string "Deck Name: ")))
-  (gnosis--insert-into 'decks `([nil ,name]))
-  (message "Created deck '%s'" name))
+  (unless gnosis-testing
+    (when (y-or-n-p "You are using a testing environment! Continue?")
+      (error "Aborted")))
+  (if (gnosis-get 'name 'decks `(= name ,name))
+      (error "Deck `%s' already exists" name)
+    (gnosis--insert-into 'decks `([nil ,name]))
+    (message "Created deck '%s'" name)))
 
 (defun gnosis--get-deck-name ()
   "Get name from table DECKS."
@@ -382,6 +389,9 @@ choice in the `CHOICES' list. Each note must correspond to one `DECK'.
 (defun gnosis-add-note (type)
   "Create note(s) as TYPE interactively."
   (interactive (list (completing-read "Type: " '(MCQ Cloze Basic) nil t)))
+  (unless gnosis-testing
+    (when (y-or-n-p "You are using a testing environment! Continue?")
+      (error "Aborted")))
   (pcase type
     ("MCQ" (gnosis-add-note-mcq))
     ("Cloze" (gnosis-add-note-cloze))