{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.SVGPathSegList
(clear, initialize, initialize_, getItem, getItem_,
insertItemBefore, insertItemBefore_, replaceItem, replaceItem_,
removeItem, removeItem_, appendItem, appendItem_, getNumberOfItems,
SVGPathSegList(..), gTypeSVGPathSegList)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import qualified Prelude (error)
import Data.Typeable (Typeable)
import Data.Traversable (mapM)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, asyncFunction, new, array, jsUndefined, (!), (!!))
import Data.Int (Int64)
import Data.Word (Word, Word64)
import JSDOM.Types
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import JSDOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import JSDOM.Enums
clear :: (MonadDOM m) => SVGPathSegList -> m ()
clear :: forall (m :: * -> *). MonadDOM m => SVGPathSegList -> m ()
clear SVGPathSegList
self = DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (SVGPathSegList
self SVGPathSegList
-> Getting (JSM JSVal) SVGPathSegList (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> () -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"clear" ()))
initialize ::
(MonadDOM m, IsSVGPathSeg newItem) =>
SVGPathSegList -> Maybe newItem -> m SVGPathSeg
initialize :: forall (m :: * -> *) newItem.
(MonadDOM m, IsSVGPathSeg newItem) =>
SVGPathSegList -> Maybe newItem -> m SVGPathSeg
initialize SVGPathSegList
self Maybe newItem
newItem
= DOM SVGPathSeg -> m SVGPathSeg
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGPathSegList
self SVGPathSegList
-> Getting (JSM JSVal) SVGPathSegList (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"initialize" [Maybe newItem -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe newItem
newItem]) JSM JSVal -> (JSVal -> DOM SVGPathSeg) -> DOM SVGPathSeg
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM SVGPathSeg
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
initialize_ ::
(MonadDOM m, IsSVGPathSeg newItem) =>
SVGPathSegList -> Maybe newItem -> m ()
initialize_ :: forall (m :: * -> *) newItem.
(MonadDOM m, IsSVGPathSeg newItem) =>
SVGPathSegList -> Maybe newItem -> m ()
initialize_ SVGPathSegList
self Maybe newItem
newItem
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (SVGPathSegList
self SVGPathSegList
-> Getting (JSM JSVal) SVGPathSegList (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"initialize" [Maybe newItem -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe newItem
newItem]))
getItem :: (MonadDOM m) => SVGPathSegList -> Word -> m SVGPathSeg
getItem :: forall (m :: * -> *).
MonadDOM m =>
SVGPathSegList -> Word -> m SVGPathSeg
getItem SVGPathSegList
self Word
index
= DOM SVGPathSeg -> m SVGPathSeg
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGPathSegList
self SVGPathSegList
-> Getting (JSM JSVal) SVGPathSegList (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"getItem" [Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
index]) JSM JSVal -> (JSVal -> DOM SVGPathSeg) -> DOM SVGPathSeg
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGPathSeg
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getItem_ :: (MonadDOM m) => SVGPathSegList -> Word -> m ()
getItem_ :: forall (m :: * -> *). MonadDOM m => SVGPathSegList -> Word -> m ()
getItem_ SVGPathSegList
self Word
index
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (SVGPathSegList
self SVGPathSegList
-> Getting (JSM JSVal) SVGPathSegList (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"getItem" [Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
index]))
insertItemBefore ::
(MonadDOM m, IsSVGPathSeg newItem) =>
SVGPathSegList -> Maybe newItem -> Word -> m SVGPathSeg
insertItemBefore :: forall (m :: * -> *) newItem.
(MonadDOM m, IsSVGPathSeg newItem) =>
SVGPathSegList -> Maybe newItem -> Word -> m SVGPathSeg
insertItemBefore SVGPathSegList
self Maybe newItem
newItem Word
index
= DOM SVGPathSeg -> m SVGPathSeg
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGPathSegList
self SVGPathSegList
-> Getting (JSM JSVal) SVGPathSegList (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"insertItemBefore" [Maybe newItem -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe newItem
newItem, Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
index])
JSM JSVal -> (JSVal -> DOM SVGPathSeg) -> DOM SVGPathSeg
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGPathSeg
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
insertItemBefore_ ::
(MonadDOM m, IsSVGPathSeg newItem) =>
SVGPathSegList -> Maybe newItem -> Word -> m ()
insertItemBefore_ :: forall (m :: * -> *) newItem.
(MonadDOM m, IsSVGPathSeg newItem) =>
SVGPathSegList -> Maybe newItem -> Word -> m ()
insertItemBefore_ SVGPathSegList
self Maybe newItem
newItem Word
index
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(SVGPathSegList
self SVGPathSegList
-> Getting (JSM JSVal) SVGPathSegList (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"insertItemBefore" [Maybe newItem -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe newItem
newItem, Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
index]))
replaceItem ::
(MonadDOM m, IsSVGPathSeg newItem) =>
SVGPathSegList -> Maybe newItem -> Word -> m SVGPathSeg
replaceItem :: forall (m :: * -> *) newItem.
(MonadDOM m, IsSVGPathSeg newItem) =>
SVGPathSegList -> Maybe newItem -> Word -> m SVGPathSeg
replaceItem SVGPathSegList
self Maybe newItem
newItem Word
index
= DOM SVGPathSeg -> m SVGPathSeg
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGPathSegList
self SVGPathSegList
-> Getting (JSM JSVal) SVGPathSegList (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"replaceItem" [Maybe newItem -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe newItem
newItem, Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
index]) JSM JSVal -> (JSVal -> DOM SVGPathSeg) -> DOM SVGPathSeg
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM SVGPathSeg
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
replaceItem_ ::
(MonadDOM m, IsSVGPathSeg newItem) =>
SVGPathSegList -> Maybe newItem -> Word -> m ()
replaceItem_ :: forall (m :: * -> *) newItem.
(MonadDOM m, IsSVGPathSeg newItem) =>
SVGPathSegList -> Maybe newItem -> Word -> m ()
replaceItem_ SVGPathSegList
self Maybe newItem
newItem Word
index
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (SVGPathSegList
self SVGPathSegList
-> Getting (JSM JSVal) SVGPathSegList (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"replaceItem" [Maybe newItem -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe newItem
newItem, Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
index]))
removeItem ::
(MonadDOM m) => SVGPathSegList -> Word -> m SVGPathSeg
removeItem :: forall (m :: * -> *).
MonadDOM m =>
SVGPathSegList -> Word -> m SVGPathSeg
removeItem SVGPathSegList
self Word
index
= DOM SVGPathSeg -> m SVGPathSeg
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGPathSegList
self SVGPathSegList
-> Getting (JSM JSVal) SVGPathSegList (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"removeItem" [Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
index]) JSM JSVal -> (JSVal -> DOM SVGPathSeg) -> DOM SVGPathSeg
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> DOM SVGPathSeg
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
removeItem_ :: (MonadDOM m) => SVGPathSegList -> Word -> m ()
removeItem_ :: forall (m :: * -> *). MonadDOM m => SVGPathSegList -> Word -> m ()
removeItem_ SVGPathSegList
self Word
index
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (SVGPathSegList
self SVGPathSegList
-> Getting (JSM JSVal) SVGPathSegList (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"removeItem" [Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
index]))
appendItem ::
(MonadDOM m, IsSVGPathSeg newItem) =>
SVGPathSegList -> Maybe newItem -> m SVGPathSeg
appendItem :: forall (m :: * -> *) newItem.
(MonadDOM m, IsSVGPathSeg newItem) =>
SVGPathSegList -> Maybe newItem -> m SVGPathSeg
appendItem SVGPathSegList
self Maybe newItem
newItem
= DOM SVGPathSeg -> m SVGPathSeg
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGPathSegList
self SVGPathSegList
-> Getting (JSM JSVal) SVGPathSegList (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"appendItem" [Maybe newItem -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe newItem
newItem]) JSM JSVal -> (JSVal -> DOM SVGPathSeg) -> DOM SVGPathSeg
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>=
JSVal -> DOM SVGPathSeg
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
appendItem_ ::
(MonadDOM m, IsSVGPathSeg newItem) =>
SVGPathSegList -> Maybe newItem -> m ()
appendItem_ :: forall (m :: * -> *) newItem.
(MonadDOM m, IsSVGPathSeg newItem) =>
SVGPathSegList -> Maybe newItem -> m ()
appendItem_ SVGPathSegList
self Maybe newItem
newItem
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (SVGPathSegList
self SVGPathSegList
-> Getting (JSM JSVal) SVGPathSegList (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> [JSM JSVal] -> JSF
forall name args.
(ToJSString name, MakeArgs args) =>
name -> args -> JSF
jsf String
"appendItem" [Maybe newItem -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Maybe newItem
newItem]))
getNumberOfItems :: (MonadDOM m) => SVGPathSegList -> m Word
getNumberOfItems :: forall (m :: * -> *). MonadDOM m => SVGPathSegList -> m Word
getNumberOfItems SVGPathSegList
self
= DOM Word -> m Word
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(Double -> Word
forall b. Integral b => Double -> b
forall a b. (RealFrac a, Integral b) => a -> b
round (Double -> Word) -> JSM Double -> DOM Word
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> ((SVGPathSegList
self SVGPathSegList
-> Getting (JSM JSVal) SVGPathSegList (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter SVGPathSegList (JSM JSVal)
forall s name.
(MakeObject s, ToJSString name) =>
name -> IndexPreservingGetter s (JSM JSVal)
js String
"numberOfItems") JSM JSVal -> (JSVal -> JSM Double) -> JSM Double
forall a b. JSM a -> (a -> JSM b) -> JSM b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= JSVal -> JSM Double
forall value. ToJSVal value => value -> JSM Double
valToNumber))