 
 (def x (:x c))
 (def y (:y c))
-(def y2 (:y c))
+(def y2 (:y2 c))
 
 (def xfn (partial point/center-point x))
 (def yfn (partial point/center-point y))

(def yy {:type        :linear
         :orientation :left
         ;:ticks       5
         :domain      [0 260]})

(def yy2 {:type        :linear
          :orientation :right
          :domain      [0 120]})

(def available-height (- svg-height (:height (meta header)) (:height (meta footer))))


            [clj-simple-chart.rect :as rect]
            [clj-simple-chart.point :as point]
            [clj-simple-chart.opentype :as opentype]
            [clojure.test :as test]
            [clojure.string :as string]))

(def ordinaer (keyword "Ordinær skatt på utvinning av petroleum"))
(def saerskatt (keyword "Særskatt på utvinning av petroleum"))

(def oil-date-to-usd brentoilprice/brent-12-mma-dato-to-usd)

(def data (->> petroskatt/twelve-mma-mrd
               (mapv #(assoc % :year (read-string (subs (:dato %) 0 4))))
               (mapv #(assoc % :sum (+ (get % ordinaer) (get % saerskatt))))
               (mapv #(assoc % :oilprice (get oil-date-to-usd (:dato %) ::none)))
               #_(filter #(>= (:year %) 2010))))

(test/is (= 0 (count (filter #(= ::none (:oilprice %)) data))))

(def x-domain (map :dato data))

