-- }}}

-- Event / Behavior Combinators {{{

(#>>) :: UI Element -> (Element -> UI (E a),Element -> a -> UI void) -> UI Element
me #>> (mv,h) = do
  el <- me
  e  <- mv el
  onEvent e $ h el
  return el
(#>>) :: UI Element -> (Element -> UI (E a),Element -> a -> UI void) -> UI Element
me #>> (mv,h) = do
  el <- me
  e  <- mv el
  onEvent e $ h el
  return el
me #>> (mv,h) = do
  el <- me
  e  <- mv el
  onEvent e $ h el
  return el