From f5909b70fb2cc80b44afcec1b081fcf1b8e4c495 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Sat, 27 Jan 2024 11:32:31 +0200 Subject: gnosis-dev: Use emacsql-sqlite-open & expand-file-name --- gnosis-dev.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'gnosis-dev.el') diff --git a/gnosis-dev.el b/gnosis-dev.el index 6801290..d93dc87 100644 --- a/gnosis-dev.el +++ b/gnosis-dev.el @@ -110,12 +110,12 @@ by the thoracodorsal nerve." If ask nil, leave development env" (interactive) (let ((ask (y-or-n-p "Start development env (n for exit)?")) - (testing-dir (concat gnosis-dir "/testing"))) + (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-db (emacsql-sqlite-open (expand-file-name "testing.db" testing-dir))) (setf gnosis-testing t) (dolist (table '(notes decks review review-log extras)) (condition-case nil @@ -125,7 +125,7 @@ If ask nil, leave development env" (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-db (emacsql-sqlite-open (expand-file-name "gnosis.db" gnosis-dir))) (setf gnosis-testing nil) (message "Exited development env.")))) -- cgit v1.2.3