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): simplify org-roam--str-to-list (#762)

Browse Source 
This simplifies `org-roam--str-to-list`, and ensures that it parses
numbers correctly too. Fixes #745.
This commit is contained in:
Jethro Kuan
2020-06-05 20:27:02 +08:00
committed by GitHub
parent 563252a6f6
commit c61f7e20f2
1 changed files with 15 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
org-roam.el
View File

@ -258,27 +258,22 @@ space-delimited strings.
res))
(defun org-roam--str-to-list (str)
"Function to transform string STR into list of titles.
This snippet is obtained from ox-hugo:
https://github.com/kaushalmodi/ox-hugo/blob/a80b250987bc770600c424a10b3bca6ff7282e3c/ox-hugo.el#L3131"
(when (stringp str)
"Transform string STR into a list of strings.
If str is nil, return nil."
(when str
(unless (stringp str)
(signal 'wrong-type-argument `(stringp ,str)))
(let* ((str (org-trim str))
(str-list (split-string str "\n"))
ret)
(dolist (str-elem str-list)
(let* ((format-str ":dummy '(%s)") ;The :dummy key is discarded in the `lst' var below.
(alist (org-babel-parse-header-arguments (format format-str str-elem)))
(lst (cdr (car alist)))
(str-list2 (mapcar (lambda (elem)
(format-str ":dummy '(%s)") ;The :dummy key is discarded in the `lst' var below.
(items (cdar (org-babel-parse-header-arguments (format format-str str)))))
(mapcar (lambda (item)
(cond
((symbolp elem)
(symbol-name elem))
((symbolp item)
(symbol-name item))
((numberp item)
(number-to-string item))
(t
elem)))
lst)))
(setq ret (append ret str-list2))))
ret)))
item))) items))))
;;;; File functions and predicates
(defun org-roam--file-name-extension (filename)