implemented the simplest web user interface possible

env/dev/clj/skirmish/wui/middleware.clj

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

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

@@ -0,0 +1,19 @@
+(ns skirmish.wui.cards
+  (:require [reagent.core :as reagent :refer [atom]]
+            [skirmish.wui.core :as core]
+            [devcards.core :as dc])
+  (:require-macros
+   [devcards.core
+    :as dc
+    :refer [defcard defcard-doc defcard-rg deftest]]))
+
+(defcard-rg first-card
+  [:div>h1 "This is your first devcard!"])
+
+(defcard-rg home-page-card
+  [core/home-page])
+
+(reagent/render [:div] (.getElementById js/document "app"))
+
+;; remember to run 'lein figwheel devcards' and then browse to
+;; http://localhost:3449/cards

env/dev/cljs/skirmish/wui/dev.cljs

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