                    bottom
                    x-value-fn
                    y-value-fn
+                   y-value-label-fn
                    y-label
+                   min-p
+                   max-p
                    title
                    description
                    fill

                   rigth       15
                   bottom      20
                   y-label     ""
                   fill        "orange"
                   over-fill   "rebeccapurple"}}]


            (-> texts
                ;;(.style "text-anchor" "middle")
                (.attr "x" (fn [row]
                             (let [d (x-scale (y-value-fn row))]
                                   (+ 2 (if (< 1 d) d 1)))))                
                (.attr "y" #(+
                             (y-scale (x-value-fn %))
                             (/ (.rangeBand y-scale) 2)))
                (.text (fn [row]
                         (str
                          (if y-value-label-fn
                            (y-value-label-fn row)
                            (y-value-fn row))))))

            (-> texts
                .exit
