VisualViewport.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from cssom-view-1 (webref). Do not edit.
module JSDOM.Generated.VisualViewport
       (getOffsetLeft, getOffsetTop, getPageLeft, getPageTop, getWidth, getHeight, getScale, resize, scroll, scrollend, VisualViewport(..), gTypeVisualViewport)
       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/VisualViewport/offsetLeft MDN VisualViewport.offsetLeft documentation>
getOffsetLeft :: (MonadDOM m) => VisualViewport -> m Double
getOffsetLeft self = liftDOM (((self ^. js "offsetLeft") >>= valToNumber))

-- | <https://developer.mozilla.org/docs/Web/API/VisualViewport/offsetTop MDN VisualViewport.offsetTop documentation>
getOffsetTop :: (MonadDOM m) => VisualViewport -> m Double
getOffsetTop self = liftDOM (((self ^. js "offsetTop") >>= valToNumber))

-- | <https://developer.mozilla.org/docs/Web/API/VisualViewport/pageLeft MDN VisualViewport.pageLeft documentation>
getPageLeft :: (MonadDOM m) => VisualViewport -> m Double
getPageLeft self = liftDOM (((self ^. js "pageLeft") >>= valToNumber))

-- | <https://developer.mozilla.org/docs/Web/API/VisualViewport/pageTop MDN VisualViewport.pageTop documentation>
getPageTop :: (MonadDOM m) => VisualViewport -> m Double
getPageTop self = liftDOM (((self ^. js "pageTop") >>= valToNumber))

-- | <https://developer.mozilla.org/docs/Web/API/VisualViewport/width MDN VisualViewport.width documentation>
getWidth :: (MonadDOM m) => VisualViewport -> m Double
getWidth self = liftDOM (((self ^. js "width") >>= valToNumber))

-- | <https://developer.mozilla.org/docs/Web/API/VisualViewport/height MDN VisualViewport.height documentation>
getHeight :: (MonadDOM m) => VisualViewport -> m Double
getHeight self = liftDOM (((self ^. js "height") >>= valToNumber))

-- | <https://developer.mozilla.org/docs/Web/API/VisualViewport/scale MDN VisualViewport.scale documentation>
getScale :: (MonadDOM m) => VisualViewport -> m Double
getScale self = liftDOM (((self ^. js "scale") >>= valToNumber))

-- | <https://drafts.csswg.org/cssom-view-1/#dom-visualviewport-onresize resize event>
resize :: EventName VisualViewport Event
resize = unsafeEventName (toJSString "resize")

-- | <https://drafts.csswg.org/cssom-view-1/#dom-visualviewport-onscroll scroll event>
scroll :: EventName VisualViewport Event
scroll = unsafeEventName (toJSString "scroll")

-- | <https://drafts.csswg.org/cssom-view-1/#dom-visualviewport-onscrollend scrollend event>
scrollend :: EventName VisualViewport Event
scrollend = unsafeEventName (toJSString "scrollend")