TSV reader

(ns net.myexperiments.TSVReader
  (:require [clojure.string :as st])
  (:import (java.util.regex Pattern) (java.io File)))
(def tbl (slurp (File. "C:\\Users\\notostraca\\Documents\\Code\\Rebel Saga\\RebelSagaClasses.txt")))
(def tbl-rows (st/split-lines tbl))
(def pat-t (. Pattern compile "\t"))
(def header (st/split (first tbl-rows) pat-t))
(defrecord Row (vec header))
(println (apply ->Row "a"))
(defn make-data [row] (zipmap header (st/split row pat-t)))
(defn make-data2 [row] (st/split row pat-t))
(def all-rows (apply sorted-map (interleave
                                   (map (fn [rw] (first (st/split rw pat-t))) (rest tbl-rows))
                                   (map (fn [a] (apply ->Row (vec (st/split a pat-t)))) (rest tbl-rows)))))
(def data-rows (apply sorted-map (interleave
                                   (map (fn [rw] (first (st/split rw pat-t))) (rest tbl-rows))
                                   (map make-data (rest tbl-rows)))))
(println data-rows)

(println (data-rows "Vanguard"))

(println ((data-rows "Vanguard") "Intellect"))

(println (keys data-rows))