http.clj

(s/defrecord HttpKitWebServer 
  [server :- s/Fn
   ip     :- s/Str
   port   :- s/Int 
   app    :- RingHandler]

  component/Lifecycle
  (start [this]
    (when server (server))
    (let [nserver (httpkit/run-server (:app app) 
                                      {:port port
                                       :ip ip
                                       :max-body (pre (* 1024 1024 220))})]
      (assoc this :server nserver)))
  (stop [this]
    (when server
        ;; do stuff before killing it
       (server))
    (dissoc this :server)))

(defnk new-httpkit-web-server
  "Creates an HTTP-Kit component with an injectable ring handler"
  [ip   :- s/Str 
   port :- s/Int]
  (map->HttpKitWebServer {:ip ip :port port}))