awesome-emacs/org-roam
1
0
Fork 0
mirror of https://github.com/org-roam/org-roam synced 2025-08-01 12:17:21 -05:00
Code Issues Packages Projects Releases Wiki Activity

(db)fix: fix sqlite-builtin and sqlite-module (#2161)

Browse Source
This commit is contained in:
Jethro Kuan
2022-04-16 20:26:25 -07:00
committed by GitHub
parent d8985aa245
commit 6132155393
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
org-roam-db.el
View File

@ -163,11 +163,11 @@ ROAM_REFS."
#'emacsql-sqlite)) #'emacsql-sqlite))
(sqlite-builtin (sqlite-builtin
(progn (progn
(require 'emacs-sqlite-builtin) (require 'emacsql-sqlite-builtin)
#'emacsql-sqlite-builtin)) #'emacsql-sqlite-builtin))
(sqlite-module (sqlite-module
(progn (progn
(require 'emacs-sqlite-module) (require 'emacsql-sqlite-module)
#'emacsql-sqlite-module)) #'emacsql-sqlite-module))
(libsqlite3 (libsqlite3
(progn (progn
@ -188,7 +188,8 @@ Performs a database upgrade when required."
(make-directory (file-name-directory org-roam-db-location) t) (make-directory (file-name-directory org-roam-db-location) t)
(let ((conn (funcall (org-roam-db--conn-fn) org-roam-db-location))) (let ((conn (funcall (org-roam-db--conn-fn) org-roam-db-location)))
(emacsql conn [:pragma (= foreign_keys ON)]) (emacsql conn [:pragma (= foreign_keys ON)])
(when-let ((process (emacsql-process conn))) (when-let* ((process (emacsql-process conn))
(_ (processp process)))
(set-process-query-on-exit-flag process nil)) (set-process-query-on-exit-flag process nil))
(puthash (expand-file-name (file-name-as-directory org-roam-directory)) (puthash (expand-file-name (file-name-as-directory org-roam-directory))
conn conn