lein new chestnut mw3

src/clj/mw3/server.clj

@@ -0,0 +1,27 @@
+(ns mw3.server
+  (:require [clojure.java.io :as io]
+            [compojure.core :refer [ANY GET PUT POST DELETE defroutes]]
+            [compojure.route :refer [resources]]
+            [ring.middleware.defaults :refer [wrap-defaults api-defaults]]
+            [ring.middleware.gzip :refer [wrap-gzip]]
+            [ring.middleware.logger :refer [wrap-with-logger]]
+            [environ.core :refer [env]]
+            [ring.adapter.jetty :refer [run-jetty]])
+  (:gen-class))
+
+(defroutes routes
+  (GET "/" _
+    {:status 200
+     :headers {"Content-Type" "text/html; charset=utf-8"}
+     :body (io/input-stream (io/resource "public/index.html"))})
+  (resources "/"))
+
+(def http-handler
+  (-> routes
+      (wrap-defaults api-defaults)
+      wrap-with-logger
+      wrap-gzip))
+
+(defn -main [& [port]]
+  (let [port (Integer. (or port (env :port) 10555))]
+    (run-jetty http-handler {:port port :join? false})))

src/cljs/mw3/core.cljs

@@ -0,0 +1,18 @@
+(ns mw3.core
+  (:require [om.core :as om :include-macros true]
+            [om.dom :as dom :include-macros true]))
+
+(enable-console-print!)
+
+(defonce app-state (atom {:text "Hello Chestnut!"}))
+
+(defn root-component [app owner]
+  (reify
+    om/IRender
+    (render [_]
+      (dom/div nil (dom/h1 nil (:text app))))))
+
+(om/root
+ root-component
+ app-state
+ {:target (. js/document (getElementById "app"))})