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

(feat): make roam properties case-insensitive (#757)

Browse Source
This commit is contained in:
Jethro Kuan
2020-06-04 16:39:23 +08:00
committed by GitHub
parent c5e0c6b9fa
commit 0cd4bc05c5
3 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
org-roam-doctor.el
View File

@ -94,7 +94,7 @@ AST is the org-element parse tree."
(org-element-map ast 'keyword
(lambda (kw)
(let ((key (org-element-property :key kw)))
(when (and (string-prefix-p "ROAM_" key)
(when (and (string-prefix-p "ROAM_" key t)
(not (member key org-roam-doctor--supported-roam-properties)))
(push
`(,(org-element-property :begin kw)
@ -111,7 +111,7 @@ AST is the org-element parse tree."
(let (reports)
(org-element-map ast 'keyword
(lambda (kw)
(when (string= (org-element-property :key kw) "ROAM_TAGS")
(when (string-collate-equalp (org-element-property :key kw) "ROAM_TAGS" nil t)
(let* ((s (org-element-property :value kw))
(tags (org-roam--parse-tags s))
(bad-tags (-remove #'stringp tags)))
@ -131,7 +131,7 @@ AST is the org-element parse tree."
(let (reports)
(org-element-map ast 'keyword
(lambda (kw)
(when (string= (org-element-property :key kw) "ROAM_ALIAS")
(when (string-collate-equalp (org-element-property :key kw) "ROAM_ALIAS" nil t)
(let* ((s (org-element-property :value kw))
(aliases (org-roam--parse-alias s))
(bad-aliases (-remove #'stringp aliases)))