-----------------------------------------------------------------------------
{-# LANGUAGE FlexibleInstances     #-}
{-# LANGUAGE DataKinds             #-}
{-# LANGUAGE OverloadedStrings     #-}
{-# LANGUAGE MultiParamTypeClasses #-}
-----------------------------------------------------------------------------
-- |
-- Module      :  Miso.Svg.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
--
-- = Overview
--
-- "Miso.Svg.Event" provides event-handler 'Miso.Types.Attribute' values
-- for SVG-specific DOM events. All handlers use 'Miso.Event.emptyDecoder'
-- — they fire a fixed action with no payload extracted from the event
-- object. This module is re-exported by "Miso.Svg".
--
-- For pointer and keyboard events on SVG elements, use the handlers from
-- "Miso.Html.Event" directly — they work on any DOM element regardless of
-- namespace.
--
-- = Quick start
--
-- @
-- import "Miso"
-- import "Miso.Svg"
--
-- data Action = AnimDone | Zoomed
--
-- view :: Model -> 'Miso.Types.View' Model Action
-- view _ =
--   'svg_' []
--     [ 'animate_'
--         [ 'onEnd'  AnimDone
--         , 'onZoom' Zoomed
--         ]
--     , 'circle_'
--         [ 'onClick'    Toggle
--         , 'onMouseOver' Highlight
--         ]
--     ]
-- @
--
-- = Event groups
--
-- * __Animation__ (@\<animate\>@, @\<animateTransform\>@, …):
--   'onBegin', 'onEnd', 'onRepeat'
--
-- * __Document__ (fires on @\<svg\>@ root):
--   'onAbort', 'onError', 'onResize', 'onScroll', 'onZoom'
--
-- * __Graphical__ (fires on any visible SVG element):
--   'onActivate', 'onClick', 'onFocusIn', 'onFocusOut',
--   'onMouseDown', 'onMouseMove', 'onMouseOut', 'onMouseOver', 'onMouseUp'
--
-- Note: 'onClick' is re-exported from "Miso.Html.Event" and is identical
-- to the HTML version.
--
-- = See also
--
-- * "Miso.Html.Event" — 'Miso.Html.Event.onPointerDown', 'Miso.Html.Event.onKeyDown', …
--   work on SVG elements too
-- * "Miso.Svg.Element" — SVG element constructors
-- * "Miso.Event" — 'Miso.Event.on', 'Miso.Event.emptyDecoder' primitives
----------------------------------------------------------------------------
module Miso.Svg.Event
  ( -- *** Animation
    onBegin
  , onEnd
  , onRepeat
    -- *** Document
  , onAbort
  , onError
  , onResize
  , onScroll
  , onZoom
    -- *** Graphical
  , onActivate
  , onClick
  , onFocusIn
  , onFocusOut
  , onMouseDown
  , onMouseMove
  , onMouseOut
  , onMouseOver
  , onMouseUp
  ) where
-----------------------------------------------------------------------------
import Miso.Event (on, emptyDecoder)
import Miso.Html.Event (onClick)
import Miso.Types (Attribute)
-----------------------------------------------------------------------------
-- | onBegin event
onBegin :: action -> Attribute model action
onBegin :: forall action model. action -> Attribute model action
onBegin action
action = MisoString
-> Decoder ()
-> (() -> model -> DOMRef -> action)
-> Attribute model action
forall result model action.
MisoString
-> Decoder result
-> (result -> model -> DOMRef -> action)
-> Attribute model action
on MisoString
"begin" Decoder ()
emptyDecoder ((() -> model -> DOMRef -> action) -> Attribute model action)
-> (() -> model -> DOMRef -> action) -> Attribute model action
forall a b. (a -> b) -> a -> b
$ \() model
_ DOMRef
_ -> action
action
-----------------------------------------------------------------------------
-- | onEnd event
onEnd :: action -> Attribute model action
onEnd :: forall action model. action -> Attribute model action
onEnd action
action = MisoString
-> Decoder ()
-> (() -> model -> DOMRef -> action)
-> Attribute model action
forall result model action.
MisoString
-> Decoder result
-> (result -> model -> DOMRef -> action)
-> Attribute model action
on MisoString
"end" Decoder ()
emptyDecoder ((() -> model -> DOMRef -> action) -> Attribute model action)
-> (() -> model -> DOMRef -> action) -> Attribute model action
forall a b. (a -> b) -> a -> b
$ \() model
_ DOMRef
_ -> action
action
-----------------------------------------------------------------------------
-- | onRepeat event
onRepeat :: action -> Attribute model action
onRepeat :: forall action model. action -> Attribute model action
onRepeat action
action = MisoString
-> Decoder ()
-> (() -> model -> DOMRef -> action)
-> Attribute model action
forall result model action.
MisoString
-> Decoder result
-> (result -> model -> DOMRef -> action)
-> Attribute model action
on MisoString
"repeat" Decoder ()
emptyDecoder ((() -> model -> DOMRef -> action) -> Attribute model action)
-> (() -> model -> DOMRef -> action) -> Attribute model action
forall a b. (a -> b) -> a -> b
$ \() model
_ DOMRef
_ -> action
action
-----------------------------------------------------------------------------
-- | onAbort event
onAbort :: action -> Attribute model action
onAbort :: forall action model. action -> Attribute model action
onAbort action
action = MisoString
-> Decoder ()
-> (() -> model -> DOMRef -> action)
-> Attribute model action
forall result model action.
MisoString
-> Decoder result
-> (result -> model -> DOMRef -> action)
-> Attribute model action
on MisoString
"abort" Decoder ()
emptyDecoder ((() -> model -> DOMRef -> action) -> Attribute model action)
-> (() -> model -> DOMRef -> action) -> Attribute model action
forall a b. (a -> b) -> a -> b
$ \() model
_ DOMRef
_ -> action
action
-----------------------------------------------------------------------------
-- | onError event
onError :: action -> Attribute model action
onError :: forall action model. action -> Attribute model action
onError action
action = MisoString
-> Decoder ()
-> (() -> model -> DOMRef -> action)
-> Attribute model action
forall result model action.
MisoString
-> Decoder result
-> (result -> model -> DOMRef -> action)
-> Attribute model action
on MisoString
"error" Decoder ()
emptyDecoder ((() -> model -> DOMRef -> action) -> Attribute model action)
-> (() -> model -> DOMRef -> action) -> Attribute model action
forall a b. (a -> b) -> a -> b
$ \() model
_ DOMRef
_ -> action
action
-----------------------------------------------------------------------------
-- | onResize event
onResize :: action -> Attribute model action
onResize :: forall action model. action -> Attribute model action
onResize action
action = MisoString
-> Decoder ()
-> (() -> model -> DOMRef -> action)
-> Attribute model action
forall result model action.
MisoString
-> Decoder result
-> (result -> model -> DOMRef -> action)
-> Attribute model action
on MisoString
"resize" Decoder ()
emptyDecoder ((() -> model -> DOMRef -> action) -> Attribute model action)
-> (() -> model -> DOMRef -> action) -> Attribute model action
forall a b. (a -> b) -> a -> b
$ \() model
_ DOMRef
_ -> action
action
-----------------------------------------------------------------------------
-- | onScroll event
onScroll :: action -> Attribute model action
onScroll :: forall action model. action -> Attribute model action
onScroll action
action = MisoString
-> Decoder ()
-> (() -> model -> DOMRef -> action)
-> Attribute model action
forall result model action.
MisoString
-> Decoder result
-> (result -> model -> DOMRef -> action)
-> Attribute model action
on MisoString
"scroll" Decoder ()
emptyDecoder ((() -> model -> DOMRef -> action) -> Attribute model action)
-> (() -> model -> DOMRef -> action) -> Attribute model action
forall a b. (a -> b) -> a -> b
$ \() model
_ DOMRef
_ -> action
action
-----------------------------------------------------------------------------
-- | onZoom event
onZoom :: action -> Attribute model action
onZoom :: forall action model. action -> Attribute model action
onZoom action
action = MisoString
-> Decoder ()
-> (() -> model -> DOMRef -> action)
-> Attribute model action
forall result model action.
MisoString
-> Decoder result
-> (result -> model -> DOMRef -> action)
-> Attribute model action
on MisoString
"zoom" Decoder ()
emptyDecoder ((() -> model -> DOMRef -> action) -> Attribute model action)
-> (() -> model -> DOMRef -> action) -> Attribute model action
forall a b. (a -> b) -> a -> b
$ \() model
_ DOMRef
_ -> action
action
-----------------------------------------------------------------------------
-- | onActivate event
onActivate :: action -> Attribute model action
onActivate :: forall action model. action -> Attribute model action
onActivate action
action = MisoString
-> Decoder ()
-> (() -> model -> DOMRef -> action)
-> Attribute model action
forall result model action.
MisoString
-> Decoder result
-> (result -> model -> DOMRef -> action)
-> Attribute model action
on MisoString
"activate" Decoder ()
emptyDecoder ((() -> model -> DOMRef -> action) -> Attribute model action)
-> (() -> model -> DOMRef -> action) -> Attribute model action
forall a b. (a -> b) -> a -> b
$ \() model
_ DOMRef
_ -> action
action
-----------------------------------------------------------------------------
-- | onFocusIn event
onFocusIn :: action -> Attribute model action
onFocusIn :: forall action model. action -> Attribute model action
onFocusIn action
action = MisoString
-> Decoder ()
-> (() -> model -> DOMRef -> action)
-> Attribute model action
forall result model action.
MisoString
-> Decoder result
-> (result -> model -> DOMRef -> action)
-> Attribute model action
on MisoString
"focusin" Decoder ()
emptyDecoder ((() -> model -> DOMRef -> action) -> Attribute model action)
-> (() -> model -> DOMRef -> action) -> Attribute model action
forall a b. (a -> b) -> a -> b
$ \() model
_ DOMRef
_ -> action
action
-----------------------------------------------------------------------------
-- | onFocusOut event
onFocusOut :: action -> Attribute model action
onFocusOut :: forall action model. action -> Attribute model action
onFocusOut action
action = MisoString
-> Decoder ()
-> (() -> model -> DOMRef -> action)
-> Attribute model action
forall result model action.
MisoString
-> Decoder result
-> (result -> model -> DOMRef -> action)
-> Attribute model action
on MisoString
"focusout" Decoder ()
emptyDecoder ((() -> model -> DOMRef -> action) -> Attribute model action)
-> (() -> model -> DOMRef -> action) -> Attribute model action
forall a b. (a -> b) -> a -> b
$ \() model
_ DOMRef
_ -> action
action
-----------------------------------------------------------------------------
-- | onMouseDown event
onMouseDown :: action -> Attribute model action
onMouseDown :: forall action model. action -> Attribute model action
onMouseDown action
action = MisoString
-> Decoder ()
-> (() -> model -> DOMRef -> action)
-> Attribute model action
forall result model action.
MisoString
-> Decoder result
-> (result -> model -> DOMRef -> action)
-> Attribute model action
on MisoString
"mousedown" Decoder ()
emptyDecoder ((() -> model -> DOMRef -> action) -> Attribute model action)
-> (() -> model -> DOMRef -> action) -> Attribute model action
forall a b. (a -> b) -> a -> b
$ \() model
_ DOMRef
_ -> action
action
-----------------------------------------------------------------------------
-- | onMouseMove event
onMouseMove :: action -> Attribute model action
onMouseMove :: forall action model. action -> Attribute model action
onMouseMove action
action = MisoString
-> Decoder ()
-> (() -> model -> DOMRef -> action)
-> Attribute model action
forall result model action.
MisoString
-> Decoder result
-> (result -> model -> DOMRef -> action)
-> Attribute model action
on MisoString
"mousemove" Decoder ()
emptyDecoder ((() -> model -> DOMRef -> action) -> Attribute model action)
-> (() -> model -> DOMRef -> action) -> Attribute model action
forall a b. (a -> b) -> a -> b
$ \() model
_ DOMRef
_ -> action
action
-----------------------------------------------------------------------------
-- | onMouseOut event
onMouseOut :: action -> Attribute model action
onMouseOut :: forall action model. action -> Attribute model action
onMouseOut action
action = MisoString
-> Decoder ()
-> (() -> model -> DOMRef -> action)
-> Attribute model action
forall result model action.
MisoString
-> Decoder result
-> (result -> model -> DOMRef -> action)
-> Attribute model action
on MisoString
"mouseout" Decoder ()
emptyDecoder ((() -> model -> DOMRef -> action) -> Attribute model action)
-> (() -> model -> DOMRef -> action) -> Attribute model action
forall a b. (a -> b) -> a -> b
$ \() model
_ DOMRef
_ -> action
action
-----------------------------------------------------------------------------
-- | onMouseOver event
onMouseOver :: action -> Attribute model action
onMouseOver :: forall action model. action -> Attribute model action
onMouseOver action
action = MisoString
-> Decoder ()
-> (() -> model -> DOMRef -> action)
-> Attribute model action
forall result model action.
MisoString
-> Decoder result
-> (result -> model -> DOMRef -> action)
-> Attribute model action
on MisoString
"mouseover" Decoder ()
emptyDecoder ((() -> model -> DOMRef -> action) -> Attribute model action)
-> (() -> model -> DOMRef -> action) -> Attribute model action
forall a b. (a -> b) -> a -> b
$ \() model
_ DOMRef
_ -> action
action
-----------------------------------------------------------------------------
-- | onMouseUp event
onMouseUp :: action -> Attribute model action
onMouseUp :: forall action model. action -> Attribute model action
onMouseUp action
action = MisoString
-> Decoder ()
-> (() -> model -> DOMRef -> action)
-> Attribute model action
forall result model action.
MisoString
-> Decoder result
-> (result -> model -> DOMRef -> action)
-> Attribute model action
on MisoString
"mouseup" Decoder ()
emptyDecoder ((() -> model -> DOMRef -> action) -> Attribute model action)
-> (() -> model -> DOMRef -> action) -> Attribute model action
forall a b. (a -> b) -> a -> b
$ \() model
_ DOMRef
_ -> action
action
-----------------------------------------------------------------------------