Formatting JLR's zombie table into JSON so that Flot can deal with it

gistfile1.clj

(require '[clojure.string :as s])


;; install is a wrapper in utilza around pomegranate's add-dependencies
(install '[[cheshire "4.0.0"]])

(use 'cheshire.core)

(defn get-lines [f]
  (->  f
       slurp
       (s/split  #"\n")))



(defn make-series [d n]
  (let [label (-> d (nth n) first)]
    [label
     {:label label
      :data 
      (->> (zipmap (first d) (nth d n))
           (into (sorted-map))
           butlast)}]))




(defn parse [f]
  (->>  f
        get-lines
        (map #(s/split % #"\s+"))
        (apply map vector))) ;; transpose



(defn jsonify [d]
  (->> (map #(make-series d %)
            (range 1 (count d)))
       (into {})
       encode))



(->> "/home/localkens/misctech/webdev/zombies/data.txt"
     parse
     jsonify
     (spit "/home/localkens/misctech/webdev/zombies/data.json"))

Fun! How about infra- and inter-category comparison? See each "undead" vs. all others (zombies, vampires, and mummies) or see "undead" collectively vs. "monster" (dragons, dinosaurs, and aliens, maybe?).