summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorThanos Apollo <[email protected]>2023-12-12 21:14:11 +0200
committerThanos Apollo <[email protected]>2023-12-12 21:14:11 +0200
commitd3c53980c34d7c4214c6df5ae09cc9dc5107cf50 (patch)
tree9bce5a4d20d77e220a26cc94debc52840f885939
parentbdfd1ecbf6b75ee0118b3d8df9853815fa4e173a (diff)
Update schema & fix typos
-rw-r--r--gnosis.el48
1 files 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 ;;
;;;;;;;;;;;;;;;;;