CSSScale.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from css-typed-om-1 (webref). Do not edit.
module JSDOM.Generated.CSSScale
       (newCSSScale, setX, getX, setY, getY, setZ, getZ, CSSScale(..), gTypeCSSScale)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import Language.Javascript.JSaddle (JSM, JSVal, JSString, toJSVal, valToBool, valToNumber, js, jss, jsf, jsg, new, function, asyncFunction, jsUndefined, jsNull)
import JSDOM.Types
import qualified JSDOM.Types as Types
import JSDOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import JSDOM.Generated.Enums

-- | <https://developer.mozilla.org/docs/Web/API/CSSScale/CSSScale MDN CSSScale. documentation>
newCSSScale :: (MonadDOM m, IsCSSNumberish x, IsCSSNumberish y, IsCSSNumberish z) => x -> y -> Maybe z -> m CSSScale
newCSSScale x y z = liftDOM (((new (jsg "CSSScale") [toJSVal x, toJSVal y, P.maybe (P.return jsUndefined) toJSVal z]) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/CSSScale/x MDN CSSScale.x documentation>
setX :: (MonadDOM m, IsCSSNumberish val) => CSSScale -> val -> m ()
setX self val = liftDOM (void (self ^. jss "x" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/CSSScale/x MDN CSSScale.x documentation>
getX :: (MonadDOM m) => CSSScale -> m CSSNumberish
getX self = liftDOM (((self ^. js "x") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/CSSScale/y MDN CSSScale.y documentation>
setY :: (MonadDOM m, IsCSSNumberish val) => CSSScale -> val -> m ()
setY self val = liftDOM (void (self ^. jss "y" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/CSSScale/y MDN CSSScale.y documentation>
getY :: (MonadDOM m) => CSSScale -> m CSSNumberish
getY self = liftDOM (((self ^. js "y") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/CSSScale/z MDN CSSScale.z documentation>
setZ :: (MonadDOM m, IsCSSNumberish val) => CSSScale -> val -> m ()
setZ self val = liftDOM (void (self ^. jss "z" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/CSSScale/z MDN CSSScale.z documentation>
getZ :: (MonadDOM m) => CSSScale -> m CSSNumberish
getZ self = liftDOM (((self ^. js "z") >>= fromJSValUnchecked))