ldview/src/ldview/repl.clj

(ns ldview.repl
  (:require [ldview.handler :refer :all]
            [ring.server.standalone :refer :all]
            [ring.middleware :refer [file-info file]]))

(defonce server (atom nil))

(defn get-handler []
  ;; #'app expands to (var app) so that when we reload our code,
  ;; the server is forced to re-resolve the symbol in the var
  ;; rather than having its own copy. When the root binding
  ;; changes, the server picks it up without having to restart.
  (-> #'app
    ; Makes static assets in $PROJECT_DIR/resources/public/ available.
    (wrap-file "resources")
    ; Content-Type, Content-Length, and Last Modified headers for files in body
    (wrap-file-info)))

(defn start-server
  "used for starting the server in development mode from REPL"
  [& [port]]
  (let [port (if port (Integer/parseInt port) 8080)]
    (reset! server
            (serve (get-handler)
                   {:port port
                    :init init
                    :destroy destroy
                    :auto-reload? true
                    :auto-refresh? true
                    :open-browser? false
                    :join? false}))))

(defn stop-server []
  (.stop @server)
  (reset! server nil))