doseq-indexed

gistfile1.clj

;; Example:

;; (doseq-indexed idx [name names]
;;   (println (str idx ". " name)

(defmacro doseq-indexed-functional [index-sym [item-sym coll] & body]                                                                                         
  `(doseq [[~item-sym ~index-sym]                                                                                                                             
           (map vector ~coll (range))]                                                                                                                        
       ~@body))       

Here is a live version of this gist http://bit.ly/1VQUSNk