-- Like getAttributes but incorporates inheritable attributes.
getNameAttributes :: X.Element -> ElementParser Attributes
getNameAttributes node = do
  nameattr <- ask
  let xattr = X.elementAttributes node <> nameattr
  return $ Attributes $ M.mapKeys X.nameLocalName xattr
getNameAttributes :: X.Element -> ElementParser Attributes
getNameAttributes node = do
  nameattr <- ask
  let xattr = X.elementAttributes node <> nameattr
  return $ Attributes $ M.mapKeys X.nameLocalName xattr
getNameAttributes node = do
  nameattr <- ask
  let xattr = X.elementAttributes node <> nameattr
  return $ Attributes $ M.mapKeys X.nameLocalName xattr