Size: a a a
ST
СС
ST
(defn about-handler [req]
{:body "About page"})
(defn home-handler [req]
{:body "Home page"})
(defn routing-handler [req]
(let [response (case (:uri req)
"/" (home-handler req)
"/about" (about-handler req))]
(merge {:status 200
:headers {"Content-Type" "text/plain"}}
response)))
(def app
(-> routing-handler
wrap-reload))
СС
(let [response
MP
MP
MP
AI
ST
(let [response
routing-handler(defn about-handler [req]
{:body "About page"})
(defn home-handler [req]
{:body "Home page"})
(defn routing-handler [req]
(let [handler (case (:uri req)
"/" home-handler
"/about" about-handler)]
(merge {:status 200
:headers {"Content-Type" "text/plain"}}
(handler response))))
(def app
(-> routing-handler
wrap-reload))
СС
routing-handler(defn about-handler [req]
{:body "About page"})
(defn home-handler [req]
{:body "Home page"})
(defn routing-handler [req]
(let [handler (case (:uri req)
"/" home-handler
"/about" about-handler)]
(merge {:status 200
:headers {"Content-Type" "text/plain"}}
(handler response))))
(def app
(-> routing-handler
wrap-reload))
ST
ST
(defn about-handler [req]
{:body "About page"})
(defn home-handler [req]
{:body "Home page"})
(def routing-map {"/" home-handler
"/about" about-handler})
(defn routing-handler [req]
(let [handler (routing-map (:uri req))]
(merge {:status 200
:headers {"Content-Type" "text/plain"}}
(handler req))))
(def app
(-> routing-handler
wrap-reload))
СС
ST
СС
(def routing-map {"/" (home-handler 200 "text/html")
"/about" (about-handler 200 "text/html")})ST
СС
СС
ST
(def routing-map {"/" (home-handler 200 "text/html")
"/about" (about-handler 200 "text/html")})(def routing-map {"/" {:handler home-handler :content-type "text/html"}
"/about" {:handler about-handler}})СС