{-# LANGUAGE PatternSynonyms #-} -- For HasCallStack compatibility {-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} module JSDOM.Generated.SVGLengthList (clear, initialize, initialize_, getItem, getItem_, insertItemBefore, insertItemBefore_, replaceItem, replaceItem_, removeItem, removeItem_, appendItem, appendItem_, getNumberOfItems, SVGLengthList(..), gTypeSVGLengthList) 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) => SVGLengthList -> m () clear self = liftDOM (void (self ^. jsf "clear" ())) -- | initialize :: (MonadDOM m) => SVGLengthList -> SVGLength -> m SVGLength initialize self item = liftDOM ((self ^. jsf "initialize" [toJSVal item]) >>= fromJSValUnchecked) -- | initialize_ :: (MonadDOM m) => SVGLengthList -> SVGLength -> m () initialize_ self item = liftDOM (void (self ^. jsf "initialize" [toJSVal item])) -- | getItem :: (MonadDOM m) => SVGLengthList -> Word -> m SVGLength getItem self index = liftDOM ((self ^. jsf "getItem" [toJSVal index]) >>= fromJSValUnchecked) -- | getItem_ :: (MonadDOM m) => SVGLengthList -> Word -> m () getItem_ self index = liftDOM (void (self ^. jsf "getItem" [toJSVal index])) -- | insertItemBefore :: (MonadDOM m) => SVGLengthList -> SVGLength -> Word -> m SVGLength insertItemBefore self item index = liftDOM ((self ^. jsf "insertItemBefore" [toJSVal item, toJSVal index]) >>= fromJSValUnchecked) -- | insertItemBefore_ :: (MonadDOM m) => SVGLengthList -> SVGLength -> Word -> m () insertItemBefore_ self item index = liftDOM (void (self ^. jsf "insertItemBefore" [toJSVal item, toJSVal index])) -- | replaceItem :: (MonadDOM m) => SVGLengthList -> SVGLength -> Word -> m SVGLength replaceItem self item index = liftDOM ((self ^. jsf "replaceItem" [toJSVal item, toJSVal index]) >>= fromJSValUnchecked) -- | replaceItem_ :: (MonadDOM m) => SVGLengthList -> SVGLength -> Word -> m () replaceItem_ self item index = liftDOM (void (self ^. jsf "replaceItem" [toJSVal item, toJSVal index])) -- | removeItem :: (MonadDOM m) => SVGLengthList -> Word -> m SVGLength removeItem self index = liftDOM ((self ^. jsf "removeItem" [toJSVal index]) >>= fromJSValUnchecked) -- | removeItem_ :: (MonadDOM m) => SVGLengthList -> Word -> m () removeItem_ self index = liftDOM (void (self ^. jsf "removeItem" [toJSVal index])) -- | appendItem :: (MonadDOM m) => SVGLengthList -> SVGLength -> m SVGLength appendItem self item = liftDOM ((self ^. jsf "appendItem" [toJSVal item]) >>= fromJSValUnchecked) -- | appendItem_ :: (MonadDOM m) => SVGLengthList -> SVGLength -> m () appendItem_ self item = liftDOM (void (self ^. jsf "appendItem" [toJSVal item])) -- | getNumberOfItems :: (MonadDOM m) => SVGLengthList -> m Word getNumberOfItems self = liftDOM (round <$> ((self ^. js "numberOfItems") >>= valToNumber))