             (when content content)
             (when actions actions)))
         (dom/div #js {:className (str "c-backdrop" state)})))))
-;TODO: Change the position to fixed and wrap the example in ui-iframe.  My testing with this did not work as expected.
 
 (def ui-modal
   "Render a modal. Normal HTML/React attributes can be included, and should be a cljs map (not a js object).

(defn ui-avatar
  "Render an icon or a short string within an avatar. Normal HTML/React attributes can be included, and should be a cljs map (not a js object).

  color (optional): :primary, :accent
  size (optional): huge"
  [{:keys [className color size style] :as props :or {className ""}} child]
  (let [legal-colors #{:primary :accent}
        legal-sizes  #{:medium :large :xlarge :huge}

           ;; menu-icon
           ;; menu-items
           className] :as attrs} & children]
  {:pre [(or (nil? style) (keyword? style))
         (or (nil? title) (string? title))]}
  (let [legal-styles #{:bordered :transparent :square}
        legal-colors #{:primary :accent}
        legal-sizes  #{:expand :wide}
        className    (or className "")
        classes      (cond-> (str "c-card " className)
                       (contains? legal-styles style) (str " c-card--" (name style))
                       (contains? legal-colors color) (str " c-card--" (name color))
                       (contains? legal-sizes size) (str " c-card--" (name size)))
        attributes   (-> attrs
                       (merge {:className classes})
                       (dissoc :title :style :color :size :actions :image :image-position :media-type :media)
                       clj->js)]
    (dom/div attributes
      (when media
        (dom/div #js {:className (str "c-card__media")}
