   ([opts]
    (let [state (create-initial-state (resolve-ring-handler opts))]
      (println (str "Figwheel: Starting server at http://localhost:" (:server-port state)))
-     (println (str "Figwheel: Serving files from '"
-                   (make-serve-from-display state) "'"))
      (assoc state :http-server (server state)))))
 
 (defn stop-server [{:keys [http-server]}]
   (http-server))
-

  (keep
   #(when (file-changed? st %)
      { :dependency-file true
        :file (remove-resource-path st %) })
   (dependency-files st)))

(defn make-sendable-file
  "Formats a namespace into a map that is ready to be sent to the client."
  [st nm]
  (let [n (-> nm name underscore)]
    { :file (ns-to-server-relative-path st n)
      :namespace (cljs.compiler/munge n)
      :meta-data (meta nm) }))


                 (:cljs changed-source-file-paths))))))

(let [root (norm-path (.getCanonicalPath (io/file ".")))]
  (defn remove-root-path 
    "relativize to the local root just in case we have an absolute path"
    [path]
    (string/replace-first (norm-path path) (str root "/") "")))

(defn file-changed?
  "Standard md5 check to see if a file actually changed."
