first commit

env/dev/clj/website/middleware.clj

@@ -0,0 +1,10 @@
+(ns website.middleware
+  (:require [ring.middleware.defaults :refer [site-defaults wrap-defaults]]
+            [prone.middleware :refer [wrap-exceptions]]
+            [ring.middleware.reload :refer [wrap-reload]]))
+
+(defn wrap-middleware [handler]
+  (-> handler
+      (wrap-defaults site-defaults)
+      wrap-exceptions
+      wrap-reload))

env/dev/clj/website/repl.clj

@@ -0,0 +1,33 @@
+(ns website.repl
+  (:use website.handler
+        figwheel-sidecar.repl-api
+        ring.server.standalone
+        [ring.middleware 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) 3000)]
+    (reset! server
+            (serve (get-handler)
+                   {:port port
+                    :auto-reload? true
+                    :join? false}))
+    (println (str "You can view the site at http://localhost:" port))))
+
+(defn stop-server []
+  (.stop @server)
+  (reset! server nil))

env/dev/cljs/website/dev.cljs

@@ -0,0 +1,10 @@
+(ns ^:figwheel-no-load website.dev
+  (:require
+    [website.core :as core]
+    [devtools.core :as devtools]))
+
+(devtools/install!)
+
+(enable-console-print!)
+
+(core/init!)