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

(perf)db: wrap update-file in sql transaction (#1827)

Browse Source 
This should lead to some performance gains on buffers with lots of
inserts required (e.g. when the buffer has a lot of links).
This commit is contained in:
Jethro Kuan
2021-09-01 19:43:19 +08:00
committed by GitHub
parent a8a36a420b
commit 1795039ab9
2 changed files with 21 additions and 19 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
CHANGELOG.md
View File

@ -8,6 +8,7 @@
### Changed ### Changed
- [#1795](https://github.com/org-roam/org-roam/pull/1795) buffer: optimized reflinks fetch - [#1795](https://github.com/org-roam/org-roam/pull/1795) buffer: optimized reflinks fetch
- [#1809](https://github.com/org-roam/org-roam/pull/1809) capture: the mandatory `:if-new` property of each capture template is now renamed to `:target` - [#1809](https://github.com/org-roam/org-roam/pull/1809) capture: the mandatory `:if-new` property of each capture template is now renamed to `:target`
- [#1829](https://github.com/org-roam/org-roam/pull/1829) perf: file sql updates are now wrapped in a transaction
### Fixed ### Fixed
- [#1798](https://github.com/org-roam/org-roam/pull/1798) org-roam-node-at-point: do not skip invisible headings - [#1798](https://github.com/org-roam/org-roam/pull/1798) org-roam-node-at-point: do not skip invisible headings

3
org-roam-db.el
View File

@ -495,6 +495,7 @@ If the file exists, update the cache with information."
info) info)
(unless (string= content-hash db-hash) (unless (string= content-hash db-hash)
(org-roam-with-file file-path nil (org-roam-with-file file-path nil
(emacsql-with-transaction (org-roam-db)
(save-excursion (save-excursion
(org-set-regexps-and-options 'tags-only) (org-set-regexps-and-options 'tags-only)
(org-roam-db-clear-file) (org-roam-db-clear-file)
@ -514,7 +515,7 @@ If the file exists, update the cache with information."
(when (require 'org-cite nil 'noerror) (when (require 'org-cite nil 'noerror)
(org-roam-db-map-citations (org-roam-db-map-citations
info info
(list #'org-roam-db-insert-citation)))))))) (list #'org-roam-db-insert-citation)))))))))
;;;###autoload ;;;###autoload
(defun org-roam-db-sync (&optional force) (defun org-roam-db-sync (&optional force)