Merge branch '#clean' into testing

- Remove unused progn
- Add todo's

1 files changed, 5 insertions, 2 deletions

diff --git a/gnosis.el b/gnosis.el
index e37e9aa..2a3105e 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -719,6 +719,7 @@ if DUE is t, return only due notes"
 	        due-notes)
      :test 'equal)))
 
+
 (cl-defun gnosis-tag-prompt (&key (prompt "Selected tags") (match nil) (due nil))
   "PROMPT user to select tags, until they enter `q'.
 Prompt user to select tags, generated from `gnosis-get-tags--unique'.
@@ -1144,6 +1145,8 @@ name and all notes formatted as nested lists"
 	       do (progn (insert "(") (gnosis-export-note note) (insert ")" "\n"))
 	       finally (insert "))")))))
 
+;; TODO: Add defcustom to have suspended as 0 or 1 depending on
+;; gnosis-add-decks-suspended t or nil
 (cl-defun gnosis-define-deck (deck notes &optional (suspended 0))
   "Define DECK consisting of NOTES, optionally add them as SUSPENDED.
 
@@ -1178,7 +1181,7 @@ review."
   (gnosis-add-deck (symbol-name deck))
   (sit-for 0.1) ;; wait for low-spec computers to create deck
   (cl-loop for note in notes
-	   do (progn (gnosis-add-note-fields (symbol-name deck)
+	   do (gnosis-add-note-fields (symbol-name deck)
 				      (plist-get note :type)
 				      (plist-get note :main)
 				      (plist-get note :options)
@@ -1187,7 +1190,7 @@ review."
 				      (plist-get note :tags)
 				      suspended
 				      (plist-get note :image)
-				      (plist-get note :second-image)))))
+				      (plist-get note :second-image))))
 
 
 ;;;###autoload