NotificationOptions.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from notifications (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.NotificationOptions
       (js_newNotificationOptions, js_setDir, js_getDir, js_setLang, js_getLang, js_setBody, js_getBody, js_setNavigate, js_getNavigate, js_setTag, js_getTag, js_setImage, js_getImage, js_setIcon, js_getIcon, js_setBadge, js_getBadge, js_setTimestamp, js_getTimestamp, js_setRenotify, js_getRenotify, js_setSilent, js_getSilent, js_setRequireInteraction, js_getRequireInteraction, js_setData, js_getData, js_setActions, js_getActions, newNotificationOptions, setDir, getDir, getDirUnsafe, getDirUnchecked, setLang, getLang, getLangUnsafe, getLangUnchecked, setBody, getBody, getBodyUnsafe, getBodyUnchecked, setNavigate, getNavigate, getNavigateUnsafe, getNavigateUnchecked, setTag, getTag, getTagUnsafe, getTagUnchecked, setImage, getImage, getImageUnsafe, getImageUnchecked, setIcon, getIcon, getIconUnsafe, getIconUnchecked, setBadge, getBadge, getBadgeUnsafe, getBadgeUnchecked, setTimestamp, getTimestamp, getTimestampUnsafe, getTimestampUnchecked, setRenotify, getRenotify, getRenotifyUnsafe, getRenotifyUnchecked, setSilent, getSilent, getSilentUnsafe, getSilentUnchecked, setRequireInteraction, getRequireInteraction, getRequireInteractionUnsafe, getRequireInteractionUnchecked, setData, getData, setActions, getActions, getActionsUnsafe, getActionsUnchecked, NotificationOptions(..), gTypeNotificationOptions)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import GHCJS.Types (JSVal, JSString)
import GHCJS.Foreign (jsUndefined, jsNull)
import GHCJS.DOM.Types
import qualified GHCJS.DOM.Types as Types
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import GHCJS.DOM.JSFFI.Generated.Enums

foreign import javascript safe "(() => { return ({}); })"
        js_newNotificationOptions :: IO NotificationOptions
-- | <https://notifications.spec.whatwg.org/#dictdef-notificationoptions NotificationOptions specification>
newNotificationOptions :: (MonadDOM m) => m NotificationOptions
newNotificationOptions = liftDOM ((js_newNotificationOptions))

foreign import javascript safe "(($1, $2) => { $1[\"dir\"] = $2; })"
        js_setDir :: NotificationOptions -> JSVal -> IO ()
-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-dir NotificationOptions.dir specification>
setDir :: (MonadDOM m) => NotificationOptions -> NotificationDirection -> m ()
setDir self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setDir (self) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"dir\"]; })"
        js_getDir :: NotificationOptions -> IO JSVal
-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-dir NotificationOptions.dir specification>
getDir :: (MonadDOM m) => NotificationOptions -> m (Maybe NotificationDirection)
getDir self = liftDOM (((js_getDir (self)) >>= fromJSValUnchecked))

-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-dir NotificationOptions.dir specification>
getDirUnsafe :: (MonadDOM m, HasCallStack) => NotificationOptions -> m NotificationDirection
getDirUnsafe self = liftDOM ((((js_getDir (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-dir NotificationOptions.dir specification>
getDirUnchecked :: (MonadDOM m) => NotificationOptions -> m NotificationDirection
getDirUnchecked self = liftDOM ((pFromJSVal <$> (js_getDir (self))))

foreign import javascript safe "(($1, $2) => { $1[\"lang\"] = $2; })"
        js_setLang :: NotificationOptions -> JSString -> IO ()
-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-lang NotificationOptions.lang specification>
setLang :: (MonadDOM m, ToJSString val) => NotificationOptions -> val -> m ()
setLang self val = liftDOM (void ((js_setLang (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"lang\"]; })"
        js_getLang :: NotificationOptions -> IO JSVal
-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-lang NotificationOptions.lang specification>
getLang :: (MonadDOM m, FromJSString result) => NotificationOptions -> m (Maybe result)
getLang self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getLang (self))))

-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-lang NotificationOptions.lang specification>
getLangUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => NotificationOptions -> m result
getLangUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getLang (self))) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-lang NotificationOptions.lang specification>
getLangUnchecked :: (MonadDOM m, FromJSString result) => NotificationOptions -> m result
getLangUnchecked self = liftDOM ((pFromJSVal <$> (js_getLang (self))))

foreign import javascript safe "(($1, $2) => { $1[\"body\"] = $2; })"
        js_setBody :: NotificationOptions -> JSString -> IO ()
-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-body NotificationOptions.body specification>
setBody :: (MonadDOM m, ToJSString val) => NotificationOptions -> val -> m ()
setBody self val = liftDOM (void ((js_setBody (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"body\"]; })"
        js_getBody :: NotificationOptions -> IO JSVal
-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-body NotificationOptions.body specification>
getBody :: (MonadDOM m, FromJSString result) => NotificationOptions -> m (Maybe result)
getBody self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getBody (self))))

-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-body NotificationOptions.body specification>
getBodyUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => NotificationOptions -> m result
getBodyUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getBody (self))) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-body NotificationOptions.body specification>
getBodyUnchecked :: (MonadDOM m, FromJSString result) => NotificationOptions -> m result
getBodyUnchecked self = liftDOM ((pFromJSVal <$> (js_getBody (self))))

foreign import javascript safe "(($1, $2) => { $1[\"navigate\"] = $2; })"
        js_setNavigate :: NotificationOptions -> JSString -> IO ()
-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-navigate NotificationOptions.navigate specification>
setNavigate :: (MonadDOM m, ToJSString val) => NotificationOptions -> val -> m ()
setNavigate self val = liftDOM (void ((js_setNavigate (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"navigate\"]; })"
        js_getNavigate :: NotificationOptions -> IO JSVal
-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-navigate NotificationOptions.navigate specification>
getNavigate :: (MonadDOM m, FromJSString result) => NotificationOptions -> m (Maybe result)
getNavigate self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getNavigate (self))))

-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-navigate NotificationOptions.navigate specification>
getNavigateUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => NotificationOptions -> m result
getNavigateUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getNavigate (self))) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-navigate NotificationOptions.navigate specification>
getNavigateUnchecked :: (MonadDOM m, FromJSString result) => NotificationOptions -> m result
getNavigateUnchecked self = liftDOM ((pFromJSVal <$> (js_getNavigate (self))))

foreign import javascript safe "(($1, $2) => { $1[\"tag\"] = $2; })"
        js_setTag :: NotificationOptions -> JSString -> IO ()
-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-tag NotificationOptions.tag specification>
setTag :: (MonadDOM m, ToJSString val) => NotificationOptions -> val -> m ()
setTag self val = liftDOM (void ((js_setTag (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"tag\"]; })"
        js_getTag :: NotificationOptions -> IO JSVal
-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-tag NotificationOptions.tag specification>
getTag :: (MonadDOM m, FromJSString result) => NotificationOptions -> m (Maybe result)
getTag self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getTag (self))))

-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-tag NotificationOptions.tag specification>
getTagUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => NotificationOptions -> m result
getTagUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getTag (self))) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-tag NotificationOptions.tag specification>
getTagUnchecked :: (MonadDOM m, FromJSString result) => NotificationOptions -> m result
getTagUnchecked self = liftDOM ((pFromJSVal <$> (js_getTag (self))))

foreign import javascript safe "(($1, $2) => { $1[\"image\"] = $2; })"
        js_setImage :: NotificationOptions -> JSString -> IO ()
-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-image NotificationOptions.image specification>
setImage :: (MonadDOM m, ToJSString val) => NotificationOptions -> val -> m ()
setImage self val = liftDOM (void ((js_setImage (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"image\"]; })"
        js_getImage :: NotificationOptions -> IO JSVal
-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-image NotificationOptions.image specification>
getImage :: (MonadDOM m, FromJSString result) => NotificationOptions -> m (Maybe result)
getImage self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getImage (self))))

-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-image NotificationOptions.image specification>
getImageUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => NotificationOptions -> m result
getImageUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getImage (self))) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-image NotificationOptions.image specification>
getImageUnchecked :: (MonadDOM m, FromJSString result) => NotificationOptions -> m result
getImageUnchecked self = liftDOM ((pFromJSVal <$> (js_getImage (self))))

foreign import javascript safe "(($1, $2) => { $1[\"icon\"] = $2; })"
        js_setIcon :: NotificationOptions -> JSString -> IO ()
-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-icon NotificationOptions.icon specification>
setIcon :: (MonadDOM m, ToJSString val) => NotificationOptions -> val -> m ()
setIcon self val = liftDOM (void ((js_setIcon (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"icon\"]; })"
        js_getIcon :: NotificationOptions -> IO JSVal
-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-icon NotificationOptions.icon specification>
getIcon :: (MonadDOM m, FromJSString result) => NotificationOptions -> m (Maybe result)
getIcon self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getIcon (self))))

-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-icon NotificationOptions.icon specification>
getIconUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => NotificationOptions -> m result
getIconUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getIcon (self))) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-icon NotificationOptions.icon specification>
getIconUnchecked :: (MonadDOM m, FromJSString result) => NotificationOptions -> m result
getIconUnchecked self = liftDOM ((pFromJSVal <$> (js_getIcon (self))))

foreign import javascript safe "(($1, $2) => { $1[\"badge\"] = $2; })"
        js_setBadge :: NotificationOptions -> JSString -> IO ()
-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-badge NotificationOptions.badge specification>
setBadge :: (MonadDOM m, ToJSString val) => NotificationOptions -> val -> m ()
setBadge self val = liftDOM (void ((js_setBadge (self) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"badge\"]; })"
        js_getBadge :: NotificationOptions -> IO JSVal
-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-badge NotificationOptions.badge specification>
getBadge :: (MonadDOM m, FromJSString result) => NotificationOptions -> m (Maybe result)
getBadge self = liftDOM (((fromMaybeJSString . Nullable) <$> (js_getBadge (self))))

-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-badge NotificationOptions.badge specification>
getBadgeUnsafe :: (MonadDOM m, HasCallStack, FromJSString result) => NotificationOptions -> m result
getBadgeUnsafe self = liftDOM ((((fromMaybeJSString . Nullable) <$> (js_getBadge (self))) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-badge NotificationOptions.badge specification>
getBadgeUnchecked :: (MonadDOM m, FromJSString result) => NotificationOptions -> m result
getBadgeUnchecked self = liftDOM ((pFromJSVal <$> (js_getBadge (self))))

foreign import javascript safe "(($1, $2) => { $1[\"timestamp\"] = $2; })"
        js_setTimestamp :: NotificationOptions -> JSVal -> IO ()
-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-timestamp NotificationOptions.timestamp specification>
setTimestamp :: (MonadDOM m) => NotificationOptions -> Word53 -> m ()
setTimestamp self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setTimestamp (self) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"timestamp\"]; })"
        js_getTimestamp :: NotificationOptions -> IO JSVal
-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-timestamp NotificationOptions.timestamp specification>
getTimestamp :: (MonadDOM m) => NotificationOptions -> m (Maybe Word53)
getTimestamp self = liftDOM (((js_getTimestamp (self)) >>= fromJSValUnchecked))

-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-timestamp NotificationOptions.timestamp specification>
getTimestampUnsafe :: (MonadDOM m, HasCallStack) => NotificationOptions -> m Word53
getTimestampUnsafe self = liftDOM ((((js_getTimestamp (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-timestamp NotificationOptions.timestamp specification>
getTimestampUnchecked :: (MonadDOM m) => NotificationOptions -> m Word53
getTimestampUnchecked self = liftDOM ((pFromJSVal <$> (js_getTimestamp (self))))

foreign import javascript safe "(($1, $2) => { $1[\"renotify\"] = $2; })"
        js_setRenotify :: NotificationOptions -> Bool -> IO ()
-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-renotify NotificationOptions.renotify specification>
setRenotify :: (MonadDOM m) => NotificationOptions -> Bool -> m ()
setRenotify self val = liftDOM (void ((js_setRenotify (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"renotify\"]; })"
        js_getRenotify :: NotificationOptions -> IO JSVal
-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-renotify NotificationOptions.renotify specification>
getRenotify :: (MonadDOM m) => NotificationOptions -> m (Maybe Bool)
getRenotify self = liftDOM (((js_getRenotify (self)) >>= fromJSValUnchecked))

-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-renotify NotificationOptions.renotify specification>
getRenotifyUnsafe :: (MonadDOM m, HasCallStack) => NotificationOptions -> m Bool
getRenotifyUnsafe self = liftDOM ((((js_getRenotify (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-renotify NotificationOptions.renotify specification>
getRenotifyUnchecked :: (MonadDOM m) => NotificationOptions -> m Bool
getRenotifyUnchecked self = liftDOM ((pFromJSVal <$> (js_getRenotify (self))))

foreign import javascript safe "(($1, $2) => { $1[\"silent\"] = $2; })"
        js_setSilent :: NotificationOptions -> JSVal -> IO ()
-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-silent NotificationOptions.silent specification>
setSilent :: (MonadDOM m) => NotificationOptions -> Maybe Bool -> m ()
setSilent self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setSilent (self) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"silent\"]; })"
        js_getSilent :: NotificationOptions -> IO JSVal
-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-silent NotificationOptions.silent specification>
getSilent :: (MonadDOM m) => NotificationOptions -> m (Maybe Bool)
getSilent self = liftDOM (((js_getSilent (self)) >>= fromJSValUnchecked))

-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-silent NotificationOptions.silent specification>
getSilentUnsafe :: (MonadDOM m, HasCallStack) => NotificationOptions -> m Bool
getSilentUnsafe self = liftDOM ((((js_getSilent (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-silent NotificationOptions.silent specification>
getSilentUnchecked :: (MonadDOM m) => NotificationOptions -> m Bool
getSilentUnchecked self = liftDOM ((pFromJSVal <$> (js_getSilent (self))))

foreign import javascript safe "(($1, $2) => { $1[\"requireInteraction\"] = $2; })"
        js_setRequireInteraction :: NotificationOptions -> Bool -> IO ()
-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-requireinteraction NotificationOptions.requireInteraction specification>
setRequireInteraction :: (MonadDOM m) => NotificationOptions -> Bool -> m ()
setRequireInteraction self val = liftDOM (void ((js_setRequireInteraction (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"requireInteraction\"]; })"
        js_getRequireInteraction :: NotificationOptions -> IO JSVal
-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-requireinteraction NotificationOptions.requireInteraction specification>
getRequireInteraction :: (MonadDOM m) => NotificationOptions -> m (Maybe Bool)
getRequireInteraction self = liftDOM (((js_getRequireInteraction (self)) >>= fromJSValUnchecked))

-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-requireinteraction NotificationOptions.requireInteraction specification>
getRequireInteractionUnsafe :: (MonadDOM m, HasCallStack) => NotificationOptions -> m Bool
getRequireInteractionUnsafe self = liftDOM ((((js_getRequireInteraction (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-requireinteraction NotificationOptions.requireInteraction specification>
getRequireInteractionUnchecked :: (MonadDOM m) => NotificationOptions -> m Bool
getRequireInteractionUnchecked self = liftDOM ((pFromJSVal <$> (js_getRequireInteraction (self))))

foreign import javascript safe "(($1, $2) => { $1[\"data\"] = $2; })"
        js_setData :: NotificationOptions -> JSVal -> IO ()
-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-data NotificationOptions.data specification>
setData :: (MonadDOM m) => NotificationOptions -> JSVal -> m ()
setData self val = liftDOM (void ((js_setData (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"data\"]; })"
        js_getData :: NotificationOptions -> IO JSVal
-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-data NotificationOptions.data specification>
getData :: (MonadDOM m) => NotificationOptions -> m JSVal
getData self = liftDOM ((js_getData (self)))

foreign import javascript safe "(($1, $2) => { $1[\"actions\"] = $2; })"
        js_setActions :: NotificationOptions -> JSVal -> IO ()
-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-actions NotificationOptions.actions specification>
setActions :: (MonadDOM m) => NotificationOptions -> [NotificationAction] -> m ()
setActions self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setActions (self) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"actions\"]; })"
        js_getActions :: NotificationOptions -> IO JSVal
-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-actions NotificationOptions.actions specification>
getActions :: (MonadDOM m) => NotificationOptions -> m (Maybe [NotificationAction])
getActions self = liftDOM (((js_getActions (self)) >>= fromJSValUnchecked))

-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-actions NotificationOptions.actions specification>
getActionsUnsafe :: (MonadDOM m, HasCallStack) => NotificationOptions -> m [NotificationAction]
getActionsUnsafe self = liftDOM ((((js_getActions (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://notifications.spec.whatwg.org/#dom-notificationoptions-actions NotificationOptions.actions specification>
getActionsUnchecked :: (MonadDOM m) => NotificationOptions -> m [NotificationAction]
getActionsUnchecked self = liftDOM (((js_getActions (self)) >>= fromJSValUnchecked))