{-# LANGUAGE DeriveFunctor #-}
module Text.Blaze.Front.Event
(
mapActions
, onKeyDown
, onKeyUp
, onKeyPress
, onEnter
, onFocus
, onBlur
, onValueChange
, onCheckedChange
, onSelectedChange
, onSubmit
, onClick
, onDoubleClick
, onMouseDown
, onMouseUp
, onMouseMove
, onMouseEnter
, onMouseLeave
, onMouseOver
, onMouseOut
, onScroll
, onWheel
) where
import Prelude
import Text.Blaze.Front.Internal (Attribute (..), Markup,
MarkupM (..))
import Bridge
mapActions :: (act -> act') -> Markup act -> Markup act'
mapActions :: (act -> act') -> Markup act -> Markup act'
mapActions = (act -> act') -> Markup act -> Markup act'
forall act a act'. (act' -> act) -> MarkupM act' a -> MarkupM act a
MapActions
onKeyDown :: act -> Attribute act
onKeyDown :: act -> Attribute act
onKeyDown = EventHandler act -> Attribute act
forall act. EventHandler act -> Attribute act
onEvent (EventHandler act -> Attribute act)
-> (act -> EventHandler act) -> act -> Attribute act
forall b c a. (b -> c) -> (a -> b) -> a -> c
. act -> EventHandler act
forall a. a -> EventHandler a
OnKeyDown
onKeyUp :: act -> Attribute act
onKeyUp :: act -> Attribute act
onKeyUp = EventHandler act -> Attribute act
forall act. EventHandler act -> Attribute act
onEvent (EventHandler act -> Attribute act)
-> (act -> EventHandler act) -> act -> Attribute act
forall b c a. (b -> c) -> (a -> b) -> a -> c
. act -> EventHandler act
forall a. a -> EventHandler a
OnKeyUp
onKeyPress :: act -> Attribute act
onKeyPress :: act -> Attribute act
onKeyPress = EventHandler act -> Attribute act
forall act. EventHandler act -> Attribute act
onEvent (EventHandler act -> Attribute act)
-> (act -> EventHandler act) -> act -> Attribute act
forall b c a. (b -> c) -> (a -> b) -> a -> c
. act -> EventHandler act
forall a. a -> EventHandler a
OnKeyPress
onEnter :: act -> Attribute act
onEnter :: act -> Attribute act
onEnter = EventHandler act -> Attribute act
forall act. EventHandler act -> Attribute act
onEvent (EventHandler act -> Attribute act)
-> (act -> EventHandler act) -> act -> Attribute act
forall b c a. (b -> c) -> (a -> b) -> a -> c
. act -> EventHandler act
forall a. a -> EventHandler a
OnEnter
onFocus :: act -> Attribute act
onFocus :: act -> Attribute act
onFocus = EventHandler act -> Attribute act
forall act. EventHandler act -> Attribute act
onEvent (EventHandler act -> Attribute act)
-> (act -> EventHandler act) -> act -> Attribute act
forall b c a. (b -> c) -> (a -> b) -> a -> c
. act -> EventHandler act
forall a. a -> EventHandler a
OnFocus
onBlur :: act -> Attribute act
onBlur :: act -> Attribute act
onBlur = EventHandler act -> Attribute act
forall act. EventHandler act -> Attribute act
onEvent (EventHandler act -> Attribute act)
-> (act -> EventHandler act) -> act -> Attribute act
forall b c a. (b -> c) -> (a -> b) -> a -> c
. act -> EventHandler act
forall a. a -> EventHandler a
OnBlur
onValueChange :: act -> Attribute act
onValueChange :: act -> Attribute act
onValueChange = EventHandler act -> Attribute act
forall act. EventHandler act -> Attribute act
onEvent (EventHandler act -> Attribute act)
-> (act -> EventHandler act) -> act -> Attribute act
forall b c a. (b -> c) -> (a -> b) -> a -> c
. act -> EventHandler act
forall a. a -> EventHandler a
OnValueChange
onCheckedChange :: act -> Attribute act
onCheckedChange :: act -> Attribute act
onCheckedChange = EventHandler act -> Attribute act
forall act. EventHandler act -> Attribute act
onEvent (EventHandler act -> Attribute act)
-> (act -> EventHandler act) -> act -> Attribute act
forall b c a. (b -> c) -> (a -> b) -> a -> c
. act -> EventHandler act
forall a. a -> EventHandler a
OnCheckedChange
onSelectedChange :: act -> Attribute act
onSelectedChange :: act -> Attribute act
onSelectedChange = EventHandler act -> Attribute act
forall act. EventHandler act -> Attribute act
onEvent (EventHandler act -> Attribute act)
-> (act -> EventHandler act) -> act -> Attribute act
forall b c a. (b -> c) -> (a -> b) -> a -> c
. act -> EventHandler act
forall a. a -> EventHandler a
OnSelectedChange
onSubmit :: act -> Attribute act
onSubmit :: act -> Attribute act
onSubmit = EventHandler act -> Attribute act
forall act. EventHandler act -> Attribute act
onEvent (EventHandler act -> Attribute act)
-> (act -> EventHandler act) -> act -> Attribute act
forall b c a. (b -> c) -> (a -> b) -> a -> c
. act -> EventHandler act
forall a. a -> EventHandler a
OnSubmit
onClick :: act -> Attribute act
onClick :: act -> Attribute act
onClick = EventHandler act -> Attribute act
forall act. EventHandler act -> Attribute act
onEvent (EventHandler act -> Attribute act)
-> (act -> EventHandler act) -> act -> Attribute act
forall b c a. (b -> c) -> (a -> b) -> a -> c
. act -> EventHandler act
forall a. a -> EventHandler a
OnClick
onDoubleClick :: act -> Attribute act
onDoubleClick :: act -> Attribute act
onDoubleClick = EventHandler act -> Attribute act
forall act. EventHandler act -> Attribute act
onEvent (EventHandler act -> Attribute act)
-> (act -> EventHandler act) -> act -> Attribute act
forall b c a. (b -> c) -> (a -> b) -> a -> c
. act -> EventHandler act
forall a. a -> EventHandler a
OnDoubleClick
onMouseDown :: act -> Attribute act
onMouseDown :: act -> Attribute act
onMouseDown = EventHandler act -> Attribute act
forall act. EventHandler act -> Attribute act
onEvent (EventHandler act -> Attribute act)
-> (act -> EventHandler act) -> act -> Attribute act
forall b c a. (b -> c) -> (a -> b) -> a -> c
. act -> EventHandler act
forall a. a -> EventHandler a
OnMouseDown
onMouseUp :: act -> Attribute act
onMouseUp :: act -> Attribute act
onMouseUp = EventHandler act -> Attribute act
forall act. EventHandler act -> Attribute act
onEvent (EventHandler act -> Attribute act)
-> (act -> EventHandler act) -> act -> Attribute act
forall b c a. (b -> c) -> (a -> b) -> a -> c
. act -> EventHandler act
forall a. a -> EventHandler a
OnMouseUp
onMouseMove :: act -> Attribute act
onMouseMove :: act -> Attribute act
onMouseMove = EventHandler act -> Attribute act
forall act. EventHandler act -> Attribute act
onEvent (EventHandler act -> Attribute act)
-> (act -> EventHandler act) -> act -> Attribute act
forall b c a. (b -> c) -> (a -> b) -> a -> c
. act -> EventHandler act
forall a. a -> EventHandler a
OnMouseMove
onMouseEnter :: act -> Attribute act
onMouseEnter :: act -> Attribute act
onMouseEnter = EventHandler act -> Attribute act
forall act. EventHandler act -> Attribute act
onEvent (EventHandler act -> Attribute act)
-> (act -> EventHandler act) -> act -> Attribute act
forall b c a. (b -> c) -> (a -> b) -> a -> c
. act -> EventHandler act
forall a. a -> EventHandler a
OnMouseEnter
onMouseLeave :: act -> Attribute act
onMouseLeave :: act -> Attribute act
onMouseLeave = EventHandler act -> Attribute act
forall act. EventHandler act -> Attribute act
onEvent (EventHandler act -> Attribute act)
-> (act -> EventHandler act) -> act -> Attribute act
forall b c a. (b -> c) -> (a -> b) -> a -> c
. act -> EventHandler act
forall a. a -> EventHandler a
OnMouseLeave
onMouseOver :: act -> Attribute act
onMouseOver :: act -> Attribute act
onMouseOver = EventHandler act -> Attribute act
forall act. EventHandler act -> Attribute act
onEvent (EventHandler act -> Attribute act)
-> (act -> EventHandler act) -> act -> Attribute act
forall b c a. (b -> c) -> (a -> b) -> a -> c
. act -> EventHandler act
forall a. a -> EventHandler a
OnMouseOver
onMouseOut :: act -> Attribute act
onMouseOut :: act -> Attribute act
onMouseOut = EventHandler act -> Attribute act
forall act. EventHandler act -> Attribute act
onEvent (EventHandler act -> Attribute act)
-> (act -> EventHandler act) -> act -> Attribute act
forall b c a. (b -> c) -> (a -> b) -> a -> c
. act -> EventHandler act
forall a. a -> EventHandler a
OnMouseOut
onScroll :: act -> Attribute act
onScroll :: act -> Attribute act
onScroll = EventHandler act -> Attribute act
forall act. EventHandler act -> Attribute act
onEvent (EventHandler act -> Attribute act)
-> (act -> EventHandler act) -> act -> Attribute act
forall b c a. (b -> c) -> (a -> b) -> a -> c
. act -> EventHandler act
forall a. a -> EventHandler a
OnScroll
onWheel :: act -> Attribute act
onWheel :: act -> Attribute act
onWheel = EventHandler act -> Attribute act
forall act. EventHandler act -> Attribute act
onEvent (EventHandler act -> Attribute act)
-> (act -> EventHandler act) -> act -> Attribute act
forall b c a. (b -> c) -> (a -> b) -> a -> c
. act -> EventHandler act
forall a. a -> EventHandler a
OnWheel
onEvent :: EventHandler act -> Attribute act
onEvent :: EventHandler act -> Attribute act
onEvent EventHandler act
eh = (forall a. MarkupM act a -> MarkupM act a) -> Attribute act
forall ev. (forall a. MarkupM ev a -> MarkupM ev a) -> Attribute ev
Attribute (EventHandler act -> MarkupM act a -> MarkupM act a
forall act a. EventHandler act -> MarkupM act a -> MarkupM act a
OnEvent EventHandler act
eh)
{-# INLINE onEvent #-}