[FIX]Hy Odoo : replace nth
This commit is contained in:
parent
52ed13524b
commit
f7d5ba3465
@ -25,8 +25,8 @@
|
|||||||
(defmacro hydm [hy-domain]
|
(defmacro hydm [hy-domain]
|
||||||
"Generate Odoo domain from Hy like tuple domain"
|
"Generate Odoo domain from Hy like tuple domain"
|
||||||
(setv op (second hy-domain)
|
(setv op (second hy-domain)
|
||||||
field (mangle (nth hy-domain 2))
|
field (mangle (get hy-domain 2))
|
||||||
value (nth hy-domain 3))
|
value (get hy-domain 3))
|
||||||
`#(~field ~op ~value))
|
`#(~field ~op ~value))
|
||||||
|
|
||||||
; Odoo ORM macros
|
; Odoo ORM macros
|
||||||
|
@ -102,7 +102,7 @@
|
|||||||
; Fields
|
; Fields
|
||||||
(defn field [&rest args]
|
(defn field [&rest args]
|
||||||
"Special field allowing mangling name attribute"
|
"Special field allowing mangling name attribute"
|
||||||
(setv attrs (nth args 0))
|
(setv attrs (get args 0))
|
||||||
(when (and (instance? dict attrs) (in "name" attrs))
|
(when (and (instance? dict attrs) (in "name" attrs))
|
||||||
(assoc attrs "name" (mangle (get attrs "name")))
|
(assoc attrs "name" (mangle (get attrs "name")))
|
||||||
(setv args (list args))
|
(setv args (list args))
|
||||||
|
Loading…
x
Reference in New Issue
Block a user