CSSPageDescriptors.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from cssom-1 (webref). Do not edit.
module JSDOM.Generated.CSSPageDescriptors
       (setMargin, getMargin, setMarginTop, getMarginTop, setMarginRight, getMarginRight, setMarginBottom, getMarginBottom, setMarginLeft, getMarginLeft, setSize, getSize, CSSPageDescriptors(..), gTypeCSSPageDescriptors)
       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/CSSPageDescriptors#margin MDN CSSPageDescriptors.margin documentation>
setMargin :: (MonadDOM m, ToJSString val) => CSSPageDescriptors -> val -> m ()
setMargin self val = liftDOM (void (self ^. jss "margin" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/CSSPageDescriptors#margin MDN CSSPageDescriptors.margin documentation>
getMargin :: (MonadDOM m, FromJSString result) => CSSPageDescriptors -> m result
getMargin self = liftDOM (((self ^. js "margin") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/CSSPageDescriptors#margintop MDN CSSPageDescriptors.marginTop documentation>
setMarginTop :: (MonadDOM m, ToJSString val) => CSSPageDescriptors -> val -> m ()
setMarginTop self val = liftDOM (void (self ^. jss "marginTop" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/CSSPageDescriptors#margintop MDN CSSPageDescriptors.marginTop documentation>
getMarginTop :: (MonadDOM m, FromJSString result) => CSSPageDescriptors -> m result
getMarginTop self = liftDOM (((self ^. js "marginTop") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/CSSPageDescriptors#marginright MDN CSSPageDescriptors.marginRight documentation>
setMarginRight :: (MonadDOM m, ToJSString val) => CSSPageDescriptors -> val -> m ()
setMarginRight self val = liftDOM (void (self ^. jss "marginRight" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/CSSPageDescriptors#marginright MDN CSSPageDescriptors.marginRight documentation>
getMarginRight :: (MonadDOM m, FromJSString result) => CSSPageDescriptors -> m result
getMarginRight self = liftDOM (((self ^. js "marginRight") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/CSSPageDescriptors#marginbottom MDN CSSPageDescriptors.marginBottom documentation>
setMarginBottom :: (MonadDOM m, ToJSString val) => CSSPageDescriptors -> val -> m ()
setMarginBottom self val = liftDOM (void (self ^. jss "marginBottom" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/CSSPageDescriptors#marginbottom MDN CSSPageDescriptors.marginBottom documentation>
getMarginBottom :: (MonadDOM m, FromJSString result) => CSSPageDescriptors -> m result
getMarginBottom self = liftDOM (((self ^. js "marginBottom") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/CSSPageDescriptors#marginleft MDN CSSPageDescriptors.marginLeft documentation>
setMarginLeft :: (MonadDOM m, ToJSString val) => CSSPageDescriptors -> val -> m ()
setMarginLeft self val = liftDOM (void (self ^. jss "marginLeft" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/CSSPageDescriptors#marginleft MDN CSSPageDescriptors.marginLeft documentation>
getMarginLeft :: (MonadDOM m, FromJSString result) => CSSPageDescriptors -> m result
getMarginLeft self = liftDOM (((self ^. js "marginLeft") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/CSSPageDescriptors#size MDN CSSPageDescriptors.size documentation>
setSize :: (MonadDOM m, ToJSString val) => CSSPageDescriptors -> val -> m ()
setSize self val = liftDOM (void (self ^. jss "size" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/CSSPageDescriptors#size MDN CSSPageDescriptors.size documentation>
getSize :: (MonadDOM m, FromJSString result) => CSSPageDescriptors -> m result
getSize self = liftDOM (((self ^. js "size") >>= fromJSValUnchecked))