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

       :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}))

(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"))
    (logging/info (str "starting sob on *:" port base))
    (serve-blog port (make-blog-app base (first paths)))))



