summaryrefslogtreecommitdiff
path: root/gnosis.el
diff options
context:
space:
mode:
authorThanos Apollo <[email protected]>2024-01-08 15:50:11 +0200
committerThanos Apollo <[email protected]>2024-01-08 15:50:11 +0200
commit44d80017168f3f58976a135fcd5fbe21a5ee40b5 (patch)
tree4a56c015964476fef0a7417658c9d3eeac56a086 /gnosis.el
parent0914485532f0a85f08eeead75a40ebe39e203044 (diff)
Add todo's & remove unused progn
Diffstat (limited to 'gnosis.el')
-rw-r--r--gnosis.el7
1 files changed, 5 insertions, 2 deletions
diff --git a/gnosis.el b/gnosis.el
index 6661bd9..e7feebf 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