writing code for slim framework in lisp

We can use pharen macro for write better dry code.

This are macro example for slim framework:

(defmacro slim-init () '(def app (new Slim)))
(defmacro slim-set-local-instance () '(local app (:: Slim (getInstance))))

(defmacro slim-http-request (method route name args &body)
 '(do
   (-> app (~method ~route ~name) (name ~name))
    (fn ~-name ~args  
      (do
      (local app (:: Slim (getInstance)))
      (local params (slim-params))
      ~@body
      FALSE 
      )
 )))


(defmacro slim-rq-is (cond &body)
  (def method-name (. "is" cond))
  '(if (-> (slim-rq) (~method-name)) ~@body FALSE)
)

(defmacro slim-response-with-json (data)
  '(-> app (response) (body (json-encode ~data))))

(defmacro slim-get (route name args &body) '(slim-http-request get ~route ~name ~args ~@body))
(defmacro slim-post (route name args &body) '(slim-http-request post ~route ~name ~args ~@body))
(defmacro slim-put (route name args &body) '(slim-http-request put ~route ~name ~args ~@body))
(defmacro slim-delete (route name args &body) '(slim-http-request delete ~route ~name ~args ~@body))

(fn slim-rq () 
  (slim-set-local-instance)
  (-> app request))

(fn slim-params () (-> (slim-rq) (params)))

and an example of use

(require-once #slim.php)
(slim-init)

(def n 123)

(slim-get "/books/:one/:two" #get-book (one two) 

  (echo n)
  (echo (-> (slim-rq) (params #ciccio )))
  (slim-rq-is #get 
    (echo "get"))

  (slim-rq-is #Ajax 
  (slim-response-with-json [(dict #a 1) (dict #a 2)]))

  (echo (. "first parameter" one))
  (echo (. "second parameter" two)))