Yaltik/hy_odoo
2
0
Fork 0
Code Issues Pull Requests Releases Activity

[ADD]Odoo hydict macro

Browse Source
This commit is contained in:
Fabien BOURGEOIS 2021-02-18 19:25:04 +01:00
parent 1a44194047
commit 34510b8c7a
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
hy_odoo/odoo.hy
View File

@ -43,6 +43,18 @@
value (nth hy-domain 3)) value (nth hy-domain 3))
`(, ~field ~op ~value)) `(, ~field ~op ~value))
(defmacro hydict [dic]
"Generate dict with mangled keys, from HyDict list"
(setv mangled-dic
(list
(map
(fn [pair]
(if (even? (nth pair 0))
(mangle (nth pair 1))
(nth pair 1)))
(enumerate dic))))
`{~@mangled-dic})
; XML helpers functions and macros ; XML helpers functions and macros
(defn odoo [&rest args] (xmlroot (xmln "odoo" {} #*args))) (defn odoo [&rest args] (xmlroot (xmln "odoo" {} #*args)))