From 44d80017168f3f58976a135fcd5fbe21a5ee40b5 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Mon, 8 Jan 2024 15:50:11 +0200 Subject: Add todo's & remove unused progn --- gnosis.el | 7 +++++-- 1 file 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 -- cgit v1.2.3