mbed → m a → m (Element EventResult (DomBuilderSpace m) t, a)
embedD' bm  = elDynAttr' "embed" (A.attrMap <$> bm)

-- | A short-hand notion for @ el
embedN ∷ forall t m a. DomBuilder t m ⇒ m a → m a
embedN children = snd <$> embedN' children
embedN children = snd <$> embedN' children