Yaltik/yaltik_odoo_custom
1
0
Fork 0
Code Issues Pull Requests Releases Activity

[REF]Hy Base XML better naming for child

Browse Source
This commit is contained in:
Fabien BOURGEOIS 2019-09-22 10:28:56 +02:00
parent 82155b3cc2
commit c45d527fff
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
hy_base/xml.hy
View File

@ -29,13 +29,13 @@
(defn xmlchild [parent children] (defn xmlchild [parent children]
"Handling of children (ie non root) XML Nodes with/o text and subchildren "Handling of children (ie non root) XML Nodes with/o text and subchildren
(recursive)" (recursive)"
(for [c children] (for [child children]
(if (string? c) (if (string? child)
(setv (. parent text) c) (setv (. parent text) child)
(do (do
(setv attrs (dfor [k v] (.items (get c "attrs")) [(str k) (str v)])) (setv attrs (dfor [k v] (.items (get child "attrs")) [(str k) (str v)]))
(setv new_parent (.SubElement ET parent (get c "tag") attrs)) (setv new_parent (.SubElement ET parent (get child "tag") attrs))
(setv subchildren (get c "children")) (setv subchildren (get child "children"))
(if subchildren (xmlchild new_parent subchildren)))))) (if subchildren (xmlchild new_parent subchildren))))))
(defn xmln [tag &optional attrs children text] (defn xmln [tag &optional attrs children text]