                         (contains? legal-sizes size) (str " c-icon--" (name size)))
          props        (-> props
                         (assoc :className classes)
-                        (dissoc :size :color))]
+                        (dissoc :size :color :glyph))]
      (dom/span (clj->js props) (if glyph
                                  (icon glyph)
                                  child)))))

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


(defn ui-card
  "Card component

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