children = do
embedC ∷ (DomBuilder t m, PostBuild t m) ⇒ Embed → m (Event t ())
embedC bm = do
  (e,_) ← elAttr' "embed" (A.attrMap bm) blank
  return $ domEvent Click e

-- uiEmbedD ∷ (DomBuilder t
embedD ∷ forall t m a. (DomBuilder t m, PostBuild t m) ⇒ Dynamic t Embed → m a → m a
embedD bm children = snd <$> embedD' bm children
embedD bm children = snd <$> embedD' bm children