{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
module JSDOM.Generated.SVGTransformList
(clear, initialize, initialize_, getItem, getItem_,
insertItemBefore, insertItemBefore_, replaceItem, replaceItem_,
removeItem, removeItem_, appendItem, appendItem_,
createSVGTransformFromMatrix, createSVGTransformFromMatrix_,
consolidate, consolidate_, getNumberOfItems, SVGTransformList(..),
gTypeSVGTransformList)
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) => SVGTransformList -> m ()
clear :: forall (m :: * -> *). MonadDOM m => SVGTransformList -> m ()
clear SVGTransformList
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 (SVGTransformList
self SVGTransformList
-> Getting (JSM JSVal) SVGTransformList (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) => SVGTransformList -> SVGTransform -> m SVGTransform
initialize :: forall (m :: * -> *).
MonadDOM m =>
SVGTransformList -> SVGTransform -> m SVGTransform
initialize SVGTransformList
self SVGTransform
item
= DOM SVGTransform -> m SVGTransform
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGTransformList
self SVGTransformList
-> Getting (JSM JSVal) SVGTransformList (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" [SVGTransform -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal SVGTransform
item]) JSM JSVal -> (JSVal -> DOM SVGTransform) -> DOM SVGTransform
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 SVGTransform
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
initialize_ ::
(MonadDOM m) => SVGTransformList -> SVGTransform -> m ()
initialize_ :: forall (m :: * -> *).
MonadDOM m =>
SVGTransformList -> SVGTransform -> m ()
initialize_ SVGTransformList
self SVGTransform
item
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (SVGTransformList
self SVGTransformList
-> Getting (JSM JSVal) SVGTransformList (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" [SVGTransform -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal SVGTransform
item]))
getItem ::
(MonadDOM m) => SVGTransformList -> Word -> m SVGTransform
getItem :: forall (m :: * -> *).
MonadDOM m =>
SVGTransformList -> Word -> m SVGTransform
getItem SVGTransformList
self Word
index
= DOM SVGTransform -> m SVGTransform
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGTransformList
self SVGTransformList
-> Getting (JSM JSVal) SVGTransformList (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 SVGTransform) -> DOM SVGTransform
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 SVGTransform
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
getItem_ :: (MonadDOM m) => SVGTransformList -> Word -> m ()
getItem_ :: forall (m :: * -> *).
MonadDOM m =>
SVGTransformList -> Word -> m ()
getItem_ SVGTransformList
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 (SVGTransformList
self SVGTransformList
-> Getting (JSM JSVal) SVGTransformList (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) =>
SVGTransformList -> SVGTransform -> Word -> m SVGTransform
insertItemBefore :: forall (m :: * -> *).
MonadDOM m =>
SVGTransformList -> SVGTransform -> Word -> m SVGTransform
insertItemBefore SVGTransformList
self SVGTransform
item Word
index
= DOM SVGTransform -> m SVGTransform
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGTransformList
self SVGTransformList
-> Getting (JSM JSVal) SVGTransformList (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" [SVGTransform -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal SVGTransform
item, Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
index]) JSM JSVal -> (JSVal -> DOM SVGTransform) -> DOM SVGTransform
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 SVGTransform
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
insertItemBefore_ ::
(MonadDOM m) => SVGTransformList -> SVGTransform -> Word -> m ()
insertItemBefore_ :: forall (m :: * -> *).
MonadDOM m =>
SVGTransformList -> SVGTransform -> Word -> m ()
insertItemBefore_ SVGTransformList
self SVGTransform
item 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
(SVGTransformList
self SVGTransformList
-> Getting (JSM JSVal) SVGTransformList (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" [SVGTransform -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal SVGTransform
item, Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
index]))
replaceItem ::
(MonadDOM m) =>
SVGTransformList -> SVGTransform -> Word -> m SVGTransform
replaceItem :: forall (m :: * -> *).
MonadDOM m =>
SVGTransformList -> SVGTransform -> Word -> m SVGTransform
replaceItem SVGTransformList
self SVGTransform
item Word
index
= DOM SVGTransform -> m SVGTransform
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGTransformList
self SVGTransformList
-> Getting (JSM JSVal) SVGTransformList (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" [SVGTransform -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal SVGTransform
item, Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
index]) JSM JSVal -> (JSVal -> DOM SVGTransform) -> DOM SVGTransform
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 SVGTransform
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
replaceItem_ ::
(MonadDOM m) => SVGTransformList -> SVGTransform -> Word -> m ()
replaceItem_ :: forall (m :: * -> *).
MonadDOM m =>
SVGTransformList -> SVGTransform -> Word -> m ()
replaceItem_ SVGTransformList
self SVGTransform
item 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 (SVGTransformList
self SVGTransformList
-> Getting (JSM JSVal) SVGTransformList (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" [SVGTransform -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal SVGTransform
item, Word -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal Word
index]))
removeItem ::
(MonadDOM m) => SVGTransformList -> Word -> m SVGTransform
removeItem :: forall (m :: * -> *).
MonadDOM m =>
SVGTransformList -> Word -> m SVGTransform
removeItem SVGTransformList
self Word
index
= DOM SVGTransform -> m SVGTransform
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGTransformList
self SVGTransformList
-> Getting (JSM JSVal) SVGTransformList (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 SVGTransform) -> DOM SVGTransform
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 SVGTransform
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
removeItem_ :: (MonadDOM m) => SVGTransformList -> Word -> m ()
removeItem_ :: forall (m :: * -> *).
MonadDOM m =>
SVGTransformList -> Word -> m ()
removeItem_ SVGTransformList
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 (SVGTransformList
self SVGTransformList
-> Getting (JSM JSVal) SVGTransformList (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) => SVGTransformList -> SVGTransform -> m SVGTransform
appendItem :: forall (m :: * -> *).
MonadDOM m =>
SVGTransformList -> SVGTransform -> m SVGTransform
appendItem SVGTransformList
self SVGTransform
item
= DOM SVGTransform -> m SVGTransform
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGTransformList
self SVGTransformList
-> Getting (JSM JSVal) SVGTransformList (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" [SVGTransform -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal SVGTransform
item]) JSM JSVal -> (JSVal -> DOM SVGTransform) -> DOM SVGTransform
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 SVGTransform
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
appendItem_ ::
(MonadDOM m) => SVGTransformList -> SVGTransform -> m ()
appendItem_ :: forall (m :: * -> *).
MonadDOM m =>
SVGTransformList -> SVGTransform -> m ()
appendItem_ SVGTransformList
self SVGTransform
item
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM (JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void (SVGTransformList
self SVGTransformList
-> Getting (JSM JSVal) SVGTransformList (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" [SVGTransform -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal SVGTransform
item]))
createSVGTransformFromMatrix ::
(MonadDOM m) => SVGTransformList -> SVGMatrix -> m SVGTransform
createSVGTransformFromMatrix :: forall (m :: * -> *).
MonadDOM m =>
SVGTransformList -> SVGMatrix -> m SVGTransform
createSVGTransformFromMatrix SVGTransformList
self SVGMatrix
matrix
= DOM SVGTransform -> m SVGTransform
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
((SVGTransformList
self SVGTransformList
-> Getting (JSM JSVal) SVGTransformList (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
"createSVGTransformFromMatrix" [SVGMatrix -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal SVGMatrix
matrix]) JSM JSVal -> (JSVal -> DOM SVGTransform) -> DOM SVGTransform
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 SVGTransform
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
createSVGTransformFromMatrix_ ::
(MonadDOM m) => SVGTransformList -> SVGMatrix -> m ()
createSVGTransformFromMatrix_ :: forall (m :: * -> *).
MonadDOM m =>
SVGTransformList -> SVGMatrix -> m ()
createSVGTransformFromMatrix_ SVGTransformList
self SVGMatrix
matrix
= DOM () -> m ()
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM
(JSM JSVal -> DOM ()
forall (f :: * -> *) a. Functor f => f a -> f ()
void
(SVGTransformList
self SVGTransformList
-> Getting (JSM JSVal) SVGTransformList (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
"createSVGTransformFromMatrix" [SVGMatrix -> JSM JSVal
forall a. ToJSVal a => a -> JSM JSVal
toJSVal SVGMatrix
matrix]))
consolidate :: (MonadDOM m) => SVGTransformList -> m SVGTransform
consolidate :: forall (m :: * -> *).
MonadDOM m =>
SVGTransformList -> m SVGTransform
consolidate SVGTransformList
self
= DOM SVGTransform -> m SVGTransform
forall (m :: * -> *) a. MonadDOM m => DOM a -> m a
liftDOM ((SVGTransformList
self SVGTransformList
-> Getting (JSM JSVal) SVGTransformList (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
"consolidate" ()) JSM JSVal -> (JSVal -> DOM SVGTransform) -> DOM SVGTransform
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 SVGTransform
forall a. FromJSVal a => JSVal -> JSM a
fromJSValUnchecked)
consolidate_ :: (MonadDOM m) => SVGTransformList -> m ()
consolidate_ :: forall (m :: * -> *). MonadDOM m => SVGTransformList -> m ()
consolidate_ SVGTransformList
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 (SVGTransformList
self SVGTransformList
-> Getting (JSM JSVal) SVGTransformList (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
"consolidate" ()))
getNumberOfItems :: (MonadDOM m) => SVGTransformList -> m Word
getNumberOfItems :: forall (m :: * -> *). MonadDOM m => SVGTransformList -> m Word
getNumberOfItems SVGTransformList
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
<$> ((SVGTransformList
self SVGTransformList
-> Getting (JSM JSVal) SVGTransformList (JSM JSVal) -> JSM JSVal
forall s a. s -> Getting a s a -> a
^. String -> IndexPreservingGetter SVGTransformList (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))