module JSDOM.Generated.Navigator
(getGamepads, getGamepads_, webkitGetUserMedia,
registerProtocolHandler, isProtocolHandlerRegistered,
isProtocolHandlerRegistered_, unregisterProtocolHandler,
vibratePattern, vibratePattern_, vibrate, vibrate_, javaEnabled,
javaEnabled_, getStorageUpdates, getWebkitBattery,
getWebkitBatteryUnsafe, getWebkitBatteryUnchecked, getGeolocation,
getGeolocationUnsafe, getGeolocationUnchecked,
getWebkitTemporaryStorage, getWebkitTemporaryStorageUnsafe,
getWebkitTemporaryStorageUnchecked, getWebkitPersistentStorage,
getWebkitPersistentStorageUnsafe,
getWebkitPersistentStorageUnchecked, getAppCodeName, getAppName,
getAppVersion, getLanguage, getUserAgent, getPlatform, getPlugins,
getPluginsUnsafe, getPluginsUnchecked, getMimeTypes,
getMimeTypesUnsafe, getMimeTypesUnchecked, getProduct,
getProductSub, getVendor, getVendorSub, getCookieEnabled,
getOnLine, getHardwareConcurrency, Navigator(..), gTypeNavigator)
where
import Prelude ((.), (==), (>>=), return, IO, Int, Float, Double, Bool(..), Maybe, maybe, fromIntegral, round, realToFrac, fmap, Show, Read, Eq, Ord, Maybe(..))
import qualified Prelude (error)
import Data.Typeable (Typeable)
import Language.Javascript.JSaddle (JSM(..), JSVal(..), JSString, strictEqual, toJSVal, valToStr, valToNumber, valToBool, js, jss, jsf, jsg, function, new, array)
import Data.Int (Int64)
import Data.Word (Word, Word64)
import JSDOM.Types
import Control.Applicative ((<$>))
import Control.Monad (void)
import Control.Lens.Operators ((^.))
import JSDOM.EventTargetClosures (EventName, unsafeEventName)
import JSDOM.Enums
getGamepads :: (MonadDOM m) => Navigator -> m [Maybe Gamepad]
getGamepads self
= liftDOM ((self ^. jsf "getGamepads" ()) >>= fromJSArray)
getGamepads_ :: (MonadDOM m) => Navigator -> m ()
getGamepads_ self = liftDOM (void (self ^. jsf "getGamepads" ()))
webkitGetUserMedia ::
(MonadDOM m, IsDictionary options) =>
Navigator ->
Maybe options ->
Maybe NavigatorUserMediaSuccessCallback ->
Maybe NavigatorUserMediaErrorCallback -> m ()
webkitGetUserMedia self options successCallback errorCallback
= liftDOM
(void
(self ^. jsf "webkitGetUserMedia"
[toJSVal options, toJSVal successCallback, toJSVal errorCallback]))
registerProtocolHandler ::
(MonadDOM m, ToJSString scheme, ToJSString url,
ToJSString title) =>
Navigator -> scheme -> url -> title -> m ()
registerProtocolHandler self scheme url title
= liftDOM
(void
(self ^. jsf "registerProtocolHandler"
[toJSVal scheme, toJSVal url, toJSVal title]))
isProtocolHandlerRegistered ::
(MonadDOM m, ToJSString scheme, ToJSString url,
FromJSString result) =>
Navigator -> scheme -> url -> m result
isProtocolHandlerRegistered self scheme url
= liftDOM
((self ^. jsf "isProtocolHandlerRegistered"
[toJSVal scheme, toJSVal url])
>>= fromJSValUnchecked)
isProtocolHandlerRegistered_ ::
(MonadDOM m, ToJSString scheme, ToJSString url) =>
Navigator -> scheme -> url -> m ()
isProtocolHandlerRegistered_ self scheme url
= liftDOM
(void
(self ^. jsf "isProtocolHandlerRegistered"
[toJSVal scheme, toJSVal url]))
unregisterProtocolHandler ::
(MonadDOM m, ToJSString scheme, ToJSString url) =>
Navigator -> scheme -> url -> m ()
unregisterProtocolHandler self scheme url
= liftDOM
(void
(self ^. jsf "unregisterProtocolHandler"
[toJSVal scheme, toJSVal url]))
vibratePattern :: (MonadDOM m) => Navigator -> [Word] -> m Bool
vibratePattern self pattern'
= liftDOM
((self ^. jsf "vibrate" [toJSVal (array pattern')]) >>= valToBool)
vibratePattern_ :: (MonadDOM m) => Navigator -> [Word] -> m ()
vibratePattern_ self pattern'
= liftDOM (void (self ^. jsf "vibrate" [toJSVal (array pattern')]))
vibrate :: (MonadDOM m) => Navigator -> Word -> m Bool
vibrate self time
= liftDOM ((self ^. jsf "vibrate" [toJSVal time]) >>= valToBool)
vibrate_ :: (MonadDOM m) => Navigator -> Word -> m ()
vibrate_ self time
= liftDOM (void (self ^. jsf "vibrate" [toJSVal time]))
javaEnabled :: (MonadDOM m) => Navigator -> m Bool
javaEnabled self
= liftDOM ((self ^. jsf "javaEnabled" ()) >>= valToBool)
javaEnabled_ :: (MonadDOM m) => Navigator -> m ()
javaEnabled_ self = liftDOM (void (self ^. jsf "javaEnabled" ()))
getStorageUpdates :: (MonadDOM m) => Navigator -> m ()
getStorageUpdates self
= liftDOM (void (self ^. jsf "getStorageUpdates" ()))
getWebkitBattery ::
(MonadDOM m) => Navigator -> m (Maybe BatteryManager)
getWebkitBattery self
= liftDOM ((self ^. js "webkitBattery") >>= fromJSVal)
getWebkitBatteryUnsafe ::
(MonadDOM m, HasCallStack) => Navigator -> m BatteryManager
getWebkitBatteryUnsafe self
= liftDOM
(((self ^. js "webkitBattery") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getWebkitBatteryUnchecked ::
(MonadDOM m) => Navigator -> m BatteryManager
getWebkitBatteryUnchecked self
= liftDOM ((self ^. js "webkitBattery") >>= fromJSValUnchecked)
getGeolocation ::
(MonadDOM m) => Navigator -> m (Maybe Geolocation)
getGeolocation self
= liftDOM ((self ^. js "geolocation") >>= fromJSVal)
getGeolocationUnsafe ::
(MonadDOM m, HasCallStack) => Navigator -> m Geolocation
getGeolocationUnsafe self
= liftDOM
(((self ^. js "geolocation") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getGeolocationUnchecked ::
(MonadDOM m) => Navigator -> m Geolocation
getGeolocationUnchecked self
= liftDOM ((self ^. js "geolocation") >>= fromJSValUnchecked)
getWebkitTemporaryStorage ::
(MonadDOM m) => Navigator -> m (Maybe StorageQuota)
getWebkitTemporaryStorage self
= liftDOM ((self ^. js "webkitTemporaryStorage") >>= fromJSVal)
getWebkitTemporaryStorageUnsafe ::
(MonadDOM m, HasCallStack) => Navigator -> m StorageQuota
getWebkitTemporaryStorageUnsafe self
= liftDOM
(((self ^. js "webkitTemporaryStorage") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getWebkitTemporaryStorageUnchecked ::
(MonadDOM m) => Navigator -> m StorageQuota
getWebkitTemporaryStorageUnchecked self
= liftDOM
((self ^. js "webkitTemporaryStorage") >>= fromJSValUnchecked)
getWebkitPersistentStorage ::
(MonadDOM m) => Navigator -> m (Maybe StorageQuota)
getWebkitPersistentStorage self
= liftDOM ((self ^. js "webkitPersistentStorage") >>= fromJSVal)
getWebkitPersistentStorageUnsafe ::
(MonadDOM m, HasCallStack) => Navigator -> m StorageQuota
getWebkitPersistentStorageUnsafe self
= liftDOM
(((self ^. js "webkitPersistentStorage") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getWebkitPersistentStorageUnchecked ::
(MonadDOM m) => Navigator -> m StorageQuota
getWebkitPersistentStorageUnchecked self
= liftDOM
((self ^. js "webkitPersistentStorage") >>= fromJSValUnchecked)
getAppCodeName ::
(MonadDOM m, FromJSString result) => Navigator -> m result
getAppCodeName self
= liftDOM ((self ^. js "appCodeName") >>= fromJSValUnchecked)
getAppName ::
(MonadDOM m, FromJSString result) => Navigator -> m result
getAppName self
= liftDOM ((self ^. js "appName") >>= fromJSValUnchecked)
getAppVersion ::
(MonadDOM m, FromJSString result) => Navigator -> m result
getAppVersion self
= liftDOM ((self ^. js "appVersion") >>= fromJSValUnchecked)
getLanguage ::
(MonadDOM m, FromJSString result) => Navigator -> m result
getLanguage self
= liftDOM ((self ^. js "language") >>= fromJSValUnchecked)
getUserAgent ::
(MonadDOM m, FromJSString result) => Navigator -> m result
getUserAgent self
= liftDOM ((self ^. js "userAgent") >>= fromJSValUnchecked)
getPlatform ::
(MonadDOM m, FromJSString result) => Navigator -> m result
getPlatform self
= liftDOM ((self ^. js "platform") >>= fromJSValUnchecked)
getPlugins :: (MonadDOM m) => Navigator -> m (Maybe PluginArray)
getPlugins self = liftDOM ((self ^. js "plugins") >>= fromJSVal)
getPluginsUnsafe ::
(MonadDOM m, HasCallStack) => Navigator -> m PluginArray
getPluginsUnsafe self
= liftDOM
(((self ^. js "plugins") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getPluginsUnchecked :: (MonadDOM m) => Navigator -> m PluginArray
getPluginsUnchecked self
= liftDOM ((self ^. js "plugins") >>= fromJSValUnchecked)
getMimeTypes ::
(MonadDOM m) => Navigator -> m (Maybe MimeTypeArray)
getMimeTypes self
= liftDOM ((self ^. js "mimeTypes") >>= fromJSVal)
getMimeTypesUnsafe ::
(MonadDOM m, HasCallStack) => Navigator -> m MimeTypeArray
getMimeTypesUnsafe self
= liftDOM
(((self ^. js "mimeTypes") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getMimeTypesUnchecked ::
(MonadDOM m) => Navigator -> m MimeTypeArray
getMimeTypesUnchecked self
= liftDOM ((self ^. js "mimeTypes") >>= fromJSValUnchecked)
getProduct ::
(MonadDOM m, FromJSString result) => Navigator -> m result
getProduct self
= liftDOM ((self ^. js "product") >>= fromJSValUnchecked)
getProductSub ::
(MonadDOM m, FromJSString result) => Navigator -> m result
getProductSub self
= liftDOM ((self ^. js "productSub") >>= fromJSValUnchecked)
getVendor ::
(MonadDOM m, FromJSString result) => Navigator -> m result
getVendor self
= liftDOM ((self ^. js "vendor") >>= fromJSValUnchecked)
getVendorSub ::
(MonadDOM m, FromJSString result) => Navigator -> m result
getVendorSub self
= liftDOM ((self ^. js "vendorSub") >>= fromJSValUnchecked)
getCookieEnabled :: (MonadDOM m) => Navigator -> m Bool
getCookieEnabled self
= liftDOM ((self ^. js "cookieEnabled") >>= valToBool)
getOnLine :: (MonadDOM m) => Navigator -> m Bool
getOnLine self = liftDOM ((self ^. js "onLine") >>= valToBool)
getHardwareConcurrency :: (MonadDOM m) => Navigator -> m Int
getHardwareConcurrency self
= liftDOM
(round <$> ((self ^. js "hardwareConcurrency") >>= valToNumber))