From d3c53980c34d7c4214c6df5ae09cc9dc5107cf50 Mon Sep 17 00:00:00 2001
From: Thanos Apollo <public@thanosapollo.org>
Date: Tue, 12 Dec 2023 21:14:11 +0200
Subject: Update schema & fix typos

---
 gnosis.el | 48 +++++++++++++++++++++++++++++++++---------------
 1 file changed, 33 insertions(+), 15 deletions(-)

diff --git a/gnosis.el b/gnosis.el
index 84a2a02..c62d545 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -59,16 +59,21 @@
   "Insert VALUES to TABLE-NAME."
   (emacsql gnosis-db `[:insert :into ,table-name :values ,values]))
 
-(defun gnosis--get-id (table value id)
-  "Get VALUE for question ID from TABLE."
-  (caar (gnosis--select table value `(= id ,id))))
+(defun gnosis--get-id (table value)
+  "From TABLE get VALUE for id."
+  (caar (gnosis--select table value nil)))
+
 (defun gnosis--get-name (table value name)
   "From TABLE get VALUE for NAME."
   (caar (gnosis--select table value `(= name ,name))))
 
+(defun gnosis--delete (table value)
+  "From TABLE use where to delete VALUE."
+  (emacsql gnosis-db `[:delete :from ,table :where ,value]))
+
 (defun gnosis--display-question (id)
   "Display main row for question ID."
-  (let ((question (gnosist--get-id 'notes 'main id)))
+  (let ((question (gnosis--get-id 'notes 'main id)))
     ;; Animate.el is used only for testing purposes.
     (animate-string question 5)))
 
@@ -134,14 +139,14 @@ TAGS are used to organize questions."
 
 (defun gnosis-mcq-answer (id)
   "Choose the correct answer, from mcq choices for question ID."
-  (let ((choices (gnosist--get-id 'notes 'options id))
+  (let ((choices (gnosis--get-id 'notes 'options id))
 	(history-add-new-input nil)) ;; Disable history
     (completing-read "Answer: " choices)))
 
 (defun gnosis-review-mcq-choices (id)
   "Display multiple choice answers for question ID."
-  (let ((canswer (gnosist--get-id 'notes 'answer id))
-	(choices (gnosist--get-id 'notes 'options id))
+  (let ((canswer (gnosis--get-id 'notes 'answer id))
+	(choices (gnosis--get-id 'notes 'options id))
 	(user-choice (gnosis-mcq-answer id)))
     (if (equal (nth (- canswer 1) choices) user-choice)
 	(message "Correct!")
@@ -149,7 +154,7 @@ TAGS are used to organize questions."
 
 (defun gnosis-review (id)
   "Start review for question ID."
-  (let ((type (gnosist--get-id 'notes 'type id)))
+  (let ((type (gnosis--get-id 'notes 'type id)))
     (pcase type
       ("mcq" (gnosis-review-mcq-choices id))
       ("basic" (message "Not Ready yet."))
@@ -174,15 +179,28 @@ TAGS are used to organize questions."
   (condition-case nil
       (gnosis--drop-table 'notes)
     (error (message "No NOTES table to drop.")))
-  (gnosis--create-table 'notes '([(id integer :primary-key)
-				  (type text)
-				  (main text)
-				  options
-				  answer
-				  tags
+  (condition-case nil
+      (gnosis--drop-table 'decks)
+    (error (message "No DECKS table to drop.")))
+  ;; Enable foreign_keys
+  (emacsql gnosis-db "PRAGMA foreign_keys = ON")
+  ;; Create decks table  
+  (gnosis--create-table 'decks '([(id integer :primary-key :autoincrement)
+				  (name text :not-null)]))
+  ;; Create notes table
+  (gnosis--create-table 'notes '([(id integer :primary-key :autoincrement)
+				  (type text :not-null)
+				  (main text :not-null)
+				  (options text :not-null)
+				  (answer text :not-null)
+				  (tags text :default untagged)
 				  (ef integer :default 1.3)
 				  (rev_times integer :default 0)
-				  (rev_interval integer :default 0)])))
+				  (rev_interval integer :default 0)
+				  (deck-id integer)]
+				 (:foreign-key [deck-id] :references decks [id]
+					       :on-delete :cascade)))
+  (gnosis-create-deck "Anatomy"))
 
 ;; Gnosis mode ;;
 ;;;;;;;;;;;;;;;;;
-- 
cgit v1.2.3