module JSDOM.Generated.DOMImplementation
(hasFeature, hasFeature_, createDocumentType, createDocumentType_,
createDocumentTypeUnsafe, createDocumentTypeUnchecked,
createDocument, createDocument_, createDocumentUnsafe,
createDocumentUnchecked, createCSSStyleSheet, createCSSStyleSheet_,
createCSSStyleSheetUnsafe, createCSSStyleSheetUnchecked,
createHTMLDocument, createHTMLDocument_, createHTMLDocumentUnsafe,
createHTMLDocumentUnchecked, DOMImplementation(..),
gTypeDOMImplementation)
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
hasFeature ::
(MonadDOM m, ToJSString feature, ToJSString version) =>
DOMImplementation -> feature -> Maybe version -> m Bool
hasFeature self feature version
= liftDOM
((self ^. jsf "hasFeature" [toJSVal feature, toJSVal version]) >>=
valToBool)
hasFeature_ ::
(MonadDOM m, ToJSString feature, ToJSString version) =>
DOMImplementation -> feature -> Maybe version -> m ()
hasFeature_ self feature version
= liftDOM
(void
(self ^. jsf "hasFeature" [toJSVal feature, toJSVal version]))
createDocumentType ::
(MonadDOM m, ToJSString qualifiedName, ToJSString publicId,
ToJSString systemId) =>
DOMImplementation ->
Maybe qualifiedName ->
Maybe publicId -> Maybe systemId -> m (Maybe DocumentType)
createDocumentType self qualifiedName publicId systemId
= liftDOM
((self ^. jsf "createDocumentType"
[toJSVal qualifiedName, toJSVal publicId, toJSVal systemId])
>>= fromJSVal)
createDocumentType_ ::
(MonadDOM m, ToJSString qualifiedName, ToJSString publicId,
ToJSString systemId) =>
DOMImplementation ->
Maybe qualifiedName -> Maybe publicId -> Maybe systemId -> m ()
createDocumentType_ self qualifiedName publicId systemId
= liftDOM
(void
(self ^. jsf "createDocumentType"
[toJSVal qualifiedName, toJSVal publicId, toJSVal systemId]))
createDocumentTypeUnsafe ::
(MonadDOM m, ToJSString qualifiedName, ToJSString publicId,
ToJSString systemId, HasCallStack) =>
DOMImplementation ->
Maybe qualifiedName ->
Maybe publicId -> Maybe systemId -> m DocumentType
createDocumentTypeUnsafe self qualifiedName publicId systemId
= liftDOM
(((self ^. jsf "createDocumentType"
[toJSVal qualifiedName, toJSVal publicId, toJSVal systemId])
>>= fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
createDocumentTypeUnchecked ::
(MonadDOM m, ToJSString qualifiedName, ToJSString publicId,
ToJSString systemId) =>
DOMImplementation ->
Maybe qualifiedName ->
Maybe publicId -> Maybe systemId -> m DocumentType
createDocumentTypeUnchecked self qualifiedName publicId systemId
= liftDOM
((self ^. jsf "createDocumentType"
[toJSVal qualifiedName, toJSVal publicId, toJSVal systemId])
>>= fromJSValUnchecked)
createDocument ::
(MonadDOM m, ToJSString namespaceURI, ToJSString qualifiedName) =>
DOMImplementation ->
Maybe namespaceURI ->
Maybe qualifiedName -> Maybe DocumentType -> m (Maybe Document)
createDocument self namespaceURI qualifiedName doctype
= liftDOM
((self ^. jsf "createDocument"
[toJSVal namespaceURI, toJSVal qualifiedName, toJSVal doctype])
>>= fromJSVal)
createDocument_ ::
(MonadDOM m, ToJSString namespaceURI, ToJSString qualifiedName) =>
DOMImplementation ->
Maybe namespaceURI ->
Maybe qualifiedName -> Maybe DocumentType -> m ()
createDocument_ self namespaceURI qualifiedName doctype
= liftDOM
(void
(self ^. jsf "createDocument"
[toJSVal namespaceURI, toJSVal qualifiedName, toJSVal doctype]))
createDocumentUnsafe ::
(MonadDOM m, ToJSString namespaceURI, ToJSString qualifiedName,
HasCallStack) =>
DOMImplementation ->
Maybe namespaceURI ->
Maybe qualifiedName -> Maybe DocumentType -> m Document
createDocumentUnsafe self namespaceURI qualifiedName doctype
= liftDOM
(((self ^. jsf "createDocument"
[toJSVal namespaceURI, toJSVal qualifiedName, toJSVal doctype])
>>= fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
createDocumentUnchecked ::
(MonadDOM m, ToJSString namespaceURI, ToJSString qualifiedName) =>
DOMImplementation ->
Maybe namespaceURI ->
Maybe qualifiedName -> Maybe DocumentType -> m Document
createDocumentUnchecked self namespaceURI qualifiedName doctype
= liftDOM
((self ^. jsf "createDocument"
[toJSVal namespaceURI, toJSVal qualifiedName, toJSVal doctype])
>>= fromJSValUnchecked)
createCSSStyleSheet ::
(MonadDOM m, ToJSString title, ToJSString media) =>
DOMImplementation -> title -> media -> m (Maybe CSSStyleSheet)
createCSSStyleSheet self title media
= liftDOM
((self ^. jsf "createCSSStyleSheet" [toJSVal title, toJSVal media])
>>= fromJSVal)
createCSSStyleSheet_ ::
(MonadDOM m, ToJSString title, ToJSString media) =>
DOMImplementation -> title -> media -> m ()
createCSSStyleSheet_ self title media
= liftDOM
(void
(self ^. jsf "createCSSStyleSheet" [toJSVal title, toJSVal media]))
createCSSStyleSheetUnsafe ::
(MonadDOM m, ToJSString title, ToJSString media, HasCallStack) =>
DOMImplementation -> title -> media -> m CSSStyleSheet
createCSSStyleSheetUnsafe self title media
= liftDOM
(((self ^. jsf "createCSSStyleSheet"
[toJSVal title, toJSVal media])
>>= fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
createCSSStyleSheetUnchecked ::
(MonadDOM m, ToJSString title, ToJSString media) =>
DOMImplementation -> title -> media -> m CSSStyleSheet
createCSSStyleSheetUnchecked self title media
= liftDOM
((self ^. jsf "createCSSStyleSheet" [toJSVal title, toJSVal media])
>>= fromJSValUnchecked)
createHTMLDocument ::
(MonadDOM m, ToJSString title) =>
DOMImplementation -> title -> m (Maybe HTMLDocument)
createHTMLDocument self title
= liftDOM
((self ^. jsf "createHTMLDocument" [toJSVal title]) >>= fromJSVal)
createHTMLDocument_ ::
(MonadDOM m, ToJSString title) =>
DOMImplementation -> title -> m ()
createHTMLDocument_ self title
= liftDOM (void (self ^. jsf "createHTMLDocument" [toJSVal title]))
createHTMLDocumentUnsafe ::
(MonadDOM m, ToJSString title, HasCallStack) =>
DOMImplementation -> title -> m HTMLDocument
createHTMLDocumentUnsafe self title
= liftDOM
(((self ^. jsf "createHTMLDocument" [toJSVal title]) >>= fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
createHTMLDocumentUnchecked ::
(MonadDOM m, ToJSString title) =>
DOMImplementation -> title -> m HTMLDocument
createHTMLDocumentUnchecked self title
= liftDOM
((self ^. jsf "createHTMLDocument" [toJSVal title]) >>=
fromJSValUnchecked)