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

               ]))

(def info-right
  [:g {:transform (core/translate (- svg-width marg) (:height (meta header)))}
   (opentype/text
     {:text        "Særskatt på utvinning av petroleum"
      :text-anchor "end"

   {:p (:dato opts) :c saerskatt :h (get opts saerskatt) :fill saerskatt-fill}])

(defn make-txt [{dato :dato year :year summ :sum}]
  [:g {:transform (translate (xfn dato) (yfn summ))}
   [:circle {:r 2}]
   [:line {:stroke "black" :stroke-width 1 :fill "black" :y2 -8}]
   (opentype/text {:dy "-.71em" :text-anchor "middle" :text (str "(" year ")")})
