branch: elpa/gnosis
commit d4e67d2f8820977998975be8e515afa8f76f45e8
Author: Thanos Apollo <pub...@thanosapollo.org>
Commit: Thanos Apollo <pub...@thanosapollo.org>
db-update-v4: Only create new tables if they do not exist.
+ Minor adjustment for testing purposes.
---
gnosis.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/gnosis.el b/gnosis.el
index 43abcdf14e..60c8f6e18d 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -2317,9 +2317,9 @@ Return note ids for notes that match QUERY."
"Update to databse version v4."
(let ((tags (gnosis-get-tags--unique)))
(pcase-dolist (`(,table ,schema) (seq-filter (lambda (schema)
- (member (car schema) '(tags
links)))
+ (member (car schema) '(links
tags)))
gnosis-db--schemata))
- (emacsql gnosis-db [:create-table $i1 $S2] table schema))
+ (emacsql gnosis-db [:create-table :if-not-exists $i1 $S2] table schema))
(cl-loop for tag in tags
do (gnosis--insert-into 'tags `[,tag]))
(emacsql gnosis-db [:alter-table notes :rename-column main :to keimenon])
