SpeechRecognition.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from speech-api (webref). Do not edit.
module JSDOM.Generated.SpeechRecognition
       (newSpeechRecognition, abort, start, startAudioTrack, stop, available, available_, install, install_, setGrammars, getGrammars, setLang, getLang, setContinuous, getContinuous, setInterimResults, getInterimResults, setUnspokenPunctuation, getUnspokenPunctuation, setMaxAlternatives, getMaxAlternatives, setProcessLocally, getProcessLocally, setPhrases, getPhrases, audiostart, soundstart, speechstart, speechend, soundend, audioend, result', nomatch, error, startEvent, end, SpeechRecognition(..), gTypeSpeechRecognition)
       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/SpeechRecognition/SpeechRecognition MDN SpeechRecognition. documentation>
newSpeechRecognition :: (MonadDOM m) => m SpeechRecognition
newSpeechRecognition = liftDOM (((new (jsg "SpeechRecognition") ()) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/SpeechRecognition/abort MDN SpeechRecognition.abort documentation>
abort :: (MonadDOM m) => SpeechRecognition -> m ()
abort self = liftDOM (void (self ^. jsf "abort" ()))

-- | <https://developer.mozilla.org/docs/Web/API/SpeechRecognition/start MDN SpeechRecognition.start documentation>
start :: (MonadDOM m) => SpeechRecognition -> m ()
start self = liftDOM (void (self ^. jsf "start" ()))

-- | <https://developer.mozilla.org/docs/Web/API/SpeechRecognition/start MDN SpeechRecognition.start documentation>
startAudioTrack :: (MonadDOM m, IsMediaStreamTrack audioTrack) => SpeechRecognition -> audioTrack -> m ()
startAudioTrack self audioTrack = liftDOM (void (self ^. jsf "start" [toJSVal audioTrack]))

-- | <https://developer.mozilla.org/docs/Web/API/SpeechRecognition/stop MDN SpeechRecognition.stop documentation>
stop :: (MonadDOM m) => SpeechRecognition -> m ()
stop self = liftDOM (void (self ^. jsf "stop" ()))

-- | <https://developer.mozilla.org/docs/Web/API/SpeechRecognition/available_static MDN SpeechRecognition.available documentation>
available :: (MonadDOM m) => SpeechRecognitionOptions -> m SpeechRecognitionAvailabilityStatus
available options = liftDOM ((((((jsg "SpeechRecognition") ^. jsf "available" [toJSVal options]) >>= readPromise)) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/SpeechRecognition/available_static MDN SpeechRecognition.available documentation>
available_ :: (MonadDOM m) => SpeechRecognitionOptions -> m ()
available_ options = liftDOM (void ((((jsg "SpeechRecognition") ^. jsf "available" [toJSVal options]) >>= readPromise)))

-- | <https://developer.mozilla.org/docs/Web/API/SpeechRecognition/install_static MDN SpeechRecognition.install documentation>
install :: (MonadDOM m) => SpeechRecognitionOptions -> m Bool
install options = liftDOM ((((((jsg "SpeechRecognition") ^. jsf "install" [toJSVal options]) >>= readPromise)) >>= valToBool))

-- | <https://developer.mozilla.org/docs/Web/API/SpeechRecognition/install_static MDN SpeechRecognition.install documentation>
install_ :: (MonadDOM m) => SpeechRecognitionOptions -> m ()
install_ options = liftDOM (void ((((jsg "SpeechRecognition") ^. jsf "install" [toJSVal options]) >>= readPromise)))

-- | <https://developer.mozilla.org/docs/Web/API/SpeechRecognition/grammars MDN SpeechRecognition.grammars documentation>
setGrammars :: (MonadDOM m) => SpeechRecognition -> SpeechGrammarList -> m ()
setGrammars self val = liftDOM (void (self ^. jss "grammars" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/SpeechRecognition/grammars MDN SpeechRecognition.grammars documentation>
getGrammars :: (MonadDOM m) => SpeechRecognition -> m SpeechGrammarList
getGrammars self = liftDOM (((self ^. js "grammars") >>= fromJSValUnchecked))

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

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

-- | <https://developer.mozilla.org/docs/Web/API/SpeechRecognition/continuous MDN SpeechRecognition.continuous documentation>
setContinuous :: (MonadDOM m) => SpeechRecognition -> Bool -> m ()
setContinuous self val = liftDOM (void (self ^. jss "continuous" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/SpeechRecognition/continuous MDN SpeechRecognition.continuous documentation>
getContinuous :: (MonadDOM m) => SpeechRecognition -> m Bool
getContinuous self = liftDOM (((self ^. js "continuous") >>= valToBool))

-- | <https://developer.mozilla.org/docs/Web/API/SpeechRecognition/interimResults MDN SpeechRecognition.interimResults documentation>
setInterimResults :: (MonadDOM m) => SpeechRecognition -> Bool -> m ()
setInterimResults self val = liftDOM (void (self ^. jss "interimResults" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/SpeechRecognition/interimResults MDN SpeechRecognition.interimResults documentation>
getInterimResults :: (MonadDOM m) => SpeechRecognition -> m Bool
getInterimResults self = liftDOM (((self ^. js "interimResults") >>= valToBool))

-- | <https://developer.mozilla.org/docs/Web/API/SpeechRecognition/unspokenPunctuation MDN SpeechRecognition.unspokenPunctuation documentation>
setUnspokenPunctuation :: (MonadDOM m) => SpeechRecognition -> Bool -> m ()
setUnspokenPunctuation self val = liftDOM (void (self ^. jss "unspokenPunctuation" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/SpeechRecognition/unspokenPunctuation MDN SpeechRecognition.unspokenPunctuation documentation>
getUnspokenPunctuation :: (MonadDOM m) => SpeechRecognition -> m Bool
getUnspokenPunctuation self = liftDOM (((self ^. js "unspokenPunctuation") >>= valToBool))

-- | <https://developer.mozilla.org/docs/Web/API/SpeechRecognition/maxAlternatives MDN SpeechRecognition.maxAlternatives documentation>
setMaxAlternatives :: (MonadDOM m) => SpeechRecognition -> Word -> m ()
setMaxAlternatives self val = liftDOM (void (self ^. jss "maxAlternatives" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/SpeechRecognition/maxAlternatives MDN SpeechRecognition.maxAlternatives documentation>
getMaxAlternatives :: (MonadDOM m) => SpeechRecognition -> m Word
getMaxAlternatives self = liftDOM ((P.round <$> ((self ^. js "maxAlternatives") >>= valToNumber)))

-- | <https://developer.mozilla.org/docs/Web/API/SpeechRecognition/processLocally MDN SpeechRecognition.processLocally documentation>
setProcessLocally :: (MonadDOM m) => SpeechRecognition -> Bool -> m ()
setProcessLocally self val = liftDOM (void (self ^. jss "processLocally" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/SpeechRecognition/processLocally MDN SpeechRecognition.processLocally documentation>
getProcessLocally :: (MonadDOM m) => SpeechRecognition -> m Bool
getProcessLocally self = liftDOM (((self ^. js "processLocally") >>= valToBool))

-- | <https://developer.mozilla.org/docs/Web/API/SpeechRecognition/phrases MDN SpeechRecognition.phrases documentation>
setPhrases :: (MonadDOM m) => SpeechRecognition -> [SpeechRecognitionPhrase] -> m ()
setPhrases self val = liftDOM (void (self ^. jss "phrases" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/SpeechRecognition/phrases MDN SpeechRecognition.phrases documentation>
getPhrases :: (MonadDOM m) => SpeechRecognition -> m [SpeechRecognitionPhrase]
getPhrases self = liftDOM (((self ^. js "phrases") >>= fromJSValUnchecked))

-- | <https://webaudio.github.io/web-speech-api/#dom-speechrecognition-onaudiostart audiostart event>
audiostart :: EventName SpeechRecognition Event
audiostart = unsafeEventName (toJSString "audiostart")

-- | <https://webaudio.github.io/web-speech-api/#dom-speechrecognition-onsoundstart soundstart event>
soundstart :: EventName SpeechRecognition Event
soundstart = unsafeEventName (toJSString "soundstart")

-- | <https://webaudio.github.io/web-speech-api/#dom-speechrecognition-onspeechstart speechstart event>
speechstart :: EventName SpeechRecognition Event
speechstart = unsafeEventName (toJSString "speechstart")

-- | <https://webaudio.github.io/web-speech-api/#dom-speechrecognition-onspeechend speechend event>
speechend :: EventName SpeechRecognition Event
speechend = unsafeEventName (toJSString "speechend")

-- | <https://webaudio.github.io/web-speech-api/#dom-speechrecognition-onsoundend soundend event>
soundend :: EventName SpeechRecognition Event
soundend = unsafeEventName (toJSString "soundend")

-- | <https://webaudio.github.io/web-speech-api/#dom-speechrecognition-onaudioend audioend event>
audioend :: EventName SpeechRecognition Event
audioend = unsafeEventName (toJSString "audioend")

-- | <https://webaudio.github.io/web-speech-api/#dom-speechrecognition-onresult result event>
result' :: EventName SpeechRecognition SpeechRecognitionEvent
result' = unsafeEventName (toJSString "result")

-- | <https://webaudio.github.io/web-speech-api/#dom-speechrecognition-onnomatch nomatch event>
nomatch :: EventName SpeechRecognition SpeechRecognitionEvent
nomatch = unsafeEventName (toJSString "nomatch")

-- | <https://webaudio.github.io/web-speech-api/#dom-speechrecognition-onerror error event>
error :: EventName SpeechRecognition SpeechRecognitionErrorEvent
error = unsafeEventNameAsync (toJSString "error")

-- | <https://webaudio.github.io/web-speech-api/#dom-speechrecognition-onstart start event>
startEvent :: EventName SpeechRecognition Event
startEvent = unsafeEventName (toJSString "start")

-- | <https://webaudio.github.io/web-speech-api/#dom-speechrecognition-onend end event>
end :: EventName SpeechRecognition Event
end = unsafeEventName (toJSString "end")