nAttr \"embed\" ... @
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


-- uiEmbedC ∷ (DomBuilder t m, PostBuild t m) ⇒ Embed → m () → m (Event t ())
-- uiEmbedC b
embedD' ∷ forall t m a. (DomBuilder t m, PostBuild t m) ⇒ Dynamic t Embed → m a → m (Element EventResult (DomBuilderSpace m) t, a)
embedD' bm  = elDynAttr' "embed" (A.attrMap <$> bm)
embedD' bm  = elDynAttr' "embed" (A.attrMap <$> bm)