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


(def colour-map (:brewer-YlGnBu colour-map-options))

(r/defc bar-chart < r/static [row]
  (let [slider 0.9]
    [:div

                     :padding 0
                     :margin 0
                     :width "100%"
                     :height "100%"
                     :border-left "none"
                     :border-right "none"
                     :border-bottom "none"
                     :border-top "1px solid #dddddd"
                     :position "relative"
                     :white-space "nowrap"
                     :display "inline-block"
                     :background-color "#EDF8B1"}}
            (bar-chart row)]])]]]])
  )
