compojure test

gistfile1.clj

(defn 
  ^{:doc "Action that shows the help and about page."
    :path "/help"
    :http_method :get}
  action-show
  [account member]
  (normal-layout account
                 [:div
                 [:h1 "Title"]
                 [:p "lorem")


(defmacro generate-route-for
  [action]
  (let [path# (-> action resolve meta :path)
        method# (if (= (-> action resolve meta :http_method) :post) 'POST 'GET)
        arglist# (-> action resolve meta :arglists first)
        keywords# (map keyword arglist#) 
        symbols# (map gensym arglist#) 
        hsh# (apply hash-map (flatten (map vector symbols# keywords#)))
        ]
    `(~method# ~path# ~hsh# (~action ~@symbols#))))
    
    
(defroutes app-routes
  (generate-route-for index/action-show)
  (generate-route-for help/action-show))