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

(minor)refactor: make prefix checking clearer (#1951)

Browse Source
This commit is contained in:
Tianshu Wang
2021-11-09 15:25:31 +08:00
committed by GitHub
parent 239929045f
commit 01c45f9dca
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
org-roam-db.el
View File

@ -470,7 +470,7 @@ INFO is the org-element parsed buffer."
(let (rows) (let (rows)
(dolist (ref refs) (dolist (ref refs)
(save-match-data (save-match-data
(cond ((string-equal (substring ref 0 1) "@") (cond ((string-prefix-p "@" ref)
(push (vector node-id (substring ref 1) "cite") rows)) (push (vector node-id (substring ref 1) "cite") rows))
((string-match org-link-plain-re ref) ((string-match org-link-plain-re ref)
(push (vector node-id (match-string 2 ref) (match-string 1 ref)) rows)) (push (vector node-id (match-string 2 ref) (match-string 1 ref)) rows))

2
org-roam-node.el
View File

@ -260,7 +260,7 @@ Return nil if there's no node with such REF."
((string-match org-link-plain-re ref) ((string-match org-link-plain-re ref)
(setq type (match-string 1 ref) (setq type (match-string 1 ref)
path (match-string 2 ref))) path (match-string 2 ref)))
((string-equal (substring ref 0 1) "@") ((string-prefix-p "@" ref)
(setq type "cite" (setq type "cite"
path (substring ref 1)))) path (substring ref 1))))
(when (and type path) (when (and type path)