ghcjs-dom-javascript-0.10.0.0: src/GHCJS/DOM/JSFFI/Generated/SanitizerConfig.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from html (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.SanitizerConfig
       (js_newSanitizerConfig, js_setElements, js_getElements, js_setRemoveElements, js_getRemoveElements, js_setReplaceWithChildrenElements, js_getReplaceWithChildrenElements, js_setProcessingInstructions, js_getProcessingInstructions, js_setRemoveProcessingInstructions, js_getRemoveProcessingInstructions, js_setAttributes, js_getAttributes, js_setRemoveAttributes, js_getRemoveAttributes, js_setComments, js_getComments, js_setDataAttributes, js_getDataAttributes, js_setJavascriptURLs, js_getJavascriptURLs, newSanitizerConfig, setElements, getElements, getElementsUnsafe, getElementsUnchecked, setRemoveElements, getRemoveElements, getRemoveElementsUnsafe, getRemoveElementsUnchecked, setReplaceWithChildrenElements, getReplaceWithChildrenElements, getReplaceWithChildrenElementsUnsafe, getReplaceWithChildrenElementsUnchecked, setProcessingInstructions, getProcessingInstructions, getProcessingInstructionsUnsafe, getProcessingInstructionsUnchecked, setRemoveProcessingInstructions, getRemoveProcessingInstructions, getRemoveProcessingInstructionsUnsafe, getRemoveProcessingInstructionsUnchecked, setAttributes, getAttributes, getAttributesUnsafe, getAttributesUnchecked, setRemoveAttributes, getRemoveAttributes, getRemoveAttributesUnsafe, getRemoveAttributesUnchecked, setComments, getComments, getCommentsUnsafe, getCommentsUnchecked, setDataAttributes, getDataAttributes, getDataAttributesUnsafe, getDataAttributesUnchecked, setJavascriptURLs, getJavascriptURLs, getJavascriptURLsUnsafe, getJavascriptURLsUnchecked, SanitizerConfig(..), gTypeSanitizerConfig)
       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_newSanitizerConfig :: IO SanitizerConfig
-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#sanitizerconfig SanitizerConfig specification>
newSanitizerConfig :: (MonadDOM m) => m SanitizerConfig
newSanitizerConfig = liftDOM ((js_newSanitizerConfig))

foreign import javascript safe "(($1, $2) => { $1[\"elements\"] = $2; })"
        js_setElements :: SanitizerConfig -> JSVal -> IO ()
-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sanitizerconfig-elements SanitizerConfig.elements specification>
setElements :: (MonadDOM m, IsSanitizerElementWithAttributes val) => SanitizerConfig -> [val] -> m ()
setElements self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setElements (self) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"elements\"]; })"
        js_getElements :: SanitizerConfig -> IO JSVal
-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sanitizerconfig-elements SanitizerConfig.elements specification>
getElements :: (MonadDOM m) => SanitizerConfig -> m (Maybe [SanitizerElementWithAttributes])
getElements self = liftDOM (((js_getElements (self)) >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sanitizerconfig-elements SanitizerConfig.elements specification>
getElementsUnsafe :: (MonadDOM m, HasCallStack) => SanitizerConfig -> m [SanitizerElementWithAttributes]
getElementsUnsafe self = liftDOM ((((js_getElements (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sanitizerconfig-elements SanitizerConfig.elements specification>
getElementsUnchecked :: (MonadDOM m) => SanitizerConfig -> m [SanitizerElementWithAttributes]
getElementsUnchecked self = liftDOM (((js_getElements (self)) >>= fromJSValUnchecked))

foreign import javascript safe "(($1, $2) => { $1[\"removeElements\"] = $2; })"
        js_setRemoveElements :: SanitizerConfig -> JSVal -> IO ()
-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sanitizerconfig-removeelements SanitizerConfig.removeElements specification>
setRemoveElements :: (MonadDOM m, IsSanitizerElement val) => SanitizerConfig -> [val] -> m ()
setRemoveElements self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setRemoveElements (self) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"removeElements\"]; })"
        js_getRemoveElements :: SanitizerConfig -> IO JSVal
-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sanitizerconfig-removeelements SanitizerConfig.removeElements specification>
getRemoveElements :: (MonadDOM m) => SanitizerConfig -> m (Maybe [SanitizerElement])
getRemoveElements self = liftDOM (((js_getRemoveElements (self)) >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sanitizerconfig-removeelements SanitizerConfig.removeElements specification>
getRemoveElementsUnsafe :: (MonadDOM m, HasCallStack) => SanitizerConfig -> m [SanitizerElement]
getRemoveElementsUnsafe self = liftDOM ((((js_getRemoveElements (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sanitizerconfig-removeelements SanitizerConfig.removeElements specification>
getRemoveElementsUnchecked :: (MonadDOM m) => SanitizerConfig -> m [SanitizerElement]
getRemoveElementsUnchecked self = liftDOM (((js_getRemoveElements (self)) >>= fromJSValUnchecked))

foreign import javascript safe "(($1, $2) => { $1[\"replaceWithChildrenElements\"] = $2; })"
        js_setReplaceWithChildrenElements :: SanitizerConfig -> JSVal -> IO ()
-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sanitizerconfig-replacewithchildrenelements SanitizerConfig.replaceWithChildrenElements specification>
setReplaceWithChildrenElements :: (MonadDOM m, IsSanitizerElement val) => SanitizerConfig -> [val] -> m ()
setReplaceWithChildrenElements self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setReplaceWithChildrenElements (self) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"replaceWithChildrenElements\"]; })"
        js_getReplaceWithChildrenElements :: SanitizerConfig -> IO JSVal
-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sanitizerconfig-replacewithchildrenelements SanitizerConfig.replaceWithChildrenElements specification>
getReplaceWithChildrenElements :: (MonadDOM m) => SanitizerConfig -> m (Maybe [SanitizerElement])
getReplaceWithChildrenElements self = liftDOM (((js_getReplaceWithChildrenElements (self)) >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sanitizerconfig-replacewithchildrenelements SanitizerConfig.replaceWithChildrenElements specification>
getReplaceWithChildrenElementsUnsafe :: (MonadDOM m, HasCallStack) => SanitizerConfig -> m [SanitizerElement]
getReplaceWithChildrenElementsUnsafe self = liftDOM ((((js_getReplaceWithChildrenElements (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sanitizerconfig-replacewithchildrenelements SanitizerConfig.replaceWithChildrenElements specification>
getReplaceWithChildrenElementsUnchecked :: (MonadDOM m) => SanitizerConfig -> m [SanitizerElement]
getReplaceWithChildrenElementsUnchecked self = liftDOM (((js_getReplaceWithChildrenElements (self)) >>= fromJSValUnchecked))

foreign import javascript safe "(($1, $2) => { $1[\"processingInstructions\"] = $2; })"
        js_setProcessingInstructions :: SanitizerConfig -> JSVal -> IO ()
-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sanitizerconfig-processinginstructions SanitizerConfig.processingInstructions specification>
setProcessingInstructions :: (MonadDOM m, IsSanitizerPI val) => SanitizerConfig -> [val] -> m ()
setProcessingInstructions self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setProcessingInstructions (self) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"processingInstructions\"]; })"
        js_getProcessingInstructions :: SanitizerConfig -> IO JSVal
-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sanitizerconfig-processinginstructions SanitizerConfig.processingInstructions specification>
getProcessingInstructions :: (MonadDOM m) => SanitizerConfig -> m (Maybe [SanitizerPI])
getProcessingInstructions self = liftDOM (((js_getProcessingInstructions (self)) >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sanitizerconfig-processinginstructions SanitizerConfig.processingInstructions specification>
getProcessingInstructionsUnsafe :: (MonadDOM m, HasCallStack) => SanitizerConfig -> m [SanitizerPI]
getProcessingInstructionsUnsafe self = liftDOM ((((js_getProcessingInstructions (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sanitizerconfig-processinginstructions SanitizerConfig.processingInstructions specification>
getProcessingInstructionsUnchecked :: (MonadDOM m) => SanitizerConfig -> m [SanitizerPI]
getProcessingInstructionsUnchecked self = liftDOM (((js_getProcessingInstructions (self)) >>= fromJSValUnchecked))

foreign import javascript safe "(($1, $2) => { $1[\"removeProcessingInstructions\"] = $2; })"
        js_setRemoveProcessingInstructions :: SanitizerConfig -> JSVal -> IO ()
-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sanitizerconfig-removeprocessinginstructions SanitizerConfig.removeProcessingInstructions specification>
setRemoveProcessingInstructions :: (MonadDOM m, IsSanitizerPI val) => SanitizerConfig -> [val] -> m ()
setRemoveProcessingInstructions self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setRemoveProcessingInstructions (self) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"removeProcessingInstructions\"]; })"
        js_getRemoveProcessingInstructions :: SanitizerConfig -> IO JSVal
-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sanitizerconfig-removeprocessinginstructions SanitizerConfig.removeProcessingInstructions specification>
getRemoveProcessingInstructions :: (MonadDOM m) => SanitizerConfig -> m (Maybe [SanitizerPI])
getRemoveProcessingInstructions self = liftDOM (((js_getRemoveProcessingInstructions (self)) >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sanitizerconfig-removeprocessinginstructions SanitizerConfig.removeProcessingInstructions specification>
getRemoveProcessingInstructionsUnsafe :: (MonadDOM m, HasCallStack) => SanitizerConfig -> m [SanitizerPI]
getRemoveProcessingInstructionsUnsafe self = liftDOM ((((js_getRemoveProcessingInstructions (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sanitizerconfig-removeprocessinginstructions SanitizerConfig.removeProcessingInstructions specification>
getRemoveProcessingInstructionsUnchecked :: (MonadDOM m) => SanitizerConfig -> m [SanitizerPI]
getRemoveProcessingInstructionsUnchecked self = liftDOM (((js_getRemoveProcessingInstructions (self)) >>= fromJSValUnchecked))

foreign import javascript safe "(($1, $2) => { $1[\"attributes\"] = $2; })"
        js_setAttributes :: SanitizerConfig -> JSVal -> IO ()
-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sanitizerconfig-attributes SanitizerConfig.attributes specification>
setAttributes :: (MonadDOM m, IsSanitizerAttribute val) => SanitizerConfig -> [val] -> m ()
setAttributes self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setAttributes (self) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"attributes\"]; })"
        js_getAttributes :: SanitizerConfig -> IO JSVal
-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sanitizerconfig-attributes SanitizerConfig.attributes specification>
getAttributes :: (MonadDOM m) => SanitizerConfig -> m (Maybe [SanitizerAttribute])
getAttributes self = liftDOM (((js_getAttributes (self)) >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sanitizerconfig-attributes SanitizerConfig.attributes specification>
getAttributesUnsafe :: (MonadDOM m, HasCallStack) => SanitizerConfig -> m [SanitizerAttribute]
getAttributesUnsafe self = liftDOM ((((js_getAttributes (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sanitizerconfig-attributes SanitizerConfig.attributes specification>
getAttributesUnchecked :: (MonadDOM m) => SanitizerConfig -> m [SanitizerAttribute]
getAttributesUnchecked self = liftDOM (((js_getAttributes (self)) >>= fromJSValUnchecked))

foreign import javascript safe "(($1, $2) => { $1[\"removeAttributes\"] = $2; })"
        js_setRemoveAttributes :: SanitizerConfig -> JSVal -> IO ()
-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sanitizerconfig-removeattributes SanitizerConfig.removeAttributes specification>
setRemoveAttributes :: (MonadDOM m, IsSanitizerAttribute val) => SanitizerConfig -> [val] -> m ()
setRemoveAttributes self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setRemoveAttributes (self) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"removeAttributes\"]; })"
        js_getRemoveAttributes :: SanitizerConfig -> IO JSVal
-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sanitizerconfig-removeattributes SanitizerConfig.removeAttributes specification>
getRemoveAttributes :: (MonadDOM m) => SanitizerConfig -> m (Maybe [SanitizerAttribute])
getRemoveAttributes self = liftDOM (((js_getRemoveAttributes (self)) >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sanitizerconfig-removeattributes SanitizerConfig.removeAttributes specification>
getRemoveAttributesUnsafe :: (MonadDOM m, HasCallStack) => SanitizerConfig -> m [SanitizerAttribute]
getRemoveAttributesUnsafe self = liftDOM ((((js_getRemoveAttributes (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sanitizerconfig-removeattributes SanitizerConfig.removeAttributes specification>
getRemoveAttributesUnchecked :: (MonadDOM m) => SanitizerConfig -> m [SanitizerAttribute]
getRemoveAttributesUnchecked self = liftDOM (((js_getRemoveAttributes (self)) >>= fromJSValUnchecked))

foreign import javascript safe "(($1, $2) => { $1[\"comments\"] = $2; })"
        js_setComments :: SanitizerConfig -> Bool -> IO ()
-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sanitizerconfig-comments SanitizerConfig.comments specification>
setComments :: (MonadDOM m) => SanitizerConfig -> Bool -> m ()
setComments self val = liftDOM (void ((js_setComments (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"comments\"]; })"
        js_getComments :: SanitizerConfig -> IO JSVal
-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sanitizerconfig-comments SanitizerConfig.comments specification>
getComments :: (MonadDOM m) => SanitizerConfig -> m (Maybe Bool)
getComments self = liftDOM (((js_getComments (self)) >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sanitizerconfig-comments SanitizerConfig.comments specification>
getCommentsUnsafe :: (MonadDOM m, HasCallStack) => SanitizerConfig -> m Bool
getCommentsUnsafe self = liftDOM ((((js_getComments (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sanitizerconfig-comments SanitizerConfig.comments specification>
getCommentsUnchecked :: (MonadDOM m) => SanitizerConfig -> m Bool
getCommentsUnchecked self = liftDOM ((pFromJSVal <$> (js_getComments (self))))

foreign import javascript safe "(($1, $2) => { $1[\"dataAttributes\"] = $2; })"
        js_setDataAttributes :: SanitizerConfig -> Bool -> IO ()
-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sanitizerconfig-dataattributes SanitizerConfig.dataAttributes specification>
setDataAttributes :: (MonadDOM m) => SanitizerConfig -> Bool -> m ()
setDataAttributes self val = liftDOM (void ((js_setDataAttributes (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"dataAttributes\"]; })"
        js_getDataAttributes :: SanitizerConfig -> IO JSVal
-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sanitizerconfig-dataattributes SanitizerConfig.dataAttributes specification>
getDataAttributes :: (MonadDOM m) => SanitizerConfig -> m (Maybe Bool)
getDataAttributes self = liftDOM (((js_getDataAttributes (self)) >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sanitizerconfig-dataattributes SanitizerConfig.dataAttributes specification>
getDataAttributesUnsafe :: (MonadDOM m, HasCallStack) => SanitizerConfig -> m Bool
getDataAttributesUnsafe self = liftDOM ((((js_getDataAttributes (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sanitizerconfig-dataattributes SanitizerConfig.dataAttributes specification>
getDataAttributesUnchecked :: (MonadDOM m) => SanitizerConfig -> m Bool
getDataAttributesUnchecked self = liftDOM ((pFromJSVal <$> (js_getDataAttributes (self))))

foreign import javascript safe "(($1, $2) => { $1[\"javascriptURLs\"] = $2; })"
        js_setJavascriptURLs :: SanitizerConfig -> Bool -> IO ()
-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sanitizerconfig-javascripturls SanitizerConfig.javascriptURLs specification>
setJavascriptURLs :: (MonadDOM m) => SanitizerConfig -> Bool -> m ()
setJavascriptURLs self val = liftDOM (void ((js_setJavascriptURLs (self) (val))))

foreign import javascript unsafe "(($1) => { return $1[\"javascriptURLs\"]; })"
        js_getJavascriptURLs :: SanitizerConfig -> IO JSVal
-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sanitizerconfig-javascripturls SanitizerConfig.javascriptURLs specification>
getJavascriptURLs :: (MonadDOM m) => SanitizerConfig -> m (Maybe Bool)
getJavascriptURLs self = liftDOM (((js_getJavascriptURLs (self)) >>= fromJSValUnchecked))

-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sanitizerconfig-javascripturls SanitizerConfig.javascriptURLs specification>
getJavascriptURLsUnsafe :: (MonadDOM m, HasCallStack) => SanitizerConfig -> m Bool
getJavascriptURLsUnsafe self = liftDOM ((((js_getJavascriptURLs (self)) >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://html.spec.whatwg.org/multipage/dynamic-markup-insertion.html#dom-sanitizerconfig-javascripturls SanitizerConfig.javascriptURLs specification>
getJavascriptURLsUnchecked :: (MonadDOM m) => SanitizerConfig -> m Bool
getJavascriptURLsUnchecked self = liftDOM ((pFromJSVal <$> (js_getJavascriptURLs (self))))