split_file.clj

(use '[clojure.java.io :only [reader]])
(use '[clojure.string  :only [split]])

(def read-keys [:id :status :pos-contig :pos-position :pos-strand :neg-contig :neg-position :neg-strand])

(defn split-line [x]
  (split x #"\t"))

(defn create-read [x]
  (with-meta 
    (zipmap read-keys (split-line x)) 
    {:type ::read}))

(println
  (take 3
    (map create-read
      (rest ; Ignore the header line
        (line-seq
          (reader "data/read_status.tab"))))))