From 4a77e5e770b35dc5b63d00e1a97eeecb660fa7e0 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Mon, 25 Dec 2023 02:36:54 +0200 Subject: Message deck name upon addition/deletion --- gnosis.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'gnosis.el') diff --git a/gnosis.el b/gnosis.el index abfbf69..3af5089 100644 --- a/gnosis.el +++ b/gnosis.el @@ -99,7 +99,8 @@ the returns the list of inputs in reverse order." (defun gnosis-add-deck (name) "Create deck with NAME." (interactive (list (read-string "Deck Name: "))) - (gnosis--insert-into 'decks `([nil ,name]))) + (gnosis--insert-into 'decks `([nil ,name])) + (message "Created deck '%s'" name)) (defun gnosis--get-deck-name () "Get name from table DECKS." @@ -112,10 +113,11 @@ the returns the list of inputs in reverse order." (let ((deck (gnosis--get-deck-name))) (gnosis-get 'id 'decks `(= name ,deck)))) -(defun gnosis-delete-deck (id) - "Delete deck with id value of ID." - (interactive (list (gnosis--get-deck-id))) - (gnosis--delete 'decks `(= id ,id))) +(defun gnosis-delete-deck (deck) + "Delete DECK." + (interactive (list (gnosis--get-deck-name))) + (gnosis--delete 'decks `(= name ,deck)) + (message "Deleted deck %s" deck)) (cl-defun gnosis-add-note-mcq (&key deck question choices correct-answer tags) "Create a NOTE with a list of multiple CHOICES. -- cgit v1.2.3