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): migration: ensure empty roam_alias is removed (#1608)

Browse Source 
* (fix): migration: ensure empty roam_alias is removed

Addresses #1596

* fix lint
This commit is contained in:
Jethro Kuan
2021-07-18 23:08:59 +08:00
committed by GitHub
parent bbf1d97eb0
commit da02453ab1
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
org-roam-migrate.el
View File

@ -115,13 +115,13 @@ This will take a while. Are you sure you want to do this?")
;; Replace roam_alias into properties drawer roam_aliases ;; Replace roam_alias into properties drawer roam_aliases
(when-let* ((aliases (mapcan #'split-string-and-unquote (when-let* ((aliases (mapcan #'split-string-and-unquote
(cdar (org-collect-keywords '("roam_alias")))))) (cdar (org-collect-keywords '("roam_alias"))))))
(let ((case-fold-search t)) (dolist (alias aliases)
(org-with-point-at 1 (org-roam-alias-add alias)))
(dolist (alias aliases) (let ((case-fold-search t))
(org-roam-alias-add alias)) (org-with-point-at 1
(while (re-search-forward "^#\\+roam_alias:" (point-max) t) (while (re-search-forward "^#\\+roam_alias:" (point-max) t)
(beginning-of-line) (beginning-of-line)
(kill-line 1))))) (kill-line 1))))
;; Replace #+roam_tags into #+filetags ;; Replace #+roam_tags into #+filetags
(org-with-point-at 1 (org-with-point-at 1