mirror of
https://github.com/metosin/reitit.git
synced 2025-12-19 01:11:11 +00:00
c00c299e13
- Create `user` ns for REPL-driven development. - Add entry point in `example.server` to start server in production.
26 lines
730 B
Clojure
26 lines
730 B
Clojure
(ns example.server
|
|
(:require
|
|
[reitit.ring :as ring]
|
|
[ring.adapter.jetty :as jetty]
|
|
[integrant.core :as ig]))
|
|
|
|
(def system-config
|
|
{:example/jetty {:port 3000
|
|
:join? false
|
|
:handler (ig/ref :example/handler)}
|
|
:example/handler {}})
|
|
|
|
(defmethod ig/init-key :example/jetty [_ {:keys [port join? handler]}]
|
|
(println "server running in port" port)
|
|
(jetty/run-jetty handler {:port port :join? join?}))
|
|
|
|
(defmethod ig/halt-key! :example/jetty [_ server]
|
|
(.stop server))
|
|
|
|
(defmethod ig/init-key :example/handler [_ _]
|
|
(ring/ring-handler
|
|
(ring/router
|
|
["/ping" {:get {:handler (fn [_] {:status 200 :body "pong!"})}}])))
|
|
|
|
(defn -main []
|
|
(ig/init system-config))
|