          :orientation   :bottom
          :tick-values   (vec (distinct (flatten [(first x-domain)
                                                  (range 1970 2017 5)])))
-         ;(last x-domain)])))
          :tick-format   (fn [x] (cond (= x 1967) "67"
                                       (= x 2017) "17"
                                       :else x))

             "OSEBERG"           cyan
             "ÅSGARD"            hydro-blue
             "HEIDRUN"           "#bcbd22"
             "OTHERS_PRE_1990"   "#969696"                  ;""#7f7f7f"
             "OTHERS_POSTE_1990" "#a1d99b"                  ;"#B6b6b6"
             "OTHERS_POSTE_2000" "rgb(231, 186, 82)"
             "JOHAN SVERDRUP"    dark-purple
             "JOHAN CASTBERG"    pink})

(def marg 10)
(def two-marg (* 2 marg))

                     :x      xx
                     :y      yy}))

(defn diagram []
  [:svg {:xmlns "http://www.w3.org/2000/svg" :width svg-width :height svg-height}
   [:g {:transform (translate marg marg)}
