reloadable-repl-clojure.clj

(comment
  (require '[reitit.ring        :as reitit])
  (require '[ring.adapter.jetty :as jetty])
  
  (defn health-check-route []
    ["/health-check"
     {:get
      {:handler
       (fn [_]
         {:status  200
          :headers {"Content-Type" "text/plain"}
          :body    "We good, blue?"})}}])

  (defn router []
    (reitit/router
      [(health-check-route)]))

  ;; NO BUENO - NOT REPL FRIENDLY - :(
  (def app
    (reitit/ring-handler (router) (constantly {:status 404})))
  
  ;; BUENO - REPL FRIENDLY - :)
  ;; 
  ;; Note: careful when working with some ring middleware as they won't behave as expected.
  ;; in some instances.  See https://github.com/metosin/reitit/issues/205
  ;; My preference is option 2 because you would likely go with your own store when you
  (defn app
    [req]
    ((reitit/ring-handler (router) (constantly {:status 404})) req))

  ;; BUENO - REPL + RING SESSION FRIENDLY - :)
  ;; 
  ;; Implement Option 2 from https://github.com/metosin/reitit/issues/205
  (def session-store (memory/memory-store))
  (defn app
    [req]
    ((reitit/ring-handler (router) (constantly {:status 404}) {:middleware [[wrap-session {:store session-store}]]}) req))

  (def server (jetty/run-jetty #'app {:port 3000 :join? false})))