gistfile1.clj

(defn fetch-from 
  ([url]
     (try
      (map #(if (= (last  %) \/) [% (fetch-from (str url %))] %)
	    (map #(get-in % [:attrs :href]) 
		 (filter #(and 
			   (= :a (:name %)) 
			   (= :start-element (:type %))
			   (not= \. (first (get-in % [:attrs :href])))) (parse-seq url nv-startparse))))
      (catch Throwable e (println url))
      (catch  java.lang.RuntimeException e (println url))))
  ([] (fetch-from "http://clojars.org/repo/")))