module JSDOM.Generated.SVGMarkerElement
(setOrientToAuto, setOrientToAngle,
pattern SVG_MARKERUNITS_UNKNOWN,
pattern SVG_MARKERUNITS_USERSPACEONUSE,
pattern SVG_MARKERUNITS_STROKEWIDTH,
pattern SVG_MARKER_ORIENT_UNKNOWN, pattern SVG_MARKER_ORIENT_AUTO,
pattern SVG_MARKER_ORIENT_ANGLE, getRefX, getRefXUnsafe,
getRefXUnchecked, getRefY, getRefYUnsafe, getRefYUnchecked,
getMarkerUnits, getMarkerUnitsUnsafe, getMarkerUnitsUnchecked,
getMarkerWidth, getMarkerWidthUnsafe, getMarkerWidthUnchecked,
getMarkerHeight, getMarkerHeightUnsafe, getMarkerHeightUnchecked,
getOrientType, getOrientTypeUnsafe, getOrientTypeUnchecked,
getOrientAngle, getOrientAngleUnsafe, getOrientAngleUnchecked,
SVGMarkerElement(..), gTypeSVGMarkerElement)
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
setOrientToAuto :: (MonadDOM m) => SVGMarkerElement -> m ()
setOrientToAuto self
= liftDOM (void (self ^. jsf "setOrientToAuto" ()))
setOrientToAngle ::
(MonadDOM m) => SVGMarkerElement -> Maybe SVGAngle -> m ()
setOrientToAngle self angle
= liftDOM (void (self ^. jsf "setOrientToAngle" [toJSVal angle]))
pattern SVG_MARKERUNITS_UNKNOWN = 0
pattern SVG_MARKERUNITS_USERSPACEONUSE = 1
pattern SVG_MARKERUNITS_STROKEWIDTH = 2
pattern SVG_MARKER_ORIENT_UNKNOWN = 0
pattern SVG_MARKER_ORIENT_AUTO = 1
pattern SVG_MARKER_ORIENT_ANGLE = 2
getRefX ::
(MonadDOM m) => SVGMarkerElement -> m (Maybe SVGAnimatedLength)
getRefX self = liftDOM ((self ^. js "refX") >>= fromJSVal)
getRefXUnsafe ::
(MonadDOM m, HasCallStack) =>
SVGMarkerElement -> m SVGAnimatedLength
getRefXUnsafe self
= liftDOM
(((self ^. js "refX") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getRefXUnchecked ::
(MonadDOM m) => SVGMarkerElement -> m SVGAnimatedLength
getRefXUnchecked self
= liftDOM ((self ^. js "refX") >>= fromJSValUnchecked)
getRefY ::
(MonadDOM m) => SVGMarkerElement -> m (Maybe SVGAnimatedLength)
getRefY self = liftDOM ((self ^. js "refY") >>= fromJSVal)
getRefYUnsafe ::
(MonadDOM m, HasCallStack) =>
SVGMarkerElement -> m SVGAnimatedLength
getRefYUnsafe self
= liftDOM
(((self ^. js "refY") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getRefYUnchecked ::
(MonadDOM m) => SVGMarkerElement -> m SVGAnimatedLength
getRefYUnchecked self
= liftDOM ((self ^. js "refY") >>= fromJSValUnchecked)
getMarkerUnits ::
(MonadDOM m) =>
SVGMarkerElement -> m (Maybe SVGAnimatedEnumeration)
getMarkerUnits self
= liftDOM ((self ^. js "markerUnits") >>= fromJSVal)
getMarkerUnitsUnsafe ::
(MonadDOM m, HasCallStack) =>
SVGMarkerElement -> m SVGAnimatedEnumeration
getMarkerUnitsUnsafe self
= liftDOM
(((self ^. js "markerUnits") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getMarkerUnitsUnchecked ::
(MonadDOM m) => SVGMarkerElement -> m SVGAnimatedEnumeration
getMarkerUnitsUnchecked self
= liftDOM ((self ^. js "markerUnits") >>= fromJSValUnchecked)
getMarkerWidth ::
(MonadDOM m) => SVGMarkerElement -> m (Maybe SVGAnimatedLength)
getMarkerWidth self
= liftDOM ((self ^. js "markerWidth") >>= fromJSVal)
getMarkerWidthUnsafe ::
(MonadDOM m, HasCallStack) =>
SVGMarkerElement -> m SVGAnimatedLength
getMarkerWidthUnsafe self
= liftDOM
(((self ^. js "markerWidth") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getMarkerWidthUnchecked ::
(MonadDOM m) => SVGMarkerElement -> m SVGAnimatedLength
getMarkerWidthUnchecked self
= liftDOM ((self ^. js "markerWidth") >>= fromJSValUnchecked)
getMarkerHeight ::
(MonadDOM m) => SVGMarkerElement -> m (Maybe SVGAnimatedLength)
getMarkerHeight self
= liftDOM ((self ^. js "markerHeight") >>= fromJSVal)
getMarkerHeightUnsafe ::
(MonadDOM m, HasCallStack) =>
SVGMarkerElement -> m SVGAnimatedLength
getMarkerHeightUnsafe self
= liftDOM
(((self ^. js "markerHeight") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getMarkerHeightUnchecked ::
(MonadDOM m) => SVGMarkerElement -> m SVGAnimatedLength
getMarkerHeightUnchecked self
= liftDOM ((self ^. js "markerHeight") >>= fromJSValUnchecked)
getOrientType ::
(MonadDOM m) =>
SVGMarkerElement -> m (Maybe SVGAnimatedEnumeration)
getOrientType self
= liftDOM ((self ^. js "orientType") >>= fromJSVal)
getOrientTypeUnsafe ::
(MonadDOM m, HasCallStack) =>
SVGMarkerElement -> m SVGAnimatedEnumeration
getOrientTypeUnsafe self
= liftDOM
(((self ^. js "orientType") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getOrientTypeUnchecked ::
(MonadDOM m) => SVGMarkerElement -> m SVGAnimatedEnumeration
getOrientTypeUnchecked self
= liftDOM ((self ^. js "orientType") >>= fromJSValUnchecked)
getOrientAngle ::
(MonadDOM m) => SVGMarkerElement -> m (Maybe SVGAnimatedAngle)
getOrientAngle self
= liftDOM ((self ^. js "orientAngle") >>= fromJSVal)
getOrientAngleUnsafe ::
(MonadDOM m, HasCallStack) =>
SVGMarkerElement -> m SVGAnimatedAngle
getOrientAngleUnsafe self
= liftDOM
(((self ^. js "orientAngle") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getOrientAngleUnchecked ::
(MonadDOM m) => SVGMarkerElement -> m SVGAnimatedAngle
getOrientAngleUnchecked self
= liftDOM ((self ^. js "orientAngle") >>= fromJSValUnchecked)