branch: externals/org-gnosis
commit 93408776b178d79dbfffdbc0d291fde31c01e1ac
Author: Thanos Apollo <[email protected]>
Commit: Thanos Apollo <[email protected]>
db: Version bump to 4, add file column indexes.
---
org-gnosis.el | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/org-gnosis.el b/org-gnosis.el
index 9b4905c5f5..0d7330e943 100644
--- a/org-gnosis.el
+++ b/org-gnosis.el
@@ -885,15 +885,13 @@ ELEMENT should be the output of
`org-element-parse-buffer'."
;; Org-Gnosis Database
-;; Org-Gnosis Database
-
(defun org-gnosis--file-hash (file)
"Compute SHA1 hash of FILE content."
(with-temp-buffer
(insert-file-contents file)
(secure-hash 'sha1 (current-buffer))))
-(defconst org-gnosis-db-version 3)
+(defconst org-gnosis-db-version 4)
(defconst org-gnosis-db--table-schemata
'((nodes
@@ -1062,11 +1060,14 @@ Checks database version and prompts user for rebuild if
needed."
(defun org-gnosis-db-init ()
"Initialize database.
-Create all tables and set version for new database."
+Create all tables, indexes, and set version for new database."
(message "Creating new org-gnosis database...")
(emacsql-with-transaction (org-gnosis-db-get)
(pcase-dolist (`(,table ,schema) org-gnosis-db--table-schemata)
(emacsql (org-gnosis-db-get) [:create-table $i1 $S2] table schema))
+ ;; Indexes on file column for sync performance
+ (emacsql (org-gnosis-db-get) [:create-index :if-not-exists idx-nodes-file
:on nodes [file]])
+ (emacsql (org-gnosis-db-get) [:create-index :if-not-exists
idx-journal-file :on journal [file]])
(emacsql (org-gnosis-db-get) [:pragma (= user-version
org-gnosis-db-version)])))
(defun org-gnosis-db-init-if-needed ()
