CSSSkew.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.CSSSkew
       (newCSSSkew, setAx, getAx, setAy, getAy, CSSSkew(..), gTypeCSSSkew)
       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/CSSSkew/CSSSkew MDN CSSSkew. documentation>
newCSSSkew :: (MonadDOM m, IsCSSNumericValue ax, IsCSSNumericValue ay) => ax -> ay -> m CSSSkew
newCSSSkew ax ay = liftDOM (((new (jsg "CSSSkew") [toJSVal ax, toJSVal ay]) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/CSSSkew/ax MDN CSSSkew.ax documentation>
setAx :: (MonadDOM m, IsCSSNumericValue val) => CSSSkew -> val -> m ()
setAx self val = liftDOM (void (self ^. jss "ax" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/CSSSkew/ax MDN CSSSkew.ax documentation>
getAx :: (MonadDOM m) => CSSSkew -> m CSSNumericValue
getAx self = liftDOM (((self ^. js "ax") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/CSSSkew/ay MDN CSSSkew.ay documentation>
setAy :: (MonadDOM m, IsCSSNumericValue val) => CSSSkew -> val -> m ()
setAy self val = liftDOM (void (self ^. jss "ay" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/CSSSkew/ay MDN CSSSkew.ay documentation>
getAy :: (MonadDOM m) => CSSSkew -> m CSSNumericValue
getAy self = liftDOM (((self ^. js "ay") >>= fromJSValUnchecked))