gistfile1.txt

 (PUT "/:focus/:action"
       {{type "focus" action "action"} :route-params
        body         :body
        uri          :uri
        query-string :query-string
        opts         :query-params
        :as request}
       (let [nspace (symbol (str 'actions. type))
             action (parse-action action)
             opts   (assoc opts :uri (str uri "?" query-string))]
         (require nspace)
         (json/generate-string
          ((ns-resolve nspace action) body (parse-opts opts))))