d-gen.clj

(asdf)

(defn- state-line [[state results]]
  (let [d (->> results
               (sort-by :year)
               (reduce (fn [line {:keys [year from-center]}]
                         (conj line (str (x-for-margin from-center)
                                         ","
                                         (+ 10 (year-base year)))))
                       [])
               (interpose "L")
               (concat ["M"])
               (str/join " "))]
    [:path {:key state :d d :stroke "#ccc" :fill "none"}]))