server.clj

(ns app-boilerplate.server
  (:require [aleph.http :as http]
            [clojure.java.io :as io]
            [mount.core :as mount :refer [defstate]]
            [hiccup.page :refer [html5 include-js]]))

(def index
  (html5
   [:html
    [:head {:lang "en"}
     [:meta {:name "viewport"
             :content "width=device-width, initial-scale=1, maximum-scale=1, user-scalable=no"}]
     [:meta {:charset "UTF-8"}]
     [:title "title"]]
    [:body
     [:div#app
      [:h1 "Waiting for cljs to compile..."]]
     (include-js "main.js")]]))

(defn handler [{:keys [uri] :as req}]
  (if (= uri "/")
    {:status 200
     :headers {"content-type" "text/html"}
     :body index}
    {:status 200
     :headers {"content-type" "text/javascript"}
     :body (slurp (io/resource (subs uri 1)))}))

(defstate server
  :start (http/start-server #'handler {:port 3000})
  :stop (.close server))

(defn start [] (mount/start))