Yaltik/hy
2
0
Fork 0
Code Pull Requests Releases Activity

changed to use short version of macros

Browse Source
This commit is contained in:
Guillermo Vaya 2013-09-22 13:10:37 +02:00
parent d495473c54
commit 3f1243f88c
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
hy/contrib/meth.hy
View File

@ -3,16 +3,16 @@
(defmacro route [name path params code]
"Default get request"
(quasiquote (let [[deco ((getattr app "route") (unquote path))]]
(with-decorator deco
(defn (unquote name) (unquote params) (unquote-splice code))))))
`(let [[deco ((getattr app "route") ~path)]]
(with-decorator deco
(defn ~name ~params ~@code))))
(defmacro route-with-methods [name path params code methods]
"Same as route but with an extra methods array to specify HTTP methods"
(quasiquote (let [[deco (kwapply ((getattr app "route") (unquote path))
{"methods" (unquote methods)})]]
(with-decorator deco
(defn (unquote name) (unquote params) (unquote-splice code))))))
`(let [[deco (kwapply ((getattr app "route") ~path)
{"methods" ~methods})]]
(with-decorator deco
(defn ~name ~params ~@code))))
;; Some macro examples
(defmacro post-route [name path params code]