FullscreenOptions.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from fullscreen (webref). Do not edit.
module JSDOM.Generated.FullscreenOptions
       (newFullscreenOptions, setKeyboardLock, getKeyboardLock, getKeyboardLockUnsafe, getKeyboardLockUnchecked, setNavigationUI, getNavigationUI, getNavigationUIUnsafe, getNavigationUIUnchecked, setScreen, getScreen, getScreenUnsafe, getScreenUnchecked, FullscreenOptions(..), gTypeFullscreenOptions)
       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://fullscreen.spec.whatwg.org/#dictdef-fullscreenoptions FullscreenOptions specification>
newFullscreenOptions :: (MonadDOM m) => m FullscreenOptions
newFullscreenOptions = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://fullscreen.spec.whatwg.org/#dom-fullscreenoptions-keyboardlock FullscreenOptions.keyboardLock specification>
setKeyboardLock :: (MonadDOM m) => FullscreenOptions -> FullscreenKeyboardLock -> m ()
setKeyboardLock self val = liftDOM (void (self ^. jss "keyboardLock" (toJSVal val)))

-- | <https://fullscreen.spec.whatwg.org/#dom-fullscreenoptions-keyboardlock FullscreenOptions.keyboardLock specification>
getKeyboardLock :: (MonadDOM m) => FullscreenOptions -> m (Maybe FullscreenKeyboardLock)
getKeyboardLock self = liftDOM (((self ^. js "keyboardLock") >>= fromJSValUnchecked))

-- | <https://fullscreen.spec.whatwg.org/#dom-fullscreenoptions-keyboardlock FullscreenOptions.keyboardLock specification>
getKeyboardLockUnsafe :: (MonadDOM m, HasCallStack) => FullscreenOptions -> m FullscreenKeyboardLock
getKeyboardLockUnsafe self = liftDOM ((((self ^. js "keyboardLock") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://fullscreen.spec.whatwg.org/#dom-fullscreenoptions-keyboardlock FullscreenOptions.keyboardLock specification>
getKeyboardLockUnchecked :: (MonadDOM m) => FullscreenOptions -> m FullscreenKeyboardLock
getKeyboardLockUnchecked self = liftDOM (((self ^. js "keyboardLock") >>= fromJSValUnchecked))

-- | <https://fullscreen.spec.whatwg.org/#dom-fullscreenoptions-navigationui FullscreenOptions.navigationUI specification>
setNavigationUI :: (MonadDOM m) => FullscreenOptions -> FullscreenNavigationUI -> m ()
setNavigationUI self val = liftDOM (void (self ^. jss "navigationUI" (toJSVal val)))

-- | <https://fullscreen.spec.whatwg.org/#dom-fullscreenoptions-navigationui FullscreenOptions.navigationUI specification>
getNavigationUI :: (MonadDOM m) => FullscreenOptions -> m (Maybe FullscreenNavigationUI)
getNavigationUI self = liftDOM (((self ^. js "navigationUI") >>= fromJSValUnchecked))

-- | <https://fullscreen.spec.whatwg.org/#dom-fullscreenoptions-navigationui FullscreenOptions.navigationUI specification>
getNavigationUIUnsafe :: (MonadDOM m, HasCallStack) => FullscreenOptions -> m FullscreenNavigationUI
getNavigationUIUnsafe self = liftDOM ((((self ^. js "navigationUI") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://fullscreen.spec.whatwg.org/#dom-fullscreenoptions-navigationui FullscreenOptions.navigationUI specification>
getNavigationUIUnchecked :: (MonadDOM m) => FullscreenOptions -> m FullscreenNavigationUI
getNavigationUIUnchecked self = liftDOM (((self ^. js "navigationUI") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/window-management/#dom-fullscreenoptions-screen FullscreenOptions.screen specification>
setScreen :: (MonadDOM m) => FullscreenOptions -> ScreenDetailed -> m ()
setScreen self val = liftDOM (void (self ^. jss "screen" (toJSVal val)))

-- | <https://w3c.github.io/window-management/#dom-fullscreenoptions-screen FullscreenOptions.screen specification>
getScreen :: (MonadDOM m) => FullscreenOptions -> m (Maybe ScreenDetailed)
getScreen self = liftDOM (((self ^. js "screen") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/window-management/#dom-fullscreenoptions-screen FullscreenOptions.screen specification>
getScreenUnsafe :: (MonadDOM m, HasCallStack) => FullscreenOptions -> m ScreenDetailed
getScreenUnsafe self = liftDOM ((((self ^. js "screen") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/window-management/#dom-fullscreenoptions-screen FullscreenOptions.screen specification>
getScreenUnchecked :: (MonadDOM m) => FullscreenOptions -> m ScreenDetailed
getScreenUnchecked self = liftDOM (((self ^. js "screen") >>= fromJSValUnchecked))