SVGPreserveAspectRatio.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.SVGPreserveAspectRatio
       (setAlign, getAlign, setMeetOrSlice, getMeetOrSlice, pattern SVG_PRESERVEASPECTRATIO_UNKNOWN, pattern SVG_PRESERVEASPECTRATIO_NONE, pattern SVG_PRESERVEASPECTRATIO_XMINYMIN, pattern SVG_PRESERVEASPECTRATIO_XMIDYMIN, pattern SVG_PRESERVEASPECTRATIO_XMAXYMIN, pattern SVG_PRESERVEASPECTRATIO_XMINYMID, pattern SVG_PRESERVEASPECTRATIO_XMIDYMID, pattern SVG_PRESERVEASPECTRATIO_XMAXYMID, pattern SVG_PRESERVEASPECTRATIO_XMINYMAX, pattern SVG_PRESERVEASPECTRATIO_XMIDYMAX, pattern SVG_PRESERVEASPECTRATIO_XMAXYMAX, pattern SVG_MEETORSLICE_UNKNOWN, pattern SVG_MEETORSLICE_MEET, pattern SVG_MEETORSLICE_SLICE, SVGPreserveAspectRatio(..), gTypeSVGPreserveAspectRatio)
       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/SVGPreserveAspectRatio/align MDN SVGPreserveAspectRatio.align documentation>
setAlign :: (MonadDOM m) => SVGPreserveAspectRatio -> Word -> m ()
setAlign self val = liftDOM (void (self ^. jss "align" (toJSVal val)))

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

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

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

pattern SVG_PRESERVEASPECTRATIO_UNKNOWN = 0

pattern SVG_PRESERVEASPECTRATIO_NONE = 1

pattern SVG_PRESERVEASPECTRATIO_XMINYMIN = 2

pattern SVG_PRESERVEASPECTRATIO_XMIDYMIN = 3

pattern SVG_PRESERVEASPECTRATIO_XMAXYMIN = 4

pattern SVG_PRESERVEASPECTRATIO_XMINYMID = 5

pattern SVG_PRESERVEASPECTRATIO_XMIDYMID = 6

pattern SVG_PRESERVEASPECTRATIO_XMAXYMID = 7

pattern SVG_PRESERVEASPECTRATIO_XMINYMAX = 8

pattern SVG_PRESERVEASPECTRATIO_XMIDYMAX = 9

pattern SVG_PRESERVEASPECTRATIO_XMAXYMAX = 10

pattern SVG_MEETORSLICE_UNKNOWN = 0

pattern SVG_MEETORSLICE_MEET = 1

pattern SVG_MEETORSLICE_SLICE = 2