diff options
author | Thanos Apollo <[email protected]> | 2024-01-29 10:53:27 +0200 |
---|---|---|
committer | Thanos Apollo <[email protected]> | 2024-01-29 10:53:27 +0200 |
commit | 4516d10b32c3729ee83d6edb89cd79e5e8f5f203 (patch) | |
tree | f844fd764e559b78fde268f562e90cd1ee1ed098 /gnosis-dev.el | |
parent | f9d4039ac7783219de88a25df9767f9cf0a4aecc (diff) | |
parent | 8768382c80e595695059ce5818845e480647b6b8 (diff) |
Merge branch 'version-0.1.5'0.1.5
- Adjust emacsql
- Fix initialization
- Rewrite string comparison using string-distance
- Update documentation
- Fix package requirments for MELPA
Diffstat (limited to 'gnosis-dev.el')
-rw-r--r-- | gnosis-dev.el | 6 |
1 files changed, 3 insertions, 3 deletions
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.")))) |