sqrtminusone/biome
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/biome.git synced 2025-12-10 14:35:13 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

biome-api-data: improve parsing

Browse source
This commit is contained in:
Pavel Korytov 2023-07-22 14:01:43 +03:00
parent 8fa742a0d8
commit ccbf00abcd
2 changed files with 1069 additions and 1069 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2134
biome-api-data.el
View file

File diff suppressed because it is too large Load diff

4
biome-api-parse.el
View file

@ -185,13 +185,13 @@ SECTION is a DOM element. Return a list of fields as defined by
(:options . ,(mapcar (:options . ,(mapcar
(lambda (opt) (cons (dom-attr opt 'value) (lambda (opt) (cons (dom-attr opt 'value)
(biome-api-parse--fix-string (biome-api-parse--fix-string
(dom-text opt)))) (dom-texts opt))))
(dom-by-tag elem 'option))))) (dom-by-tag elem 'option)))))
fields) fields)
else if (eq (dom-tag elem) 'label) else if (eq (dom-tag elem) 'label)
do (push (cons (or (cdr (assoc (dom-attr elem 'for) field-id-mapping)) do (push (cons (or (cdr (assoc (dom-attr elem 'for) field-id-mapping))
(dom-attr elem 'for)) (dom-attr elem 'for))
(biome-api-parse--fix-string (dom-text elem))) (biome-api-parse--fix-string (dom-texts elem)))
field-names)) field-names))
(cl-loop for (id . name) in field-names (cl-loop for (id . name) in field-names
do (when-let ((field (assoc id fields))) do (when-let ((field (assoc id fields)))