CanvasPathDrawingStyles.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from html (webref). Do not edit.
module JSDOM.Generated.CanvasPathDrawingStyles
       (getLineDash, getLineDash_, setLineDash, setLineWidth, getLineWidth, setLineCap, getLineCap, setLineJoin, getLineJoin, setMiterLimit, getMiterLimit, setLineDashOffset, getLineDashOffset, CanvasPathDrawingStyles(..), gTypeCanvasPathDrawingStyles, IsCanvasPathDrawingStyles, toCanvasPathDrawingStyles)
       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/CanvasRenderingContext2D/getLineDash MDN CanvasPathDrawingStyles.getLineDash documentation>
getLineDash :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> m [Double]
getLineDash self = liftDOM ((((Types.toCanvasPathDrawingStyles self) ^. jsf "getLineDash" ()) >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/getLineDash MDN CanvasPathDrawingStyles.getLineDash documentation>
getLineDash_ :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> m ()
getLineDash_ self = liftDOM (void ((Types.toCanvasPathDrawingStyles self) ^. jsf "getLineDash" ()))

-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/setLineDash MDN CanvasPathDrawingStyles.setLineDash documentation>
setLineDash :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> [Double] -> m ()
setLineDash self segments = liftDOM (void ((Types.toCanvasPathDrawingStyles self) ^. jsf "setLineDash" [toJSVal segments]))

-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/lineWidth MDN CanvasPathDrawingStyles.lineWidth documentation>
setLineWidth :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> Double -> m ()
setLineWidth self val = liftDOM (void ((Types.toCanvasPathDrawingStyles self) ^. jss "lineWidth" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/lineWidth MDN CanvasPathDrawingStyles.lineWidth documentation>
getLineWidth :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> m Double
getLineWidth self = liftDOM ((((Types.toCanvasPathDrawingStyles self) ^. js "lineWidth") >>= valToNumber))

-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/lineCap MDN CanvasPathDrawingStyles.lineCap documentation>
setLineCap :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> CanvasLineCap -> m ()
setLineCap self val = liftDOM (void ((Types.toCanvasPathDrawingStyles self) ^. jss "lineCap" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/lineCap MDN CanvasPathDrawingStyles.lineCap documentation>
getLineCap :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> m CanvasLineCap
getLineCap self = liftDOM ((((Types.toCanvasPathDrawingStyles self) ^. js "lineCap") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/lineJoin MDN CanvasPathDrawingStyles.lineJoin documentation>
setLineJoin :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> CanvasLineJoin -> m ()
setLineJoin self val = liftDOM (void ((Types.toCanvasPathDrawingStyles self) ^. jss "lineJoin" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/lineJoin MDN CanvasPathDrawingStyles.lineJoin documentation>
getLineJoin :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> m CanvasLineJoin
getLineJoin self = liftDOM ((((Types.toCanvasPathDrawingStyles self) ^. js "lineJoin") >>= fromJSValUnchecked))

-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/miterLimit MDN CanvasPathDrawingStyles.miterLimit documentation>
setMiterLimit :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> Double -> m ()
setMiterLimit self val = liftDOM (void ((Types.toCanvasPathDrawingStyles self) ^. jss "miterLimit" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/miterLimit MDN CanvasPathDrawingStyles.miterLimit documentation>
getMiterLimit :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> m Double
getMiterLimit self = liftDOM ((((Types.toCanvasPathDrawingStyles self) ^. js "miterLimit") >>= valToNumber))

-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/lineDashOffset MDN CanvasPathDrawingStyles.lineDashOffset documentation>
setLineDashOffset :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> Double -> m ()
setLineDashOffset self val = liftDOM (void ((Types.toCanvasPathDrawingStyles self) ^. jss "lineDashOffset" (toJSVal val)))

-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/lineDashOffset MDN CanvasPathDrawingStyles.lineDashOffset documentation>
getLineDashOffset :: (MonadDOM m, IsCanvasPathDrawingStyles self) => self -> m Double
getLineDashOffset self = liftDOM ((((Types.toCanvasPathDrawingStyles self) ^. js "lineDashOffset") >>= valToNumber))