Basic http server with http-kit and boot

readme.md

Start server with boot run (task) or ./build.boot (run entire script as executable)

build.boot

#!/usr/bin/env boot

(set-env! :dependencies '[[http-kit/http-kit "2.1.18"]])
(require '[org.httpkit.server :refer [run-server]])

(defn handler
  [request]
  (prn request)
  {:status 200
   :headers {}
   :body "hello there!"})

(deftask run
  []
  (let [shutdown (promise)
        stop-server (run-server handler {:port 3000})]
    (do
        (.addShutdownHook (.. Runtime getRuntime)
                          (Thread. (fn []
                                     (do
                                       (println "shutting down...")
                                       (@stop-server)
                                       (deliver shutdown nil)))))
        (println "listening on 3000")
        @shutdown)))

(defn -main [& args]
  (run))