     (view {:style header-style})))
 
 
-(defn bar-value-label [{:keys [font-size font-weight text-color on-edge]} palette formatter value]
+(defn bar-value-label [{:keys [font-size font-weight text-color on-edge formatter]} palette value]
   (view {:style {:flex           1
                  :position       "absolute"
                  on-edge         0


(defn animate-function [key f initial-value]
  (letfn [(upd [state]
            (let [[_ _ value] (:rum/args state)]
              #_(.start (animated-spring (key state) #js {:toValue (f value) :friction 10 :tension 60}))
              (.start (animated-timing (key state) #js {:toValue (f value) :duration 200
                                                        :easing  (ease-out ease)}))

                                       :textAlign    "right"
                                       :paddingRight 10}}
                              "Without"))
                  (view {:style {:flex 0.2}} (labelled-vertical-bar palette br))
                  (view {:style {:flex 0.04}})
                  (view {:style {:flex 0.2}} (labelled-vertical-bar palette er))
                  (view {:style {:flex           0.3
                                 :justifyContent "center"}}
                        (text {:style {:color     (:text-icons palette)
