composeIcon :: (MonadReader (DS r) m, In Bool r, MS m) => m (ES a) -> m (ES a)  -> m (ES a)
composeIcon x y = fmap leftmost . divClass "compose" . sequence $ [
  divClass "compose-x" x,
  divClass "compose-plus" (icon ["plus","2x"] "or") >> return never,
  divClass "compose-y" y
  ]
composeIcon :: (MonadReader (DS r) m, In Bool r, MS m) => m (ES a) -> m (ES a)  -> m (ES a)
composeIcon x y = fmap leftmost . divClass "compose" . sequence $ [
  divClass "compose-x" x,
  divClass "compose-plus" (icon ["plus","2x"] "or") >> return never,
  divClass "compose-y" y
  ]
composeIcon x y = fmap leftmost . divClass "compose" . sequence $ [
  divClass "compose-x" x,
  divClass "compose-plus" (icon ["plus","2x"] "or") >> return never,
  divClass "compose-y" y
  ]