{-# 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 self = liftDOM (void (self ^. jsf "clear" ()))
initialize ::
(MonadDOM m) => SVGTransformList -> SVGTransform -> m SVGTransform
initialize self item
= liftDOM
((self ^. jsf "initialize" [toJSVal item]) >>= fromJSValUnchecked)
initialize_ ::
(MonadDOM m) => SVGTransformList -> SVGTransform -> m ()
initialize_ self item
= liftDOM (void (self ^. jsf "initialize" [toJSVal item]))
getItem ::
(MonadDOM m) => SVGTransformList -> Word -> m SVGTransform
getItem self index
= liftDOM
((self ^. jsf "getItem" [toJSVal index]) >>= fromJSValUnchecked)
getItem_ :: (MonadDOM m) => SVGTransformList -> Word -> m ()
getItem_ self index
= liftDOM (void (self ^. jsf "getItem" [toJSVal index]))
insertItemBefore ::
(MonadDOM m) =>
SVGTransformList -> SVGTransform -> Word -> m SVGTransform
insertItemBefore self item index
= liftDOM
((self ^. jsf "insertItemBefore" [toJSVal item, toJSVal index]) >>=
fromJSValUnchecked)
insertItemBefore_ ::
(MonadDOM m) => SVGTransformList -> SVGTransform -> Word -> m ()
insertItemBefore_ self item index
= liftDOM
(void
(self ^. jsf "insertItemBefore" [toJSVal item, toJSVal index]))
replaceItem ::
(MonadDOM m) =>
SVGTransformList -> SVGTransform -> Word -> m SVGTransform
replaceItem self item index
= liftDOM
((self ^. jsf "replaceItem" [toJSVal item, toJSVal index]) >>=
fromJSValUnchecked)
replaceItem_ ::
(MonadDOM m) => SVGTransformList -> SVGTransform -> Word -> m ()
replaceItem_ self item index
= liftDOM
(void (self ^. jsf "replaceItem" [toJSVal item, toJSVal index]))
removeItem ::
(MonadDOM m) => SVGTransformList -> Word -> m SVGTransform
removeItem self index
= liftDOM
((self ^. jsf "removeItem" [toJSVal index]) >>= fromJSValUnchecked)
removeItem_ :: (MonadDOM m) => SVGTransformList -> Word -> m ()
removeItem_ self index
= liftDOM (void (self ^. jsf "removeItem" [toJSVal index]))
appendItem ::
(MonadDOM m) => SVGTransformList -> SVGTransform -> m SVGTransform
appendItem self item
= liftDOM
((self ^. jsf "appendItem" [toJSVal item]) >>= fromJSValUnchecked)
appendItem_ ::
(MonadDOM m) => SVGTransformList -> SVGTransform -> m ()
appendItem_ self item
= liftDOM (void (self ^. jsf "appendItem" [toJSVal item]))
createSVGTransformFromMatrix ::
(MonadDOM m) => SVGTransformList -> SVGMatrix -> m SVGTransform
createSVGTransformFromMatrix self matrix
= liftDOM
((self ^. jsf "createSVGTransformFromMatrix" [toJSVal matrix]) >>=
fromJSValUnchecked)
createSVGTransformFromMatrix_ ::
(MonadDOM m) => SVGTransformList -> SVGMatrix -> m ()
createSVGTransformFromMatrix_ self matrix
= liftDOM
(void
(self ^. jsf "createSVGTransformFromMatrix" [toJSVal matrix]))
consolidate :: (MonadDOM m) => SVGTransformList -> m SVGTransform
consolidate self
= liftDOM ((self ^. jsf "consolidate" ()) >>= fromJSValUnchecked)
consolidate_ :: (MonadDOM m) => SVGTransformList -> m ()
consolidate_ self = liftDOM (void (self ^. jsf "consolidate" ()))
getNumberOfItems :: (MonadDOM m) => SVGTransformList -> m Word
getNumberOfItems self
= liftDOM
(round <$> ((self ^. js "numberOfItems") >>= valToNumber))