-----------------------------------------------------------------------------
{-# LANGUAGE LambdaCase #-}
{-# LANGUAGE OverloadedStrings #-}
-----------------------------------------------------------------------------
-- |
-- Module      :  Miso.Native.Element.Text.Event
-- Copyright   :  (C) 2016-2026 David M. Johnson
-- License     :  BSD3-style (see the file LICENSE)
-- Maintainer  :  David M. Johnson <code@dmj.io>
-- Stability   :  experimental
-- Portability :  non-portable
--
-- @since 1.13.0.0
----------------------------------------------------------------------------
module Miso.Native.Element.Text.Event
  ( -- *** Events
    onLayout
  , onLayoutWith
  , onLayoutMain
  , onLayoutMainWith
  , onSelectionChange
  , onSelectionChangeWith
  , onSelectionChangeMain
  , onSelectionChangeMainWith
    -- *** Types
  , LayoutEvent          (..)
  , LineInfo             (..)
  , Size                 (..)
  , SelectionChangeEvent (..)
  , Direction            (..)
    -- *** Decoders
  , layoutDecoder
  , selectionChangeDecoder
    -- *** Event Map
  , textEvents
  ) where
-----------------------------------------------------------------------------
import qualified Data.Map as M
import           Miso.Event
import           Miso.JSON
----------------------------------------------------------------------------
import           Miso.Types (Attribute, EventHandler, DOMRef)
----------------------------------------------------------------------------
-- | The 'Events' map for the Lynx @<text>@ element.
--
-- Combine with other element maps using @<>@ and pass the result to
-- 'Miso.Native.native', so the delegator listens for these events.
--
-- @since 1.13.0.0
textEvents :: Events
textEvents :: Events
textEvents
  = [(Text, Phase)] -> Events
forall k a. Ord k => [(k, a)] -> Map k a
M.fromList
  [ (Text
"layout", Phase
BUBBLE)
  , (Text
"selectionchange", Phase
BUBBLE)
  ]
-----------------------------------------------------------------------------
-- | https://lynxjs.org/api/elements/built-in/text.html#layout
--
-- The layout event returns the result information after text layout,
-- including the number of lines of the current text, and the start and
-- end positions of the text in each line relative to the entire text.
--
-- @
--
-- data Action = HandleLayout LayoutEvent
--
-- view :: Model -> View context props Model Action
-- view model = text_ [ onLayout HandleLayout ] [ text "hi" ]
--
-- update :: Action -> Effect context props Model Action
-- update (HandleLayout LayoutEvent {..}) = io_ (consoleLog "layout event received")
--
-- @
--
onLayout :: (LayoutEvent -> action) -> Attribute model action
onLayout :: forall action model.
(LayoutEvent -> action) -> Attribute model action
onLayout LayoutEvent -> action
action = Text
-> Decoder LayoutEvent
-> (LayoutEvent -> model -> DOMRef -> action)
-> Attribute model action
forall result model action.
Text
-> Decoder result
-> (result -> model -> DOMRef -> action)
-> Attribute model action
on Text
"layout" Decoder LayoutEvent
layoutDecoder (\LayoutEvent
e model
_ DOMRef
_ -> LayoutEvent -> action
action LayoutEvent
e)
-----------------------------------------------------------------------------
-- | Like 'onLayout', but dispatched on the Lynx __main thread__ (@MTS@).
--
-- Runs imperatively on the MTS (no VDOM diff). Meant to be used with
-- @-XStaticPointers@.
--
-- @
-- data Action = HandleLayout LayoutEvent
--
-- view_ [ event (static (onLayoutMain HandleLayout)) ] [ "some view" ]
-- @
--
onLayoutMain :: (LayoutEvent -> action) -> EventHandler model action
onLayoutMain :: forall action model.
(LayoutEvent -> action) -> EventHandler model action
onLayoutMain LayoutEvent -> action
action = Text
-> Decoder LayoutEvent
-> (LayoutEvent -> model -> DOMRef -> action)
-> EventHandler model action
forall result model action.
Text
-> Decoder result
-> (result -> model -> DOMRef -> action)
-> EventHandler model action
onMain Text
"layout" Decoder LayoutEvent
layoutDecoder (\LayoutEvent
e model
_ DOMRef
_ -> LayoutEvent -> action
action LayoutEvent
e)
-----------------------------------------------------------------------------
-- | Like 'onLayoutMain', but the handler also receives read-only access to the
-- @model@ and the target element's 'DOMRef' (for imperative MTS mutation).
--
-- @
-- data Action = HandleLayout LayoutEvent Model DOMRef
--
-- view_ [ event (static (onLayoutMainWith HandleLayout)) ] [ "some view" ]
-- @
--
onLayoutMainWith :: (LayoutEvent -> model -> DOMRef -> action) -> EventHandler model action
onLayoutMainWith :: forall model action.
(LayoutEvent -> model -> DOMRef -> action)
-> EventHandler model action
onLayoutMainWith LayoutEvent -> model -> DOMRef -> action
action = Text
-> Decoder LayoutEvent
-> (LayoutEvent -> model -> DOMRef -> action)
-> EventHandler model action
forall result model action.
Text
-> Decoder result
-> (result -> model -> DOMRef -> action)
-> EventHandler model action
onMain Text
"layout" Decoder LayoutEvent
layoutDecoder LayoutEvent -> model -> DOMRef -> action
action
-----------------------------------------------------------------------------
-- | https://lynxjs.org/api/elements/built-in/text.html#selectionchange
--
-- This event is triggered whenever the selected text range changes.
--
-- @
--
-- data Action = HandleSelectionChange SelectionChangeEvent
--
-- view :: Model -> View context props Model Action
-- view model = text_ [ onSelectionChange HandleSelectionChange ] [ text "hi" ]
--
-- update :: Action -> Effect context props Model Action
-- update (HandleSelectionChange SelectionChangeEvent {..}) =
--   io_ (consoleLog "selection change event received")
--
-- @
--
onSelectionChange :: (SelectionChangeEvent -> action) -> Attribute model action
onSelectionChange :: forall action model.
(SelectionChangeEvent -> action) -> Attribute model action
onSelectionChange SelectionChangeEvent -> action
action = Text
-> Decoder SelectionChangeEvent
-> (SelectionChangeEvent -> model -> DOMRef -> action)
-> Attribute model action
forall result model action.
Text
-> Decoder result
-> (result -> model -> DOMRef -> action)
-> Attribute model action
on Text
"selectionchange" Decoder SelectionChangeEvent
selectionChangeDecoder (\SelectionChangeEvent
e model
_ DOMRef
_ -> SelectionChangeEvent -> action
action SelectionChangeEvent
e)
-----------------------------------------------------------------------------
-- | Like 'onSelectionChange', but dispatched on the Lynx __main thread__ (@MTS@).
--
-- Runs imperatively on the MTS (no VDOM diff). Meant to be used with
-- @-XStaticPointers@.
--
-- @
-- data Action = HandleSelectionChange SelectionChangeEvent
--
-- view_ [ event (static (onSelectionChangeMain HandleSelectionChange)) ] [ "some view" ]
-- @
--
onSelectionChangeMain :: (SelectionChangeEvent -> action) -> EventHandler model action
onSelectionChangeMain :: forall action model.
(SelectionChangeEvent -> action) -> EventHandler model action
onSelectionChangeMain SelectionChangeEvent -> action
action = Text
-> Decoder SelectionChangeEvent
-> (SelectionChangeEvent -> model -> DOMRef -> action)
-> EventHandler model action
forall result model action.
Text
-> Decoder result
-> (result -> model -> DOMRef -> action)
-> EventHandler model action
onMain Text
"selectionchange" Decoder SelectionChangeEvent
selectionChangeDecoder (\SelectionChangeEvent
e model
_ DOMRef
_ -> SelectionChangeEvent -> action
action SelectionChangeEvent
e)
-----------------------------------------------------------------------------
-- | Like 'onSelectionChangeMain', but the handler also receives read-only access
-- to the @model@ and the target element's 'DOMRef' (for imperative MTS mutation).
--
-- @
-- data Action = HandleSelectionChange SelectionChangeEvent Model DOMRef
--
-- view_ [ event (static (onSelectionChangeMainWith HandleSelectionChange)) ] [ "some view" ]
-- @
--
onSelectionChangeMainWith :: (SelectionChangeEvent -> model -> DOMRef -> action) -> EventHandler model action
onSelectionChangeMainWith :: forall model action.
(SelectionChangeEvent -> model -> DOMRef -> action)
-> EventHandler model action
onSelectionChangeMainWith SelectionChangeEvent -> model -> DOMRef -> action
action = Text
-> Decoder SelectionChangeEvent
-> (SelectionChangeEvent -> model -> DOMRef -> action)
-> EventHandler model action
forall result model action.
Text
-> Decoder result
-> (result -> model -> DOMRef -> action)
-> EventHandler model action
onMain Text
"selectionchange" Decoder SelectionChangeEvent
selectionChangeDecoder SelectionChangeEvent -> model -> DOMRef -> action
action
-----------------------------------------------------------------------------
-- | t'Decoder' producing a t'SelectionChangeEvent' from the raw Lynx event payload.
--
-- Pass it to 'Miso.Event.on' \/ 'Miso.Event.onMain' when writing a handler by
-- hand; the @on*@ helpers in this module already use it.
--
-- @since 1.13.0.0
selectionChangeDecoder :: Decoder SelectionChangeEvent
selectionChangeDecoder :: Decoder SelectionChangeEvent
selectionChangeDecoder = [Text
"detail"] [Text]
-> (Value -> Parser SelectionChangeEvent)
-> Decoder SelectionChangeEvent
forall a. [Text] -> (Value -> Parser a) -> Decoder a
`at` Value -> Parser SelectionChangeEvent
parser
  where
    parser :: Value -> Parser SelectionChangeEvent
    parser :: Value -> Parser SelectionChangeEvent
parser = Text
-> (Map Text Value -> Parser SelectionChangeEvent)
-> Value
-> Parser SelectionChangeEvent
forall a. Text -> (Map Text Value -> Parser a) -> Value -> Parser a
withObject Text
"SelectionChangeEvent" ((Map Text Value -> Parser SelectionChangeEvent)
 -> Value -> Parser SelectionChangeEvent)
-> (Map Text Value -> Parser SelectionChangeEvent)
-> Value
-> Parser SelectionChangeEvent
forall a b. (a -> b) -> a -> b
$ \Map Text Value
o -> do
      Double -> Double -> Direction -> SelectionChangeEvent
SelectionChangeEvent
        (Double -> Double -> Direction -> SelectionChangeEvent)
-> Parser Double
-> Parser (Double -> Direction -> SelectionChangeEvent)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Map Text Value
o Map Text Value -> Text -> Parser Double
forall a. FromJSON a => Map Text Value -> Text -> Parser a
.: Text
"start"
        Parser (Double -> Direction -> SelectionChangeEvent)
-> Parser Double -> Parser (Direction -> SelectionChangeEvent)
forall a b. Parser (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Map Text Value
o Map Text Value -> Text -> Parser Double
forall a. FromJSON a => Map Text Value -> Text -> Parser a
.: Text
"end"
        Parser (Direction -> SelectionChangeEvent)
-> Parser Direction -> Parser SelectionChangeEvent
forall a b. Parser (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Map Text Value
o Map Text Value -> Text -> Parser Direction
forall a. FromJSON a => Map Text Value -> Text -> Parser a
.: Text
"direction"
-----------------------------------------------------------------------------
-- | Payload of a @<text>@ selection-change event: the @start@ and @end@
-- offsets of the new selection and the direction it was extended in.
-- 
-- @since 1.13.0.0
data SelectionChangeEvent
  = SelectionChangeEvent
  { SelectionChangeEvent -> Double
start, SelectionChangeEvent -> Double
end :: Double
  , SelectionChangeEvent -> Direction
direction :: Direction
  } deriving (Int -> SelectionChangeEvent -> ShowS
[SelectionChangeEvent] -> ShowS
SelectionChangeEvent -> String
(Int -> SelectionChangeEvent -> ShowS)
-> (SelectionChangeEvent -> String)
-> ([SelectionChangeEvent] -> ShowS)
-> Show SelectionChangeEvent
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> SelectionChangeEvent -> ShowS
showsPrec :: Int -> SelectionChangeEvent -> ShowS
$cshow :: SelectionChangeEvent -> String
show :: SelectionChangeEvent -> String
$cshowList :: [SelectionChangeEvent] -> ShowS
showList :: [SelectionChangeEvent] -> ShowS
Show, SelectionChangeEvent -> SelectionChangeEvent -> Bool
(SelectionChangeEvent -> SelectionChangeEvent -> Bool)
-> (SelectionChangeEvent -> SelectionChangeEvent -> Bool)
-> Eq SelectionChangeEvent
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SelectionChangeEvent -> SelectionChangeEvent -> Bool
== :: SelectionChangeEvent -> SelectionChangeEvent -> Bool
$c/= :: SelectionChangeEvent -> SelectionChangeEvent -> Bool
/= :: SelectionChangeEvent -> SelectionChangeEvent -> Bool
Eq)
-----------------------------------------------------------------------------
-- | The direction a text selection was extended in.
-- 
-- @since 1.13.0.0
data Direction = Forward | Backward
  deriving (Int -> Direction -> ShowS
[Direction] -> ShowS
Direction -> String
(Int -> Direction -> ShowS)
-> (Direction -> String)
-> ([Direction] -> ShowS)
-> Show Direction
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Direction -> ShowS
showsPrec :: Int -> Direction -> ShowS
$cshow :: Direction -> String
show :: Direction -> String
$cshowList :: [Direction] -> ShowS
showList :: [Direction] -> ShowS
Show, Direction -> Direction -> Bool
(Direction -> Direction -> Bool)
-> (Direction -> Direction -> Bool) -> Eq Direction
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Direction -> Direction -> Bool
== :: Direction -> Direction -> Bool
$c/= :: Direction -> Direction -> Bool
/= :: Direction -> Direction -> Bool
Eq)
-----------------------------------------------------------------------------
instance FromJSON Direction where
  parseJSON :: Value -> Parser Direction
parseJSON = Text -> (Text -> Parser Direction) -> Value -> Parser Direction
forall a. Text -> (Text -> Parser a) -> Value -> Parser a
withText Text
"Direction" ((Text -> Parser Direction) -> Value -> Parser Direction)
-> (Text -> Parser Direction) -> Value -> Parser Direction
forall a b. (a -> b) -> a -> b
$ \case
    Text
"forward" -> Direction -> Parser Direction
forall a. a -> Parser a
forall (f :: * -> *) a. Applicative f => a -> f a
pure Direction
Forward
    Text
"backward" -> Direction -> Parser Direction
forall a. a -> Parser a
forall (f :: * -> *) a. Applicative f => a -> f a
pure Direction
Backward
    Text
x -> Text -> Value -> Parser Direction
forall a. Text -> Value -> Parser a
typeMismatch Text
"Direction" (Text -> Value
forall a. ToJSON a => a -> Value
toJSON Text
x)
-----------------------------------------------------------------------------
-- | Payload of a @<text>@ layout event: how many lines were laid out,
-- per-line detail, and the resulting size.
-- 
-- @since 1.13.0.0
data LayoutEvent
  = LayoutEvent
  { LayoutEvent -> Double
lineInfoLineCount     :: Double
  , LayoutEvent -> [LineInfo]
lineInfoLines         :: [LineInfo]
  , LayoutEvent -> Size
lineInfoSize          :: Size
  } deriving (Int -> LayoutEvent -> ShowS
[LayoutEvent] -> ShowS
LayoutEvent -> String
(Int -> LayoutEvent -> ShowS)
-> (LayoutEvent -> String)
-> ([LayoutEvent] -> ShowS)
-> Show LayoutEvent
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> LayoutEvent -> ShowS
showsPrec :: Int -> LayoutEvent -> ShowS
$cshow :: LayoutEvent -> String
show :: LayoutEvent -> String
$cshowList :: [LayoutEvent] -> ShowS
showList :: [LayoutEvent] -> ShowS
Show, LayoutEvent -> LayoutEvent -> Bool
(LayoutEvent -> LayoutEvent -> Bool)
-> (LayoutEvent -> LayoutEvent -> Bool) -> Eq LayoutEvent
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: LayoutEvent -> LayoutEvent -> Bool
== :: LayoutEvent -> LayoutEvent -> Bool
$c/= :: LayoutEvent -> LayoutEvent -> Bool
/= :: LayoutEvent -> LayoutEvent -> Bool
Eq)
-----------------------------------------------------------------------------
-- | t'Decoder' producing a t'LayoutEvent' from the raw Lynx event payload.
--
-- Pass it to 'Miso.Event.on' \/ 'Miso.Event.onMain' when writing a handler by
-- hand; the @on*@ helpers in this module already use it.
--
-- @since 1.13.0.0
layoutDecoder :: Decoder LayoutEvent
layoutDecoder :: Decoder LayoutEvent
layoutDecoder = [Text
"detail"] [Text] -> (Value -> Parser LayoutEvent) -> Decoder LayoutEvent
forall a. [Text] -> (Value -> Parser a) -> Decoder a
`at` do
  Text
-> (Map Text Value -> Parser LayoutEvent)
-> Value
-> Parser LayoutEvent
forall a. Text -> (Map Text Value -> Parser a) -> Value -> Parser a
withObject Text
"LayoutEvent" ((Map Text Value -> Parser LayoutEvent)
 -> Value -> Parser LayoutEvent)
-> (Map Text Value -> Parser LayoutEvent)
-> Value
-> Parser LayoutEvent
forall a b. (a -> b) -> a -> b
$ \Map Text Value
o ->
    Double -> [LineInfo] -> Size -> LayoutEvent
LayoutEvent
      (Double -> [LineInfo] -> Size -> LayoutEvent)
-> Parser Double -> Parser ([LineInfo] -> Size -> LayoutEvent)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Map Text Value
o Map Text Value -> Text -> Parser Double
forall a. FromJSON a => Map Text Value -> Text -> Parser a
.: Text
"lineCount"
      Parser ([LineInfo] -> Size -> LayoutEvent)
-> Parser [LineInfo] -> Parser (Size -> LayoutEvent)
forall a b. Parser (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Map Text Value
o Map Text Value -> Text -> Parser [LineInfo]
forall a. FromJSON a => Map Text Value -> Text -> Parser a
.: Text
"lines"
      Parser (Size -> LayoutEvent) -> Parser Size -> Parser LayoutEvent
forall a b. Parser (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> do
        s <- Map Text Value
o Map Text Value -> Text -> Parser (Map Text Value)
forall a. FromJSON a => Map Text Value -> Text -> Parser a
.: Text
"size"
        Size <$> s .: "width" <*> s .: "height"
-----------------------------------------------------------------------------
instance FromJSON LineInfo where
  parseJSON :: Value -> Parser LineInfo
parseJSON = Text
-> (Map Text Value -> Parser LineInfo) -> Value -> Parser LineInfo
forall a. Text -> (Map Text Value -> Parser a) -> Value -> Parser a
withObject Text
"lineInfo" ((Map Text Value -> Parser LineInfo) -> Value -> Parser LineInfo)
-> (Map Text Value -> Parser LineInfo) -> Value -> Parser LineInfo
forall a b. (a -> b) -> a -> b
$ \Map Text Value
o ->
    Double -> Double -> Double -> LineInfo
LineInfo
      (Double -> Double -> Double -> LineInfo)
-> Parser Double -> Parser (Double -> Double -> LineInfo)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> Map Text Value
o Map Text Value -> Text -> Parser Double
forall a. FromJSON a => Map Text Value -> Text -> Parser a
.: Text
"start"
      Parser (Double -> Double -> LineInfo)
-> Parser Double -> Parser (Double -> LineInfo)
forall a b. Parser (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Map Text Value
o Map Text Value -> Text -> Parser Double
forall a. FromJSON a => Map Text Value -> Text -> Parser a
.: Text
"end"
      Parser (Double -> LineInfo) -> Parser Double -> Parser LineInfo
forall a b. Parser (a -> b) -> Parser a -> Parser b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
<*> Map Text Value
o Map Text Value -> Text -> Parser Double
forall a. FromJSON a => Map Text Value -> Text -> Parser a
.: Text
"ellipsisCount"
-----------------------------------------------------------------------------
-- | Per-line detail from a @<text>@ layout event: the character range the
-- line covers and how many characters were ellipsized.
-- 
-- @since 1.13.0.0
data LineInfo
  = LineInfo
  { LineInfo -> Double
lineInfoStart, LineInfo -> Double
lineInfoEnd, LineInfo -> Double
lineInfoEllipsisCount :: Double
  } deriving (Int -> LineInfo -> ShowS
[LineInfo] -> ShowS
LineInfo -> String
(Int -> LineInfo -> ShowS)
-> (LineInfo -> String) -> ([LineInfo] -> ShowS) -> Show LineInfo
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> LineInfo -> ShowS
showsPrec :: Int -> LineInfo -> ShowS
$cshow :: LineInfo -> String
show :: LineInfo -> String
$cshowList :: [LineInfo] -> ShowS
showList :: [LineInfo] -> ShowS
Show, LineInfo -> LineInfo -> Bool
(LineInfo -> LineInfo -> Bool)
-> (LineInfo -> LineInfo -> Bool) -> Eq LineInfo
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: LineInfo -> LineInfo -> Bool
== :: LineInfo -> LineInfo -> Bool
$c/= :: LineInfo -> LineInfo -> Bool
/= :: LineInfo -> LineInfo -> Bool
Eq)
-----------------------------------------------------------------------------
-- | The measured width and height of laid-out @<text>@ content, in px.
-- 
-- @since 1.13.0.0
data Size
  = Size
  { Size -> Double
sizeWidth, Size -> Double
sizeHeight :: Double
  } deriving (Int -> Size -> ShowS
[Size] -> ShowS
Size -> String
(Int -> Size -> ShowS)
-> (Size -> String) -> ([Size] -> ShowS) -> Show Size
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> Size -> ShowS
showsPrec :: Int -> Size -> ShowS
$cshow :: Size -> String
show :: Size -> String
$cshowList :: [Size] -> ShowS
showList :: [Size] -> ShowS
Show, Size -> Size -> Bool
(Size -> Size -> Bool) -> (Size -> Size -> Bool) -> Eq Size
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Size -> Size -> Bool
== :: Size -> Size -> Bool
$c/= :: Size -> Size -> Bool
/= :: Size -> Size -> Bool
Eq)
-----------------------------------------------------------------------------
-- | Like 'onLayout', but the handler also receives the target element's 'DOMRef'.
-- Use for main-thread (@MTS@) handlers that imperatively mutate the element.
onLayoutWith :: (LayoutEvent -> DOMRef -> action) -> Attribute model action
onLayoutWith :: forall action model.
(LayoutEvent -> DOMRef -> action) -> Attribute model action
onLayoutWith LayoutEvent -> DOMRef -> action
action = Text
-> Decoder LayoutEvent
-> (LayoutEvent -> model -> DOMRef -> action)
-> Attribute model action
forall result model action.
Text
-> Decoder result
-> (result -> model -> DOMRef -> action)
-> Attribute model action
on Text
"layout" Decoder LayoutEvent
layoutDecoder ((LayoutEvent -> model -> DOMRef -> action)
 -> Attribute model action)
-> (LayoutEvent -> model -> DOMRef -> action)
-> Attribute model action
forall a b. (a -> b) -> a -> b
$ \LayoutEvent
v model
_ DOMRef
domRef -> LayoutEvent -> DOMRef -> action
action LayoutEvent
v DOMRef
domRef
-----------------------------------------------------------------------------
-- | Like 'onSelectionChange', but the handler also receives the target element's 'DOMRef'.
-- Use for main-thread (@MTS@) handlers that imperatively mutate the element.
onSelectionChangeWith :: (SelectionChangeEvent -> DOMRef -> action) -> Attribute model action
onSelectionChangeWith :: forall action model.
(SelectionChangeEvent -> DOMRef -> action)
-> Attribute model action
onSelectionChangeWith SelectionChangeEvent -> DOMRef -> action
action = Text
-> Decoder SelectionChangeEvent
-> (SelectionChangeEvent -> model -> DOMRef -> action)
-> Attribute model action
forall result model action.
Text
-> Decoder result
-> (result -> model -> DOMRef -> action)
-> Attribute model action
on Text
"selectionchange" Decoder SelectionChangeEvent
selectionChangeDecoder ((SelectionChangeEvent -> model -> DOMRef -> action)
 -> Attribute model action)
-> (SelectionChangeEvent -> model -> DOMRef -> action)
-> Attribute model action
forall a b. (a -> b) -> a -> b
$ \SelectionChangeEvent
v model
_ DOMRef
domRef -> SelectionChangeEvent -> DOMRef -> action
action SelectionChangeEvent
v DOMRef
domRef
-----------------------------------------------------------------------------