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

4
CHANGELOG.md
View File

@ -7,6 +7,10 @@
- [#701](https://github.com/org-roam/org-roam/pull/701) Use `emacsql-sqlite3` instead of `emacsql-sqlite` for better Windows compatibility. This requires the presence of the standard `sqlite3` binary on your machine. - [#701](https://github.com/org-roam/org-roam/pull/701) Use `emacsql-sqlite3` instead of `emacsql-sqlite` for better Windows compatibility. This requires the presence of the standard `sqlite3` binary on your machine.
- [#750](https://github.com/org-roam/org-roam/pull/750) Deprecate `org-roam-buffer-no-delete-other-windows` in favour of `org-roam-buffer-window-parameters`. - [#750](https://github.com/org-roam/org-roam/pull/750) Deprecate `org-roam-buffer-no-delete-other-windows` in favour of `org-roam-buffer-window-parameters`.
### Features
- [#757](https://github.com/org-roam/org-roam/pull/757) Roam global properties are now case-insensitive
## 1.1.1 (18-05-2020) ## 1.1.1 (18-05-2020)
In this release, we added two new features: In this release, we added two new features:

6
org-roam-doctor.el
View File

@ -94,7 +94,7 @@ AST is the org-element parse tree."
(org-element-map ast 'keyword (org-element-map ast 'keyword
(lambda (kw) (lambda (kw)
(let ((key (org-element-property :key 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))) (not (member key org-roam-doctor--supported-roam-properties)))
(push (push
`(,(org-element-property :begin kw) `(,(org-element-property :begin kw)
@ -111,7 +111,7 @@ AST is the org-element parse tree."
(let (reports) (let (reports)
(org-element-map ast 'keyword (org-element-map ast 'keyword
(lambda (kw) (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)) (let* ((s (org-element-property :value kw))
(tags (org-roam--parse-tags s)) (tags (org-roam--parse-tags s))
(bad-tags (-remove #'stringp tags))) (bad-tags (-remove #'stringp tags)))
@ -131,7 +131,7 @@ AST is the org-element parse tree."
(let (reports) (let (reports)
(org-element-map ast 'keyword (org-element-map ast 'keyword
(lambda (kw) (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)) (let* ((s (org-element-property :value kw))
(aliases (org-roam--parse-alias s)) (aliases (org-roam--parse-alias s))
(bad-aliases (-remove #'stringp aliases))) (bad-aliases (-remove #'stringp aliases)))

2
org-roam.el
View File

@ -441,7 +441,7 @@ The search terminates when the first property is encountered."
(dolist (prop props) (dolist (prop props)
(let ((p (org-element-map buf 'keyword (let ((p (org-element-map buf 'keyword
(lambda (kw) (lambda (kw)
(when (string= (org-element-property :key kw) prop) (when (string-collate-equalp (org-element-property :key kw) prop nil t)
(org-element-property :value kw))) (org-element-property :value kw)))
:first-match t))) :first-match t)))
(push (cons prop p) res))) (push (cons prop p) res)))