first commit

env/dev/clj/transducerpres/middleware.clj

@@ -0,0 +1,10 @@
+(ns transducerpres.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/transducerpres/repl.clj

@@ -0,0 +1,33 @@
+(ns transducerpres.repl
+  (:use transducerpres.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/transducerpres/dev.cljs

@@ -0,0 +1,11 @@
+(ns ^:figwheel-no-load transducerpres.dev
+  (:require [transducerpres.core :as core]
+            [figwheel.client :as figwheel :include-macros true]))
+
+(enable-console-print!)
+
+(figwheel/watch-and-reload
+  :websocket-url "ws://localhost:3449/figwheel-ws"
+  :jsload-callback core/mount-root)
+
+(core/init!)