     (siphon chat ch)
     (siphon ch chat)))
 
+(defn serve-page [page]
+  (-> (resp/resource-response (str page ".html") {:root "public"})
+      (resp/content-type "text/html")))
+
 (defroutes app-routes
-  (route/resources "/")
   (GET "/api/apps" [] apps-handler)
   (GET "/api/channels" [] channels-handler)
   (POST "/api/channels" [] new-channel-handler)

    (korma/transform
      (fn [m] (:message m))))

  (start-http-server (wrap-ring-handler (params/wrap-params app-routes))
                     {:port 3000 :websocket true}))

(defn channels-handler [request]
  (edn-response
    (let [params (:params request)
          lon (read-string (:lon params))
          lat (read-string (:lat params))]
      (get-channels lon lat))))

(defn new-channel [channel-name lon lat]
