From 24b2802a19a2a4cc843f98c9ed4800724d94e49f Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Thu, 11 Jan 2024 20:41:10 +0200 Subject: Redo gnosis-dev-test --- gnosis-dev.el | 30 +++++++++++++----------------- 1 file changed, 13 insertions(+), 17 deletions(-) (limited to 'gnosis-dev.el') diff --git a/gnosis-dev.el b/gnosis-dev.el index dadbe04..bf78f5f 100644 --- a/gnosis-dev.el +++ b/gnosis-dev.el @@ -75,27 +75,23 @@ If ask nil, leave development env" (let ((ask (y-or-n-p "Start development env?")) (testing-dir (concat gnosis-dir "/testing"))) (if ask - (progn (unless (file-exists-p testing-dir) - (make-directory testing-dir)) - (setf gnosis-db (emacsql-sqlite (concat testing-dir "/testing.db"))) - (setf gnosis-testing t) - (gnosis-db-init) - (gnosis-dev-add-fields) - (message "Adding testing values...") - (message "Development env is ready for testing.")) + (progn + (unless (file-exists-p testing-dir) + (make-directory testing-dir)) + (setf gnosis-db (emacsql-sqlite (concat testing-dir "/testing.db"))) + (setf gnosis-testing t) + (dolist (table '(notes decks review review-log extras)) + (condition-case nil + (gnosis--drop-table table) + (error (message "No %s table to drop." table)))) + (gnosis-db-init) + (gnosis-dev-add-fields) + (message "Adding testing values...") + (message "Development env is ready for testing.")) (setf gnosis-db (emacsql-sqlite (concat (file-name-as-directory gnosis-dir) "gnosis.db"))) (setf gnosis-testing nil) (message "Exited development env.")))) -(defun gnosis-dev-retest () - "Redo database." - (interactive) - (dolist (table '(notes decks review review-log extras)) - (condition-case nil - (gnosis--drop-table table) - (error (message "No %s table to drop." table)))) - (gnosis-db-init) - (gnosis-dev-test)) (provide 'gnosis-dev) ;;; gnosis-dev.el ends here -- cgit v1.2.3 From f0623dd2d2a83fb70a9dbb22555e18f7eedbc4f0 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Sun, 14 Jan 2024 11:16:53 +0200 Subject: gnosis-dev: fix typos --- gnosis-dev.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'gnosis-dev.el') diff --git a/gnosis-dev.el b/gnosis-dev.el index bf78f5f..72a9b99 100644 --- a/gnosis-dev.el +++ b/gnosis-dev.el @@ -59,7 +59,7 @@ by the thoracodorsal nerve." :hint "note" :tags (gnosis-dev-random-items gnosis-dev-tags 2) :extra "extra"))) - (when (y-or-n-p "Add mulit cloze type?") + (when (y-or-n-p "Add note with multiple clozes?") (dotimes (_ num) (gnosis-add-note--cloze :deck testing-deck :note "this is a {c1:note} with multiple {c1:clozes}" -- cgit v1.2.3 From f9f9c31bc38bb8b6475d59c5f6f6499ddf1619a8 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Sun, 14 Jan 2024 13:27:12 +0200 Subject: gnosis-dev: Add y-or-n type --- gnosis-dev.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'gnosis-dev.el') diff --git a/gnosis-dev.el b/gnosis-dev.el index 72a9b99..f5003fc 100644 --- a/gnosis-dev.el +++ b/gnosis-dev.el @@ -65,7 +65,15 @@ by the thoracodorsal nerve." :note "this is a {c1:note} with multiple {c1:clozes}" :hint "note" :tags (gnosis-dev-random-items gnosis-dev-tags 2) - :extra "extra"))))) + :extra "extra"))) + (when (y-or-n-p "Add note type y-or-n?") + (dotimes (_ num) + (gnosis-add-note--y-or-n :deck testing-deck + :question "Is Codeine recommended in breastfeeding mothers?" + :hint "hint" + :answer 110 + :extra "extra" + :tags (gnosis-dev-random-items gnosis-dev-tags 2)))))) (defun gnosis-dev-test () "Begin/End testing env. -- cgit v1.2.3