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

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


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

(def sort-columns (atom [[5 true] [1 false]]))

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