SVGBoundingBoxOptions.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from SVG2 (webref). Do not edit.
module JSDOM.Generated.SVGBoundingBoxOptions
       (newSVGBoundingBoxOptions, setFill, getFill, getFillUnsafe, getFillUnchecked, setStroke, getStroke, getStrokeUnsafe, getStrokeUnchecked, setMarkers, getMarkers, getMarkersUnsafe, getMarkersUnchecked, setClipped, getClipped, getClippedUnsafe, getClippedUnchecked, SVGBoundingBoxOptions(..), gTypeSVGBoundingBoxOptions)
       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://w3c.github.io/svgwg/svg2-draft/types.html#dictdef-svgboundingboxoptions SVGBoundingBoxOptions specification>
newSVGBoundingBoxOptions :: (MonadDOM m) => m SVGBoundingBoxOptions
newSVGBoundingBoxOptions = liftDOM ((((new (jsg "Object") () >>= \o -> P.return o)) >>= fromJSValUnchecked))

-- | <https://w3c.github.io/svgwg/svg2-draft/types.html#dom-svgboundingboxoptions-fill SVGBoundingBoxOptions.fill specification>
setFill :: (MonadDOM m) => SVGBoundingBoxOptions -> Bool -> m ()
setFill self val = liftDOM (void (self ^. jss "fill" (toJSVal val)))

-- | <https://w3c.github.io/svgwg/svg2-draft/types.html#dom-svgboundingboxoptions-fill SVGBoundingBoxOptions.fill specification>
getFill :: (MonadDOM m) => SVGBoundingBoxOptions -> m (Maybe Bool)
getFill self = liftDOM (((self ^. js "fill") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/svgwg/svg2-draft/types.html#dom-svgboundingboxoptions-fill SVGBoundingBoxOptions.fill specification>
getFillUnsafe :: (MonadDOM m, HasCallStack) => SVGBoundingBoxOptions -> m Bool
getFillUnsafe self = liftDOM ((((self ^. js "fill") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/svgwg/svg2-draft/types.html#dom-svgboundingboxoptions-fill SVGBoundingBoxOptions.fill specification>
getFillUnchecked :: (MonadDOM m) => SVGBoundingBoxOptions -> m Bool
getFillUnchecked self = liftDOM (((self ^. js "fill") >>= valToBool))

-- | <https://w3c.github.io/svgwg/svg2-draft/types.html#dom-svgboundingboxoptions-stroke SVGBoundingBoxOptions.stroke specification>
setStroke :: (MonadDOM m) => SVGBoundingBoxOptions -> Bool -> m ()
setStroke self val = liftDOM (void (self ^. jss "stroke" (toJSVal val)))

-- | <https://w3c.github.io/svgwg/svg2-draft/types.html#dom-svgboundingboxoptions-stroke SVGBoundingBoxOptions.stroke specification>
getStroke :: (MonadDOM m) => SVGBoundingBoxOptions -> m (Maybe Bool)
getStroke self = liftDOM (((self ^. js "stroke") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/svgwg/svg2-draft/types.html#dom-svgboundingboxoptions-stroke SVGBoundingBoxOptions.stroke specification>
getStrokeUnsafe :: (MonadDOM m, HasCallStack) => SVGBoundingBoxOptions -> m Bool
getStrokeUnsafe self = liftDOM ((((self ^. js "stroke") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/svgwg/svg2-draft/types.html#dom-svgboundingboxoptions-stroke SVGBoundingBoxOptions.stroke specification>
getStrokeUnchecked :: (MonadDOM m) => SVGBoundingBoxOptions -> m Bool
getStrokeUnchecked self = liftDOM (((self ^. js "stroke") >>= valToBool))

-- | <https://w3c.github.io/svgwg/svg2-draft/types.html#dom-svgboundingboxoptions-markers SVGBoundingBoxOptions.markers specification>
setMarkers :: (MonadDOM m) => SVGBoundingBoxOptions -> Bool -> m ()
setMarkers self val = liftDOM (void (self ^. jss "markers" (toJSVal val)))

-- | <https://w3c.github.io/svgwg/svg2-draft/types.html#dom-svgboundingboxoptions-markers SVGBoundingBoxOptions.markers specification>
getMarkers :: (MonadDOM m) => SVGBoundingBoxOptions -> m (Maybe Bool)
getMarkers self = liftDOM (((self ^. js "markers") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/svgwg/svg2-draft/types.html#dom-svgboundingboxoptions-markers SVGBoundingBoxOptions.markers specification>
getMarkersUnsafe :: (MonadDOM m, HasCallStack) => SVGBoundingBoxOptions -> m Bool
getMarkersUnsafe self = liftDOM ((((self ^. js "markers") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/svgwg/svg2-draft/types.html#dom-svgboundingboxoptions-markers SVGBoundingBoxOptions.markers specification>
getMarkersUnchecked :: (MonadDOM m) => SVGBoundingBoxOptions -> m Bool
getMarkersUnchecked self = liftDOM (((self ^. js "markers") >>= valToBool))

-- | <https://w3c.github.io/svgwg/svg2-draft/types.html#dom-svgboundingboxoptions-clipped SVGBoundingBoxOptions.clipped specification>
setClipped :: (MonadDOM m) => SVGBoundingBoxOptions -> Bool -> m ()
setClipped self val = liftDOM (void (self ^. jss "clipped" (toJSVal val)))

-- | <https://w3c.github.io/svgwg/svg2-draft/types.html#dom-svgboundingboxoptions-clipped SVGBoundingBoxOptions.clipped specification>
getClipped :: (MonadDOM m) => SVGBoundingBoxOptions -> m (Maybe Bool)
getClipped self = liftDOM (((self ^. js "clipped") >>= fromJSValUnchecked))

-- | <https://w3c.github.io/svgwg/svg2-draft/types.html#dom-svgboundingboxoptions-clipped SVGBoundingBoxOptions.clipped specification>
getClippedUnsafe :: (MonadDOM m, HasCallStack) => SVGBoundingBoxOptions -> m Bool
getClippedUnsafe self = liftDOM ((((self ^. js "clipped") >>= fromJSValUnchecked) >>= P.maybe (P.error "Nothing to return") P.return))

-- | <https://w3c.github.io/svgwg/svg2-draft/types.html#dom-svgboundingboxoptions-clipped SVGBoundingBoxOptions.clipped specification>
getClippedUnchecked :: (MonadDOM m) => SVGBoundingBoxOptions -> m Bool
getClippedUnchecked self = liftDOM (((self ^. js "clipped") >>= valToBool))