 
 
 (defn stop
+  "Stop HTTP Kit, using the stop function as returned by `start`."
   [stop-fn]
   (println "Stopping HTTP Kit...")
   (stop-fn)



(defmacro matcher
  [{:keys [host-regex context-path]} uri-sym server-name-sym]
  (let [host-test `(re-matches ~host-regex ~server-name-sym)
        context-test `(.startsWith ~uri-sym ~context-path)]

;;; Ring server management.

(defn start
  "Start HTTP Kit, based on the specified spec config."
  [config]
  (println "Starting HTTP Kit using config:" (:http-kit config))
  (make-app)
