gistfile1.clj

(ns jwget.core
  (:gen-class)
  (:require 
	    [clojure.contrib.http.agent :as h]
	    [clojure.contrib.duck-streams :as ds]
            [clojure.contrib.str-utils2 :as s])
  (:import [java.io FileOutputStream]))

(defn download
  [url]
  (h/http-agent url
                :handler (fn [agnt]
                           (with-open [w (FileOutputStream.
                                          (let [fullname (last (s/split url #"/"))
                                                [filename ext] (s/split fullname #"\.")]
                                            (str (name (gensym filename)) "." ext)))]
                             (ds/copy (h/stream agnt) w)))))

(defn download-all
  [urls]
  (doseq [url urls]
    (download url)))
 
(defn -main [& args]
  (download-all args))