 
 (def colour-map (:brewer-YlGnBu colour-map-options))
 
+
+(r/defc bar < r/static [slider value fill]
+  [:div {:style {:vertical-align "middle"
+                 :display "inline-table"
+                 :background-color fill
+                 :margin-top "5px"
+                 :height "25px"
+                 :width (str (bar-width slider value) "%")}
+         }])
+
 (r/defc bar-chart < r/static [row]
   (let [slider 0.9]
     [:div

          {:key :axis
           :style {:padding 0
                   :margin 0
                   :white-space "nowrap"
                   :display "inline-block"
                   :vertical-align "top"

                }
        (for [row rows]
          [:tr {:key (:h-code row)
                }
           (for [column-key column-keys :when (-> headers column-key :shown)]
             [:td {:key [column-key "r"]}
              (column-key row)])
