Translation of meth from Python to Hy

hy/contrib/meth.hy

@@ -0,0 +1,54 @@
+;;; Meth
+;; based on paultag's meth library to access a Flask based application
+
+(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))))))
+
+(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))))))
+
+;; Some macro examples
+(defmacro post-route [name path params code]
+  "Post request"
+  `(route-with-methods ~name ~path ~params ~code ["POST"]))
+
+(defmacro put-route [name path params code]
+  "Put request"
+  `(route-with-methods ~name ~path ~params ~code ["PUT"]))
+
+(defmacro delete-route [name path params code]
+  "Delete request"
+  `(route-with-methods ~name ~path ~params ~code ["DELETE"]))
+
+
+;;; Simple example application
+;;; Requires to have Flask installed
+
+;; (import [flask [Flask]])
+;; (setv app (Flask "__main__"))
+
+;; (require methy)
+
+;; (print "setup / with GET")
+;; (route get-index "/" []  (str "Hy world!"))
+
+;; (print "setup /post with POST")
+;; (post-route post-index "/post" []  (str "Hy post world!"))
+
+;; (route-with-methods both-index "/both" [] 
+;;   (str "Hy to both worlds!") ["GET" "POST"])
+
+;; (.run app)
+
+;;; Now you can do:
+;;; curl 127.0.0.1:5000
+;;; curl -X POST 127.0.0.1:5000/post
+;;; curl -X POST 127.0.0.1:5000/both
+;;; curl 127.0.0.1:5000/both

hy/contrib/meth.py

@@ -1,58 +0,0 @@
-# Copyright (c) 2013 Paul Tagliamonte <paultag@debian.org>
-#
-# Permission is hereby granted, free of charge, to any person obtaining a
-# copy of this software and associated documentation files (the "Software"),
-# to deal in the Software without restriction, including without limitation
-# the rights to use, copy, modify, merge, publish, distribute, sublicense,
-# and/or sell copies of the Software, and to permit persons to whom the
-# Software is furnished to do so, subject to the following conditions:
-#
-# The above copyright notice and this permission notice shall be included in
-# all copies or substantial portions of the Software.
-#
-# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL
-# THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
-# FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
-# DEALINGS IN THE SOFTWARE.
-
-from hy.models.expression import HyExpression
-from hy.models.symbol import HySymbol
-from hy.models.string import HyString
-from hy.models.list import HyList
-from hy.models.dict import HyDict
-
-from hy.macros import macro
-
-
-def router(tree, rkwargs=None):
-    tree = HyExpression(tree)
-    name = tree.pop(0)
-    path = tree.pop(0)
-    tree.insert(0, HySymbol("fn"))
-    tree = HyExpression([HySymbol("def"), name, tree])
-
-    route = HyExpression([HySymbol(".route"), HySymbol("app"), path])
-
-    if rkwargs:
-        route = HyExpression([HySymbol("kwapply"), route,
-                              HyDict({HyString("methods"): rkwargs})])
-
-    return HyExpression([HySymbol("with_decorator"), route, tree])
-
-
-@macro("route")
-def route_macro(*tree):
-    return router(tree)
-
-
-@macro("post_route")
-def post_route_macro(*tree):
-    return router(tree, rkwargs=HyList([HyString("POST")]))
-
-
-@macro("get_route")
-def get_route_macro(*tree):
-    return router(tree, rkwargs=HyList([HyString("GET")]))