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

(fix)db: prevent empty aliases sql expression (#1813)

Browse Source
This commit is contained in:
Jethro Kuan
2021-08-27 19:01:43 +08:00
committed by GitHub
parent 714ea7a3fc
commit ab87a08e17
2 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
CHANGELOG.md
View File

@ -9,6 +9,7 @@
### 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
- [#1807](https://github.com/org-roam/org-roam/pull/1807) capture: always trigger `:if-new` template for existing nodes - [#1807](https://github.com/org-roam/org-roam/pull/1807) capture: always trigger `:if-new` template for existing nodes
- [#1813](https://github.com/org-roam/org-roam/pull/1813) db: prevent empty ROAM_ALIASES from crashing db updates
## 2.1.0 ## 2.1.0
### Added ### Added

10
org-roam-db.el
View File

@ -310,6 +310,7 @@ If UPDATE-P is non-nil, first remove the file in the database."
(deadline nil) (deadline nil)
(level 0) (level 0)
(aliases (org-entry-get (point) "ROAM_ALIASES")) (aliases (org-entry-get (point) "ROAM_ALIASES"))
(aliases (when aliases (split-string-and-unquote aliases)))
(tags org-file-tags) (tags org-file-tags)
(refs (org-entry-get (point) "ROAM_REFS")) (refs (org-entry-get (point) "ROAM_REFS"))
(properties (org-entry-properties)) (properties (org-entry-properties))
@ -336,7 +337,7 @@ If UPDATE-P is non-nil, first remove the file in the database."
:values $v1] :values $v1]
(mapcar (lambda (alias) (mapcar (lambda (alias)
(vector id alias)) (vector id alias))
(split-string-and-unquote aliases)))) aliases)))
(when refs (when refs
(setq refs (split-string-and-unquote refs)) (setq refs (split-string-and-unquote refs))
(let (rows) (let (rows)
@ -386,13 +387,14 @@ If UPDATE-P is non-nil, first remove the file in the database."
(defun org-roam-db-insert-aliases () (defun org-roam-db-insert-aliases ()
"Insert aliases for node at point into Org-roam cache." "Insert aliases for node at point into Org-roam cache."
(when-let ((node-id (org-id-get)) (when-let* ((node-id (org-id-get))
(aliases (org-entry-get (point) "ROAM_ALIASES"))) (aliases (org-entry-get (point) "ROAM_ALIASES"))
(aliases (split-string-and-unquote aliases)))
(org-roam-db-query [:insert :into aliases (org-roam-db-query [:insert :into aliases
:values $v1] :values $v1]
(mapcar (lambda (alias) (mapcar (lambda (alias)
(vector node-id alias)) (vector node-id alias))
(split-string-and-unquote aliases))))) aliases))))
(defun org-roam-db-insert-tags () (defun org-roam-db-insert-tags ()
"Insert tags for node at point into Org-roam cache." "Insert tags for node at point into Org-roam cache."