read_to_maps.clj

(defn read-to-maps [rows]
  (let [headers (->>
                  rows
                  first
                  (take-while (complement #{""}))
                  (map keyword))]
    (for [row (rest rows)]
      (zipmap headers row))))


(defn read-to-maps-eval [rows]
  (let [headers (->>
                  rows
                  first
                  (take-while (complement #{""}))
                  (map keyword))
        names (map (comp symbol name) headers)
        mapper (eval
                 `(fn [[~@names]]
                    ~(zipmap headers names)))]
    (map mapper (rest rows))))