-----------------------------------------------------------------------------
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE OverloadedStrings #-}
-----------------------------------------------------------------------------
-- |
-- Module      :  Miso.Native.Element.Text.Method
-- 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.Method
  ( -- *** Methods
    setTextSelection
  , getTextBoundingRect
  , getSelectedText
  -- *** Types
  , SetTextSelection (..)
  , GetTextBoundingRect (GetTextBoundingRect)
  -- *** Smart constructors
  , defaultGetTextBoundingRect
  ) where
-----------------------------------------------------------------------------
import           Miso
import           Miso.Native.FFI (invokeExec)
-----------------------------------------------------------------------------
-- | Parameters for @setTextSelection@: the start and end coordinates of the
-- selection and whether to show its drag handles.
--
-- @since 1.13.0.0
data SetTextSelection
  = SetTextSelection
  { SetTextSelection -> Double
startX, SetTextSelection -> Double
startY :: Double
  -- ^ X/Y-coordinate of the selection start relative to the element
  , SetTextSelection -> Double
endX, SetTextSelection -> Double
endY :: Double
  -- ^ X/Y-coordinate of the selection end relative to the element
  , SetTextSelection -> Bool
showStartHandle, SetTextSelection -> Bool
showEndHandle :: Bool
  -- ^ Whether to show or hide the start/end handle
  }
-----------------------------------------------------------------------------
instance ToJSVal SetTextSelection where
  toJSVal :: SetTextSelection -> IO JSVal
toJSVal SetTextSelection {Bool
Double
startX :: SetTextSelection -> Double
startY :: SetTextSelection -> Double
endX :: SetTextSelection -> Double
endY :: SetTextSelection -> Double
showStartHandle :: SetTextSelection -> Bool
showEndHandle :: SetTextSelection -> Bool
startX :: Double
startY :: Double
endX :: Double
endY :: Double
showStartHandle :: Bool
showEndHandle :: Bool
..} = do
    o <- IO Object
create
    set "startX" startX o
    set "startY" startY o
    set "endX" endX o
    set "endY" endY o
    set "showStartHandle" showStartHandle o
    set "showEndHandle" showEndHandle o
    toJSVal o
-----------------------------------------------------------------------------
-- | <https://lynxjs.org/api/elements/built-in/text.html#setTextSelection>
--
-- This method sets the selected text based on start and end positions and controls the visibility of selection handles. The response res contains:
--
-- @
--
-- data Action = SetText | TextSet | SetTextError MisoString
--
-- update :: Action -> Effect props model Action
-- update = \\case
--   SetText -> setTextSelection "someImageId" SetText SetTextError
--   TextSet -> io_ (consoleLog "text was set")
--   SetTextError e -> io_ (consoleLog e)
--
-- @
--
setTextSelection
  :: MisoString
  -> SetTextSelection
  -> action
  -> (MisoString -> action)
  -> Effect context props model action
setTextSelection :: forall action context props model.
Text
-> SetTextSelection
-> action
-> (Text -> action)
-> Effect context props model action
setTextSelection Text
selector SetTextSelection
params action
action =
  Text
-> Text
-> SetTextSelection
-> (() -> action)
-> (Text -> action)
-> Effect context props model action
forall params argument action context props model.
(ToJSVal params, FromJSVal argument) =>
Text
-> Text
-> params
-> (argument -> action)
-> (Text -> action)
-> Effect context props model action
invokeExec Text
"setTextSelection" Text
selector SetTextSelection
params (\() -> action
action)
-----------------------------------------------------------------------------
-- | Parameters for 'getTextBoundingRect': the @start@ and @end@ offsets of
-- the range to measure.
--
-- @since 1.13.0.0
data GetTextBoundingRect
  = GetTextBoundingRect
  { GetTextBoundingRect -> Double
start, GetTextBoundingRect -> Double
end :: Double
  -- ^ X/Y-coordinate of the selection start relative to the element
  }
-----------------------------------------------------------------------------
instance ToJSVal GetTextBoundingRect where
  toJSVal :: GetTextBoundingRect -> IO JSVal
toJSVal GetTextBoundingRect {Double
start :: GetTextBoundingRect -> Double
end :: GetTextBoundingRect -> Double
start :: Double
end :: Double
..} = do
    o <- IO Object
create
    set "start" start o
    set "end" end o
    toJSVal o
-----------------------------------------------------------------------------
-- | A t'GetTextBoundingRect' with sensible defaults (the whole range, offsets 0 to 0).
--
-- Override only the fields you need.
--
-- @since 1.13.0.0
defaultGetTextBoundingRect :: GetTextBoundingRect
defaultGetTextBoundingRect :: GetTextBoundingRect
defaultGetTextBoundingRect = Double -> Double -> GetTextBoundingRect
GetTextBoundingRect Double
0 Double
0
-----------------------------------------------------------------------------
-- | https://lynxjs.org/api/elements/built-in/text.html#gettextboundingrect
--
-- This method retrieves the bounding box of a specific range of text.
--
-- @
--
-- data Action = RectReceived Rect | GetRect | GotError MisoString
--
-- update :: Action -> Effect props model Action
-- update = \\case
--   GetRect -> getTextBoundingRect "#box" defaultGetTextBoundingRect RectReceived GotError
--   RectReceived rect -> io_ $ consoleLog ("got rect")
--   GotError errMsg -> io_ (consoleLog errMsg)
--
-- @
--
getTextBoundingRect
  :: MisoString
  -> GetTextBoundingRect
  -> (JSVal -> action)
  -> (MisoString -> action)
  -> Effect context props model action
getTextBoundingRect :: forall action context props model.
Text
-> GetTextBoundingRect
-> (JSVal -> action)
-> (Text -> action)
-> Effect context props model action
getTextBoundingRect = Text
-> Text
-> GetTextBoundingRect
-> (JSVal -> action)
-> (Text -> action)
-> Effect context props model action
forall params argument action context props model.
(ToJSVal params, FromJSVal argument) =>
Text
-> Text
-> params
-> (argument -> action)
-> (Text -> action)
-> Effect context props model action
invokeExec Text
"getTextBoundingRect"
-----------------------------------------------------------------------------
-- | https://lynxjs.org/api/elements/built-in/text.html#getselectedtext
--
-- This method retrieves the string content of the currently selected text.
--
-- @
--
-- data Action = TextReceived MisoString | GetText | GotError MisoString
--
-- update :: Action -> Effect props model Action
-- update = \\case
--   GetText -> getSelectedText "#box" TextReceived GotError
--   TextReceived txt -> io_ (consoleLog ("got text: " <> txt))
--   GotError errMsg -> io_ (consoleLog errMsg)
--
-- @
--
getSelectedText
  :: MisoString
  -> (MisoString -> action)
  -> (MisoString -> action)
  -> Effect context props model action
getSelectedText :: forall action context props model.
Text
-> (Text -> action)
-> (Text -> action)
-> Effect context props model action
getSelectedText Text
selector = Text
-> Text
-> ()
-> (Text -> action)
-> (Text -> action)
-> Effect context props model action
forall params argument action context props model.
(ToJSVal params, FromJSVal argument) =>
Text
-> Text
-> params
-> (argument -> action)
-> (Text -> action)
-> Effect context props model action
invokeExec Text
"getSelectedText" Text
selector ()
-----------------------------------------------------------------------------