module JSDOM.Generated.SVGElement
(getPresentationAttribute, getPresentationAttribute_,
getPresentationAttributeUnsafe, getPresentationAttributeUnchecked,
setXmlbase, getXmlbase, getXmlbaseUnsafe, getXmlbaseUnchecked,
getOwnerSVGElement, getOwnerSVGElementUnsafe,
getOwnerSVGElementUnchecked, getViewportElement,
getViewportElementUnsafe, getViewportElementUnchecked, setXmllang,
getXmllang, setXmlspace, getXmlspace, getClassName,
getClassNameUnsafe, getClassNameUnchecked, getStyle,
getStyleUnsafe, getStyleUnchecked, setTabIndex, getTabIndex,
SVGElement(..), gTypeSVGElement, IsSVGElement, toSVGElement)
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
getPresentationAttribute ::
(MonadDOM m, IsSVGElement self, ToJSString name) =>
self -> name -> m (Maybe CSSValue)
getPresentationAttribute self name
= liftDOM
(((toSVGElement self) ^. jsf "getPresentationAttribute"
[toJSVal name])
>>= fromJSVal)
getPresentationAttribute_ ::
(MonadDOM m, IsSVGElement self, ToJSString name) =>
self -> name -> m ()
getPresentationAttribute_ self name
= liftDOM
(void
((toSVGElement self) ^. jsf "getPresentationAttribute"
[toJSVal name]))
getPresentationAttributeUnsafe ::
(MonadDOM m, IsSVGElement self, ToJSString name, HasCallStack) =>
self -> name -> m CSSValue
getPresentationAttributeUnsafe self name
= liftDOM
((((toSVGElement self) ^. jsf "getPresentationAttribute"
[toJSVal name])
>>= fromJSVal)
>>= maybe (Prelude.error "Nothing to return") return)
getPresentationAttributeUnchecked ::
(MonadDOM m, IsSVGElement self, ToJSString name) =>
self -> name -> m CSSValue
getPresentationAttributeUnchecked self name
= liftDOM
(((toSVGElement self) ^. jsf "getPresentationAttribute"
[toJSVal name])
>>= fromJSValUnchecked)
setXmlbase ::
(MonadDOM m, IsSVGElement self, ToJSString val) =>
self -> Maybe val -> m ()
setXmlbase self val
= liftDOM ((toSVGElement self) ^. jss "xmlbase" (toJSVal val))
getXmlbase ::
(MonadDOM m, IsSVGElement self, FromJSString result) =>
self -> m (Maybe result)
getXmlbase self
= liftDOM
(((toSVGElement self) ^. js "xmlbase") >>= fromMaybeJSString)
getXmlbaseUnsafe ::
(MonadDOM m, IsSVGElement self, HasCallStack,
FromJSString result) =>
self -> m result
getXmlbaseUnsafe self
= liftDOM
((((toSVGElement self) ^. js "xmlbase") >>= fromMaybeJSString) >>=
maybe (Prelude.error "Nothing to return") return)
getXmlbaseUnchecked ::
(MonadDOM m, IsSVGElement self, FromJSString result) =>
self -> m result
getXmlbaseUnchecked self
= liftDOM
(((toSVGElement self) ^. js "xmlbase") >>= fromJSValUnchecked)
getOwnerSVGElement ::
(MonadDOM m, IsSVGElement self) => self -> m (Maybe SVGSVGElement)
getOwnerSVGElement self
= liftDOM
(((toSVGElement self) ^. js "ownerSVGElement") >>= fromJSVal)
getOwnerSVGElementUnsafe ::
(MonadDOM m, IsSVGElement self, HasCallStack) =>
self -> m SVGSVGElement
getOwnerSVGElementUnsafe self
= liftDOM
((((toSVGElement self) ^. js "ownerSVGElement") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getOwnerSVGElementUnchecked ::
(MonadDOM m, IsSVGElement self) => self -> m SVGSVGElement
getOwnerSVGElementUnchecked self
= liftDOM
(((toSVGElement self) ^. js "ownerSVGElement") >>=
fromJSValUnchecked)
getViewportElement ::
(MonadDOM m, IsSVGElement self) => self -> m (Maybe SVGElement)
getViewportElement self
= liftDOM
(((toSVGElement self) ^. js "viewportElement") >>= fromJSVal)
getViewportElementUnsafe ::
(MonadDOM m, IsSVGElement self, HasCallStack) =>
self -> m SVGElement
getViewportElementUnsafe self
= liftDOM
((((toSVGElement self) ^. js "viewportElement") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getViewportElementUnchecked ::
(MonadDOM m, IsSVGElement self) => self -> m SVGElement
getViewportElementUnchecked self
= liftDOM
(((toSVGElement self) ^. js "viewportElement") >>=
fromJSValUnchecked)
setXmllang ::
(MonadDOM m, IsSVGElement self, ToJSString val) =>
self -> val -> m ()
setXmllang self val
= liftDOM ((toSVGElement self) ^. jss "xmllang" (toJSVal val))
getXmllang ::
(MonadDOM m, IsSVGElement self, FromJSString result) =>
self -> m result
getXmllang self
= liftDOM
(((toSVGElement self) ^. js "xmllang") >>= fromJSValUnchecked)
setXmlspace ::
(MonadDOM m, IsSVGElement self, ToJSString val) =>
self -> val -> m ()
setXmlspace self val
= liftDOM ((toSVGElement self) ^. jss "xmlspace" (toJSVal val))
getXmlspace ::
(MonadDOM m, IsSVGElement self, FromJSString result) =>
self -> m result
getXmlspace self
= liftDOM
(((toSVGElement self) ^. js "xmlspace") >>= fromJSValUnchecked)
getClassName ::
(MonadDOM m, IsSVGElement self) =>
self -> m (Maybe SVGAnimatedString)
getClassName self
= liftDOM (((toSVGElement self) ^. js "className") >>= fromJSVal)
getClassNameUnsafe ::
(MonadDOM m, IsSVGElement self, HasCallStack) =>
self -> m SVGAnimatedString
getClassNameUnsafe self
= liftDOM
((((toSVGElement self) ^. js "className") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getClassNameUnchecked ::
(MonadDOM m, IsSVGElement self) => self -> m SVGAnimatedString
getClassNameUnchecked self
= liftDOM
(((toSVGElement self) ^. js "className") >>= fromJSValUnchecked)
getStyle ::
(MonadDOM m, IsSVGElement self) =>
self -> m (Maybe CSSStyleDeclaration)
getStyle self
= liftDOM (((toSVGElement self) ^. js "style") >>= fromJSVal)
getStyleUnsafe ::
(MonadDOM m, IsSVGElement self, HasCallStack) =>
self -> m CSSStyleDeclaration
getStyleUnsafe self
= liftDOM
((((toSVGElement self) ^. js "style") >>= fromJSVal) >>=
maybe (Prelude.error "Nothing to return") return)
getStyleUnchecked ::
(MonadDOM m, IsSVGElement self) => self -> m CSSStyleDeclaration
getStyleUnchecked self
= liftDOM
(((toSVGElement self) ^. js "style") >>= fromJSValUnchecked)
setTabIndex ::
(MonadDOM m, IsSVGElement self) => self -> Int -> m ()
setTabIndex self val
= liftDOM ((toSVGElement self) ^. jss "tabIndex" (toJSVal val))
getTabIndex :: (MonadDOM m, IsSVGElement self) => self -> m Int
getTabIndex self
= liftDOM
(round <$>
(((toSVGElement self) ^. js "tabIndex") >>= valToNumber))