gistfile1.txt

(ns server.services.web-server
  (:require [aleph.http :as http]
            [bidi.ring :as br]
            [clojure.java.io :as io]
            [clojure.tools.logging :refer [info]]
            [mount.core :refer [defstate]]
            [yada.yada :refer [yada]]
            [yada.resources.classpath-resource :refer [new-classpath-resource]]
            [server.config :refer [config]]))

(def routes
  ["/" (yada (new-classpath-resource "public/"))])

(defstate web-server
  :start (do
           (info "Starting web server")
           (let [options (get-in config [:web-server :options])]
             (http/start-server (br/make-handler routes) options)))
  :stop  (do
           (info "Stopping web server")
           (.close web-server)))