 
 (defn ui-card
   "Card component
-   usage
+
+   Usage
    (c/ui-card {:title          \"Some Title\"
                :color          :primary | :accent
                :type           :bordered | :transparent | :square

      (when actions
        (dom/div #js {:className "c-card__actions"} actions))
      ;; TODO
      #_(when menu-icon
        (dom/div #js {:className "c-card__menu"}
          (menu/menu :a (icon menu-icon) menu-items))))))

(defn ui-icon-bar
  "Render an icon bar giving using a vector of icons (each a map of attributes).
   Can optionally be render vertically ond/or shifting.
   Normal HTML/React attributes can be included, and should be a cljs map (not a js object).

  orientation (optional): :vertical or :horizontal (default)
  shifting (optional): :true"
  [{:keys [className orientation shifting] :as props :or {className ""}} & children]
  (let [user-classes    (get props :className "")
        top-level-class (cond-> (str user-classes " o-iconbar")

                          (= shifting :true) (str " o-iconbar--shifting"))]
    (dom/div #js {}
      (apply dom/nav #js {:className top-level-class} children))))

