     (when-let [selected-row (h-code ((rows-by-code (:datasource ap))))]
       [:div
        [:h3 (:h-name selected-row)]
-       [:.slider]
+       (slider-widget {} slider2-control)
        (chart-cell selected-row 1)
        (interpretation selected-row)])))

                       (.destroy slider))
                     (dissoc state ::slider ::handler)))})

(rum/defcs slider-control < bs-slider rum/static [state value event-bus min max step]
  #_(prn "called slider-control with " value)
  (let [s [:#slider.slider
           [:input {:type "text"

        [:br {:key :br}]
        title])]))

(rum/defc slider-widget < rum/static [headers control slider-axis-value]
  [:div
   (map-indexed key-with
                [(slider-title headers)
                 (slider-labels)
                 (do
                   #_(prn "calling slider-control with " slider-axis-value)
                   (control slider-axis-value 0 1 0.01))
                 (axis-container slider-axis-value)])]  )

(rum/defc table-head < rum/static [ap headers column-keys event-bus slider-axis-value]
