     :model     model
     :tabs      tabs
     :on-change on-change
-    :style     style
     :id-fn     id-fn
     :label-fn  label-fn
-    :vertical? false))
+    :vertical? false
+    :class     class
+    :style     style
+    :attr      attr))
 
 (defn vertical-bar-tabs
-  [& {:keys [model tabs on-change id-fn label-fn style]
+  [& {:keys [model tabs on-change id-fn label-fn class style attr]
       :or   {id-fn :id label-fn :label}
       :as   args}]
   {:pre [(validate-args-macro tabs-args-desc args "tabs")]}

;;--------------------------------------------------------------------------------------------------

(defn- bar-tabs
  [& {:keys [model tabs on-change id-fn label-fn style vertical?]}]
  (let [current  (deref-or-value model)
        tabs     (deref-or-value tabs)
        _        (assert (not-empty (filter #(= current (id-fn %)) tabs)) "model not found in tabs vector")]
    [:div
     {:class (str "rc-tabs noselect btn-group" (if vertical? "-vertical"))
      :style (flex-child-style "none")}
     (for [t tabs]
       (let [id        (id-fn  t)
             label     (label-fn  t)



(defn horizontal-pill-tabs
  [& {:keys [model tabs on-change id-fn class style attr label-fn]
      :or   {id-fn :id label-fn :label}
      :as   args}]
  {:pre [(validate-args-macro tabs-args-desc args "tabs")]}
