 (defn download
   "Download a file, and save it to a known filename"
   [remote-file local-file]
-  (shell-out "curl" remote-file "-o" local-file "-s"))
+ ; (shell-out "curl" remote-file "-o" local-file "-s")
+  (shell-out "cp" "scratch/saved.tar.bz2" local-file))
 
 (defn untar
   "Untar a file, into directory"

  (:import org.xeustechnologies.jtar.TarInputStream)
  (:require [clojure.string :as string]))

(def handlers '[repo-handler autotools-handler])


(defn run-handlers
  "Run all the handlers on a definition"
  [config]
  (for [h handlers] (h config)))


(defn process-handlers
  "For each project definition, run all the handlers on it"
  [configurations]
  (functor/fmap run-handlers configurations))


(defn autotools-handler


(defn init [& argv]
  (proto.repl/init)
  (def configuration (-> argv
                          first
                          io/reader
                          slurp
                          yaml/parse-string))
  (process-configurations configuration))


(defn -main []
  (init *command-line-args*))
