ghcjs-dom-javascript-0.10.0.0: src/GHCJS/DOM/JSFFI/Generated/CanvasTextDrawingStyles.hs

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ForeignFunctionInterface, JavaScriptFFI #-}
{-# LANGUAGE ImplicitParams, ConstraintKinds, KindSignatures #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- | Generated by dom-gen from html (webref). Do not edit.
module GHCJS.DOM.JSFFI.Generated.CanvasTextDrawingStyles
       (js_setLang, js_getLang, js_setFont, js_getFont, js_setTextAlign, js_getTextAlign, js_setTextBaseline, js_getTextBaseline, js_setDirection, js_getDirection, js_setLetterSpacing, js_getLetterSpacing, js_setFontKerning, js_getFontKerning, js_setFontStretch, js_getFontStretch, js_setFontVariantCaps, js_getFontVariantCaps, js_setTextRendering, js_getTextRendering, js_setWordSpacing, js_getWordSpacing, setLang, getLang, setFont, getFont, setTextAlign, getTextAlign, setTextBaseline, getTextBaseline, setDirection, getDirection, setLetterSpacing, getLetterSpacing, setFontKerning, getFontKerning, setFontStretch, getFontStretch, setFontVariantCaps, getFontVariantCaps, setTextRendering, getTextRendering, setWordSpacing, getWordSpacing, CanvasTextDrawingStyles(..), gTypeCanvasTextDrawingStyles, IsCanvasTextDrawingStyles, toCanvasTextDrawingStyles)
       where
import Prelude ((.), (==), (>>=), (<$>), (++), Bool(..), Maybe(..), IO, Int, Word, Double, Float)
import qualified Prelude as P
import Control.Monad (void)
import GHCJS.Types (JSVal, JSString)
import GHCJS.Foreign (jsUndefined, jsNull)
import GHCJS.DOM.Types
import qualified GHCJS.DOM.Types as Types
import GHCJS.DOM.EventTargetClosures (EventName, unsafeEventName, unsafeEventNameAsync)
import GHCJS.DOM.JSFFI.Generated.Enums

foreign import javascript safe "(($1, $2) => { $1[\"lang\"] = $2; })"
        js_setLang :: CanvasTextDrawingStyles -> JSString -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/lang MDN CanvasTextDrawingStyles.lang documentation>
setLang :: (MonadDOM m, IsCanvasTextDrawingStyles self, ToJSString val) => self -> val -> m ()
setLang self val = liftDOM (void ((js_setLang ((Types.toCanvasTextDrawingStyles self)) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"lang\"]; })"
        js_getLang :: CanvasTextDrawingStyles -> IO JSString
-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/lang MDN CanvasTextDrawingStyles.lang documentation>
getLang :: (MonadDOM m, IsCanvasTextDrawingStyles self, FromJSString result) => self -> m result
getLang self = liftDOM ((fromJSString <$> (js_getLang ((Types.toCanvasTextDrawingStyles self)))))

foreign import javascript safe "(($1, $2) => { $1[\"font\"] = $2; })"
        js_setFont :: CanvasTextDrawingStyles -> JSString -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/font MDN CanvasTextDrawingStyles.font documentation>
setFont :: (MonadDOM m, IsCanvasTextDrawingStyles self, ToJSString val) => self -> val -> m ()
setFont self val = liftDOM (void ((js_setFont ((Types.toCanvasTextDrawingStyles self)) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"font\"]; })"
        js_getFont :: CanvasTextDrawingStyles -> IO JSString
-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/font MDN CanvasTextDrawingStyles.font documentation>
getFont :: (MonadDOM m, IsCanvasTextDrawingStyles self, FromJSString result) => self -> m result
getFont self = liftDOM ((fromJSString <$> (js_getFont ((Types.toCanvasTextDrawingStyles self)))))

foreign import javascript safe "(($1, $2) => { $1[\"textAlign\"] = $2; })"
        js_setTextAlign :: CanvasTextDrawingStyles -> JSVal -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/textAlign MDN CanvasTextDrawingStyles.textAlign documentation>
setTextAlign :: (MonadDOM m, IsCanvasTextDrawingStyles self) => self -> CanvasTextAlign -> m ()
setTextAlign self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setTextAlign ((Types.toCanvasTextDrawingStyles self)) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"textAlign\"]; })"
        js_getTextAlign :: CanvasTextDrawingStyles -> IO JSVal
-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/textAlign MDN CanvasTextDrawingStyles.textAlign documentation>
getTextAlign :: (MonadDOM m, IsCanvasTextDrawingStyles self) => self -> m CanvasTextAlign
getTextAlign self = liftDOM (((js_getTextAlign ((Types.toCanvasTextDrawingStyles self))) >>= fromJSValUnchecked))

foreign import javascript safe "(($1, $2) => { $1[\"textBaseline\"] = $2; })"
        js_setTextBaseline :: CanvasTextDrawingStyles -> JSVal -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/textBaseline MDN CanvasTextDrawingStyles.textBaseline documentation>
setTextBaseline :: (MonadDOM m, IsCanvasTextDrawingStyles self) => self -> CanvasTextBaseline -> m ()
setTextBaseline self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setTextBaseline ((Types.toCanvasTextDrawingStyles self)) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"textBaseline\"]; })"
        js_getTextBaseline :: CanvasTextDrawingStyles -> IO JSVal
-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/textBaseline MDN CanvasTextDrawingStyles.textBaseline documentation>
getTextBaseline :: (MonadDOM m, IsCanvasTextDrawingStyles self) => self -> m CanvasTextBaseline
getTextBaseline self = liftDOM (((js_getTextBaseline ((Types.toCanvasTextDrawingStyles self))) >>= fromJSValUnchecked))

foreign import javascript safe "(($1, $2) => { $1[\"direction\"] = $2; })"
        js_setDirection :: CanvasTextDrawingStyles -> JSVal -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/direction MDN CanvasTextDrawingStyles.direction documentation>
setDirection :: (MonadDOM m, IsCanvasTextDrawingStyles self) => self -> CanvasDirection -> m ()
setDirection self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setDirection ((Types.toCanvasTextDrawingStyles self)) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"direction\"]; })"
        js_getDirection :: CanvasTextDrawingStyles -> IO JSVal
-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/direction MDN CanvasTextDrawingStyles.direction documentation>
getDirection :: (MonadDOM m, IsCanvasTextDrawingStyles self) => self -> m CanvasDirection
getDirection self = liftDOM (((js_getDirection ((Types.toCanvasTextDrawingStyles self))) >>= fromJSValUnchecked))

foreign import javascript safe "(($1, $2) => { $1[\"letterSpacing\"] = $2; })"
        js_setLetterSpacing :: CanvasTextDrawingStyles -> JSString -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/letterSpacing MDN CanvasTextDrawingStyles.letterSpacing documentation>
setLetterSpacing :: (MonadDOM m, IsCanvasTextDrawingStyles self, ToJSString val) => self -> val -> m ()
setLetterSpacing self val = liftDOM (void ((js_setLetterSpacing ((Types.toCanvasTextDrawingStyles self)) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"letterSpacing\"]; })"
        js_getLetterSpacing :: CanvasTextDrawingStyles -> IO JSString
-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/letterSpacing MDN CanvasTextDrawingStyles.letterSpacing documentation>
getLetterSpacing :: (MonadDOM m, IsCanvasTextDrawingStyles self, FromJSString result) => self -> m result
getLetterSpacing self = liftDOM ((fromJSString <$> (js_getLetterSpacing ((Types.toCanvasTextDrawingStyles self)))))

foreign import javascript safe "(($1, $2) => { $1[\"fontKerning\"] = $2; })"
        js_setFontKerning :: CanvasTextDrawingStyles -> JSVal -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/fontKerning MDN CanvasTextDrawingStyles.fontKerning documentation>
setFontKerning :: (MonadDOM m, IsCanvasTextDrawingStyles self) => self -> CanvasFontKerning -> m ()
setFontKerning self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setFontKerning ((Types.toCanvasTextDrawingStyles self)) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"fontKerning\"]; })"
        js_getFontKerning :: CanvasTextDrawingStyles -> IO JSVal
-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/fontKerning MDN CanvasTextDrawingStyles.fontKerning documentation>
getFontKerning :: (MonadDOM m, IsCanvasTextDrawingStyles self) => self -> m CanvasFontKerning
getFontKerning self = liftDOM (((js_getFontKerning ((Types.toCanvasTextDrawingStyles self))) >>= fromJSValUnchecked))

foreign import javascript safe "(($1, $2) => { $1[\"fontStretch\"] = $2; })"
        js_setFontStretch :: CanvasTextDrawingStyles -> JSVal -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/fontStretch MDN CanvasTextDrawingStyles.fontStretch documentation>
setFontStretch :: (MonadDOM m, IsCanvasTextDrawingStyles self) => self -> CanvasFontStretch -> m ()
setFontStretch self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setFontStretch ((Types.toCanvasTextDrawingStyles self)) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"fontStretch\"]; })"
        js_getFontStretch :: CanvasTextDrawingStyles -> IO JSVal
-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/fontStretch MDN CanvasTextDrawingStyles.fontStretch documentation>
getFontStretch :: (MonadDOM m, IsCanvasTextDrawingStyles self) => self -> m CanvasFontStretch
getFontStretch self = liftDOM (((js_getFontStretch ((Types.toCanvasTextDrawingStyles self))) >>= fromJSValUnchecked))

foreign import javascript safe "(($1, $2) => { $1[\"fontVariantCaps\"] = $2; })"
        js_setFontVariantCaps :: CanvasTextDrawingStyles -> JSVal -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/fontVariantCaps MDN CanvasTextDrawingStyles.fontVariantCaps documentation>
setFontVariantCaps :: (MonadDOM m, IsCanvasTextDrawingStyles self) => self -> CanvasFontVariantCaps -> m ()
setFontVariantCaps self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setFontVariantCaps ((Types.toCanvasTextDrawingStyles self)) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"fontVariantCaps\"]; })"
        js_getFontVariantCaps :: CanvasTextDrawingStyles -> IO JSVal
-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/fontVariantCaps MDN CanvasTextDrawingStyles.fontVariantCaps documentation>
getFontVariantCaps :: (MonadDOM m, IsCanvasTextDrawingStyles self) => self -> m CanvasFontVariantCaps
getFontVariantCaps self = liftDOM (((js_getFontVariantCaps ((Types.toCanvasTextDrawingStyles self))) >>= fromJSValUnchecked))

foreign import javascript safe "(($1, $2) => { $1[\"textRendering\"] = $2; })"
        js_setTextRendering :: CanvasTextDrawingStyles -> JSVal -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/textRendering MDN CanvasTextDrawingStyles.textRendering documentation>
setTextRendering :: (MonadDOM m, IsCanvasTextDrawingStyles self) => self -> CanvasTextRendering -> m ()
setTextRendering self val = liftDOM (void (((toJSVal val) >>= \a2' -> js_setTextRendering ((Types.toCanvasTextDrawingStyles self)) a2')))

foreign import javascript unsafe "(($1) => { return $1[\"textRendering\"]; })"
        js_getTextRendering :: CanvasTextDrawingStyles -> IO JSVal
-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/textRendering MDN CanvasTextDrawingStyles.textRendering documentation>
getTextRendering :: (MonadDOM m, IsCanvasTextDrawingStyles self) => self -> m CanvasTextRendering
getTextRendering self = liftDOM (((js_getTextRendering ((Types.toCanvasTextDrawingStyles self))) >>= fromJSValUnchecked))

foreign import javascript safe "(($1, $2) => { $1[\"wordSpacing\"] = $2; })"
        js_setWordSpacing :: CanvasTextDrawingStyles -> JSString -> IO ()
-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/wordSpacing MDN CanvasTextDrawingStyles.wordSpacing documentation>
setWordSpacing :: (MonadDOM m, IsCanvasTextDrawingStyles self, ToJSString val) => self -> val -> m ()
setWordSpacing self val = liftDOM (void ((js_setWordSpacing ((Types.toCanvasTextDrawingStyles self)) (toJSString val))))

foreign import javascript unsafe "(($1) => { return $1[\"wordSpacing\"]; })"
        js_getWordSpacing :: CanvasTextDrawingStyles -> IO JSString
-- | <https://developer.mozilla.org/docs/Web/API/CanvasRenderingContext2D/wordSpacing MDN CanvasTextDrawingStyles.wordSpacing documentation>
getWordSpacing :: (MonadDOM m, IsCanvasTextDrawingStyles self, FromJSString result) => self -> m result
getWordSpacing self = liftDOM ((fromJSString <$> (js_getWordSpacing ((Types.toCanvasTextDrawingStyles self)))))