        :body (str req)})))
 
 (defn serve-blog
-  "Start serving a blog at http://*:port/base."
-  [port base path]
-  (logging/info (str "starting sob on *:" port base ", serving " path))
-  (ring.adapter.jetty/run-jetty (make-blog-app port base path) {:port port}))
+  [port app]
+  (ring.adapter.jetty/run-jetty app {:port port}))
 
 (defn -main [& args]
   (cmdline/with-command-line args

      (die "only one file system path currently supported"))
    (if (empty? paths)
      (die "must specify the path to a blog"))
    (serve-blog port base (first paths))))




  (System/exit 1))

(defn make-blog-app
  [base path]
  (let [repos (repos/new path)]
    (fn [req]
      {:status 200
