 (defn compare-all
   "return a sort-by key-fn which operates on all sort-columns"
   [sort-columns]
+  (prn sort-columns)
   (reduce #(compare-merge %1 %2) (constantly 0)  sort-columns)
   )
 

  (assoc data :rows (sort (compare-all sort-columns) (:rows data)))
  )

(r/defc table1 < r/reactive (data-table-on :#table1) [data]
  (let [headers (:headers data)
        visible-headers (- (count headers) 1)]
    [:div.row
     [:div.col-md-12

           ]]

       [:tbody {:key :tbody}
        (let [rows (:rows sdata)]
          (for [row (range (count rows))]
            (let [row-cells (nth rows row)]
              [:tr {:key row}
