progress on bugs

src/cljs/auto_ap/views/components/grid.cljs

@@ -121,11 +121,12 @@
                            (mapv (fn [c]
                                    [:div.level-item c]) children))]]))))]))
 
-(defn table [{:keys [fullwidth]}]
+(defn table [{:keys [fullwidth class]}]
   
   (into 
-   [:table.table.compact.grid {:class (if fullwidth
-                                        ["is-fullwidth"])}]
+   [:table.table.compact.grid {:class (cond-> []
+                                        fullwidth (conj "is-fullwidth")
+                                        class (into class))}]
    (r/children (r/current-component))))
 
 (defn header []
@@ -172,7 +173,7 @@
          (map r/as-element (r/children (r/current-component)))))
 
 (defn cell [params]
-  (apply r/create-element "td" #js {}
+  (apply r/create-element "td" #js {:className (:class params)}
          (map r/as-element (r/children (r/current-component))))
   )