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