{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE FlexibleContexts #-}
module Lucid.Svg.Elements where
import Lucid.Base
type SvgT = HtmlT
doctype_ :: Monad m => SvgT m ()
doctype_ :: SvgT m ()
doctype_ = Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeElementNoEnd "?xml version=\"1.0\" encoding=\"UTF-8\"?>\n<!DOCTYPE svg PUBLIC \"-//W3C//DTD SVG 1.1//EN\"\n \"http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd\""
svg11_:: Term [Attribute] (s -> t) => s -> t
svg11_ :: s -> t
svg11_ m :: s
m = [Attribute] -> s -> t
forall arg result. Term arg result => arg -> result
svg_ [ Text -> Text -> Attribute
makeAttribute "xmlns" "http://www.w3.org/2000/svg"
, Text -> Text -> Attribute
makeAttribute "xmlns:xlink" "http://www.w3.org/1999/xlink"
, Text -> Text -> Attribute
makeAttribute "version" "1.1" ]
s
m
a_ :: Term arg result => arg -> result
a_ :: arg -> result
a_ = Text -> arg -> result
forall arg result. Term arg result => Text -> arg -> result
term "a"
altGlyph_ :: Monad m => [Attribute] -> SvgT m ()
altGlyph_ :: [Attribute] -> SvgT m ()
altGlyph_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "altGlyph"
altGlyphDef_ :: Monad m => [Attribute] -> SvgT m ()
altGlyphDef_ :: [Attribute] -> SvgT m ()
altGlyphDef_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "altGlyphDef"
altGlyphItem_ :: Monad m => [Attribute] -> SvgT m ()
altGlyphItem_ :: [Attribute] -> SvgT m ()
altGlyphItem_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "altGlyphItem"
animate_ :: Monad m => [Attribute] -> SvgT m ()
animate_ :: [Attribute] -> SvgT m ()
animate_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "animate"
animateColor_ :: Monad m => [Attribute] -> SvgT m ()
animateColor_ :: [Attribute] -> SvgT m ()
animateColor_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "animateColor"
animateMotion_ :: Monad m => [Attribute] -> SvgT m ()
animateMotion_ :: [Attribute] -> SvgT m ()
animateMotion_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "animateMotion"
animateTransform_ :: Monad m => [Attribute] -> SvgT m ()
animateTransform_ :: [Attribute] -> SvgT m ()
animateTransform_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "animateTransform"
circle_ :: Monad m => [Attribute] -> SvgT m ()
circle_ :: [Attribute] -> SvgT m ()
circle_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "circle"
clipPath_ :: Term arg result => arg -> result
clipPath_ :: arg -> result
clipPath_ = Text -> arg -> result
forall arg result. Term arg result => Text -> arg -> result
term "clipPath"
colorProfile_ :: Monad m => [Attribute] -> SvgT m ()
colorProfile_ :: [Attribute] -> SvgT m ()
colorProfile_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "color-profile"
cursor_ :: Monad m => [Attribute] -> SvgT m ()
cursor_ :: [Attribute] -> SvgT m ()
cursor_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "cursor"
defs_ :: Term arg result => arg -> result
defs_ :: arg -> result
defs_ = Text -> arg -> result
forall arg result. Term arg result => Text -> arg -> result
term "defs"
desc_ :: Term arg result => arg -> result
desc_ :: arg -> result
desc_ = Text -> arg -> result
forall arg result. Term arg result => Text -> arg -> result
term "desc"
ellipse_ :: Monad m => [Attribute] -> SvgT m ()
ellipse_ :: [Attribute] -> SvgT m ()
ellipse_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "ellipse"
feBlend_ :: Monad m => [Attribute] -> SvgT m ()
feBlend_ :: [Attribute] -> SvgT m ()
feBlend_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "feBlend"
feColorMatrix_ :: Monad m => [Attribute] -> SvgT m ()
feColorMatrix_ :: [Attribute] -> SvgT m ()
feColorMatrix_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "feColorMatrix"
feComponentTransfer_ :: Monad m => [Attribute] -> SvgT m ()
feComponentTransfer_ :: [Attribute] -> SvgT m ()
feComponentTransfer_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "feComponentTransfer"
feComposite_ :: Monad m => [Attribute] -> SvgT m ()
feComposite_ :: [Attribute] -> SvgT m ()
feComposite_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "feComposite"
feConvolveMatrix_ :: Monad m => [Attribute] -> SvgT m ()
feConvolveMatrix_ :: [Attribute] -> SvgT m ()
feConvolveMatrix_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "feConvolveMatrix"
feDiffuseLighting_ :: Monad m => [Attribute] -> SvgT m ()
feDiffuseLighting_ :: [Attribute] -> SvgT m ()
feDiffuseLighting_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "feDiffuseLighting"
feDisplacementMap_ :: Monad m => [Attribute] -> SvgT m ()
feDisplacementMap_ :: [Attribute] -> SvgT m ()
feDisplacementMap_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "feDisplacementMap"
feDistantLight_ :: Monad m => [Attribute] -> SvgT m ()
feDistantLight_ :: [Attribute] -> SvgT m ()
feDistantLight_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "feDistantLight"
feFlood_ :: Monad m => [Attribute] -> SvgT m ()
feFlood_ :: [Attribute] -> SvgT m ()
feFlood_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "feFlood"
feFuncA_ :: Monad m => [Attribute] -> SvgT m ()
feFuncA_ :: [Attribute] -> SvgT m ()
feFuncA_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "feFuncA"
feFuncB_ :: Monad m => [Attribute] -> SvgT m ()
feFuncB_ :: [Attribute] -> SvgT m ()
feFuncB_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "feFuncB"
feFuncG_ :: Monad m => [Attribute] -> SvgT m ()
feFuncG_ :: [Attribute] -> SvgT m ()
feFuncG_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "feFuncG"
feFuncR_ :: Monad m => [Attribute] -> SvgT m ()
feFuncR_ :: [Attribute] -> SvgT m ()
feFuncR_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "feFuncR"
feGaussianBlur_ :: Monad m => [Attribute] -> SvgT m ()
feGaussianBlur_ :: [Attribute] -> SvgT m ()
feGaussianBlur_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "feGaussianBlur"
feImage_ :: Monad m => [Attribute] -> SvgT m ()
feImage_ :: [Attribute] -> SvgT m ()
feImage_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "feImage"
feMerge_ :: Monad m => [Attribute] -> SvgT m ()
feMerge_ :: [Attribute] -> SvgT m ()
feMerge_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "feMerge"
feMergeNode_ :: Monad m => [Attribute] -> SvgT m ()
feMergeNode_ :: [Attribute] -> SvgT m ()
feMergeNode_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "feMergeNode"
feMorphology_ :: Monad m => [Attribute] -> SvgT m ()
feMorphology_ :: [Attribute] -> SvgT m ()
feMorphology_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "feMorphology"
feOffset_ :: Monad m => [Attribute] -> SvgT m ()
feOffset_ :: [Attribute] -> SvgT m ()
feOffset_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "feOffset"
fePointLight_ :: Monad m => [Attribute] -> SvgT m ()
fePointLight_ :: [Attribute] -> SvgT m ()
fePointLight_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "fePointLight"
feSpecularLighting_ :: Monad m => [Attribute] -> SvgT m ()
feSpecularLighting_ :: [Attribute] -> SvgT m ()
feSpecularLighting_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "feSpecularLighting"
feSpotLight_ :: Monad m => [Attribute] -> SvgT m ()
feSpotLight_ :: [Attribute] -> SvgT m ()
feSpotLight_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "feSpotLight"
feTile_ :: Monad m => [Attribute] -> SvgT m ()
feTile_ :: [Attribute] -> SvgT m ()
feTile_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "feTile"
feTurbulence_ :: Monad m => [Attribute] -> SvgT m ()
feTurbulence_ :: [Attribute] -> SvgT m ()
feTurbulence_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "feTurbulence"
filter_ :: Term arg result => arg -> result
filter_ :: arg -> result
filter_ = Text -> arg -> result
forall arg result. Term arg result => Text -> arg -> result
term "filter"
font_ :: Monad m => [Attribute] -> SvgT m ()
font_ :: [Attribute] -> SvgT m ()
font_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "font"
fontFace_ :: Monad m => [Attribute] -> SvgT m ()
fontFace_ :: [Attribute] -> SvgT m ()
fontFace_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "font-face"
fontFaceFormat_ :: Monad m => [Attribute] -> SvgT m ()
fontFaceFormat_ :: [Attribute] -> SvgT m ()
fontFaceFormat_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "font-face-format"
fontFaceName_ :: Monad m => [Attribute] -> SvgT m ()
fontFaceName_ :: [Attribute] -> SvgT m ()
fontFaceName_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "font-face-name"
fontFaceSrc_ :: Monad m => [Attribute] -> SvgT m ()
fontFaceSrc_ :: [Attribute] -> SvgT m ()
fontFaceSrc_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "font-face-src"
fontFaceUri_ :: Monad m => [Attribute] -> SvgT m ()
fontFaceUri_ :: [Attribute] -> SvgT m ()
fontFaceUri_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "font-face-uri"
foreignObject_ :: Monad m => [Attribute] -> SvgT m ()
foreignObject_ :: [Attribute] -> SvgT m ()
foreignObject_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "foreignObject"
g_ :: Term arg result => arg -> result
g_ :: arg -> result
g_ = Text -> arg -> result
forall arg result. Term arg result => Text -> arg -> result
term "g"
glyph_ :: Term arg result => arg -> result
glyph_ :: arg -> result
glyph_ = Text -> arg -> result
forall arg result. Term arg result => Text -> arg -> result
term "glyph"
glyphRef_ :: Monad m => [Attribute] -> SvgT m ()
glyphRef_ :: [Attribute] -> SvgT m ()
glyphRef_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "glyphRef"
hkern_ :: Monad m => [Attribute] -> SvgT m ()
hkern_ :: [Attribute] -> SvgT m ()
hkern_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "hkern"
image_ :: Monad m => [Attribute] -> SvgT m ()
image_ :: [Attribute] -> SvgT m ()
image_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "image"
line_ :: Term arg result => arg -> result
line_ :: arg -> result
line_ = Text -> arg -> result
forall arg result. Term arg result => Text -> arg -> result
term "line"
linearGradient_ :: Term arg result => arg -> result
linearGradient_ :: arg -> result
linearGradient_ = Text -> arg -> result
forall arg result. Term arg result => Text -> arg -> result
term "linearGradient"
marker_ :: Term arg result => arg -> result
marker_ :: arg -> result
marker_ = Text -> arg -> result
forall arg result. Term arg result => Text -> arg -> result
term "marker"
mask_ :: Term arg result => arg -> result
mask_ :: arg -> result
mask_ = Text -> arg -> result
forall arg result. Term arg result => Text -> arg -> result
term "mask"
metadata_ :: Monad m => [Attribute] -> SvgT m ()
metadata_ :: [Attribute] -> SvgT m ()
metadata_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "metadata"
missingGlyph_ :: Term arg result => arg -> result
missingGlyph_ :: arg -> result
missingGlyph_ = Text -> arg -> result
forall arg result. Term arg result => Text -> arg -> result
term "missing-glyph"
mpath_ :: Monad m => [Attribute] -> SvgT m ()
mpath_ :: [Attribute] -> SvgT m ()
mpath_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "mpath"
path_ :: Monad m => [Attribute] -> SvgT m ()
path_ :: [Attribute] -> SvgT m ()
path_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "path"
pattern_ :: Term arg result => arg -> result
pattern_ :: arg -> result
pattern_ = Text -> arg -> result
forall arg result. Term arg result => Text -> arg -> result
term "pattern"
polygon_ :: Monad m => [Attribute] -> SvgT m ()
polygon_ :: [Attribute] -> SvgT m ()
polygon_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "polygon"
polyline_ :: Monad m => [Attribute] -> SvgT m ()
polyline_ :: [Attribute] -> SvgT m ()
polyline_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "polyline"
radialGradient_ :: Term arg result => arg -> result
radialGradient_ :: arg -> result
radialGradient_ = Text -> arg -> result
forall arg result. Term arg result => Text -> arg -> result
term "radialGradient"
rect_ :: Monad m => [Attribute] -> SvgT m ()
rect_ :: [Attribute] -> SvgT m ()
rect_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "rect"
script_ :: Monad m => [Attribute] -> SvgT m ()
script_ :: [Attribute] -> SvgT m ()
script_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "script"
set_ :: Monad m => [Attribute] -> SvgT m ()
set_ :: [Attribute] -> SvgT m ()
set_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "set"
stop_ :: Monad m => [Attribute] -> SvgT m ()
stop_ :: [Attribute] -> SvgT m ()
stop_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "stop"
style_ :: Term arg result => arg -> result
style_ :: arg -> result
style_ = Text -> arg -> result
forall arg result. Term arg result => Text -> arg -> result
term "style"
svg_ :: Term arg result => arg -> result
svg_ :: arg -> result
svg_ = Text -> arg -> result
forall arg result. Term arg result => Text -> arg -> result
term "svg"
switch_ :: Term arg result => arg -> result
switch_ :: arg -> result
switch_ = Text -> arg -> result
forall arg result. Term arg result => Text -> arg -> result
term "switch"
symbol_ :: Term arg result => arg -> result
symbol_ :: arg -> result
symbol_ = Text -> arg -> result
forall arg result. Term arg result => Text -> arg -> result
term "symbol"
text_ :: Term arg result => arg -> result
text_ :: arg -> result
text_ = Text -> arg -> result
forall arg result. Term arg result => Text -> arg -> result
term "text"
textPath_ :: Term arg result => arg -> result
textPath_ :: arg -> result
textPath_ = Text -> arg -> result
forall arg result. Term arg result => Text -> arg -> result
term "textPath"
title_ :: Term arg result => arg -> result
title_ :: arg -> result
title_ = Text -> arg -> result
forall arg result. Term arg result => Text -> arg -> result
term "title"
tref_ :: Monad m => [Attribute] -> SvgT m ()
tref_ :: [Attribute] -> SvgT m ()
tref_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "tref"
tspan_ :: Term arg result => arg -> result
tspan_ :: arg -> result
tspan_ = Text -> arg -> result
forall arg result. Term arg result => Text -> arg -> result
term "tspan"
use_ :: Monad m => [Attribute] -> SvgT m ()
use_ :: [Attribute] -> SvgT m ()
use_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "use"
view_ :: Monad m => [Attribute] -> SvgT m ()
view_ :: [Attribute] -> SvgT m ()
view_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "view"
vkern_ :: Monad m => [Attribute] -> SvgT m ()
vkern_ :: [Attribute] -> SvgT m ()
vkern_ = SvgT m () -> [Attribute] -> SvgT m ()
forall a. With a => a -> [Attribute] -> a
with (SvgT m () -> [Attribute] -> SvgT m ())
-> SvgT m () -> [Attribute] -> SvgT m ()
forall a b. (a -> b) -> a -> b
$ Text -> SvgT m ()
forall (m :: * -> *). Applicative m => Text -> HtmlT m ()
makeXmlElementNoEnd "vkern"