{-# LANGUAGE CPP #-}
{-# LANGUAGE OverloadedStrings #-}
module Text.Blaze.Svg11
( module Text.Blaze
, module Text.Blaze.Svg
, docType
, docTypeSvg
, a
, altglyph
, altglyphdef
, altglyphitem
, animate
, animatecolor
, animatemotion
, animatetransform
, circle
, clippath
, colorProfile
, cursor
, defs
, desc
, ellipse
, feblend
, fecolormatrix
, fecomponenttransfer
, fecomposite
, feconvolvematrix
, fediffuselighting
, fedisplacementmap
, fedistantlight
, feflood
, fefunca
, fefuncb
, fefuncg
, fefuncr
, fegaussianblur
, feimage
, femerge
, femergenode
, femorphology
, feoffset
, fepointlight
, fespecularlighting
, fespotlight
, fetile
, feturbulence
, filter_
, font
, fontFace
, fontFaceFormat
, fontFaceName
, fontFaceSrc
, fontFaceUri
, foreignobject
, g
, glyph
, glyphref
, hkern
, image
, line
, lineargradient
, marker
, mask
, metadata
, missingGlyph
, mpath
, path
, pattern
, polygon
, polyline
, radialgradient
, rect
, script
, set
, stop
, style
, svg
, switch
, symbol
, text_
, textpath
, title
, tref
, tspan
, use
, view
, vkern
) where
import Prelude ((>>), (.), ($))
import Text.Blaze
import Text.Blaze.Svg
import Text.Blaze.Internal
docType :: Svg
docType :: Svg
docType = Text -> Svg
preEscapedText Text
"<?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\">\n"
{-# INLINE docType #-}
docTypeSvg :: Svg
-> Svg
docTypeSvg :: Svg -> Svg
docTypeSvg Svg
inner = Svg
docType forall (m :: * -> *) a b. Monad m => m a -> m b -> m b
>> (Svg -> Svg
svg forall h. Attributable h => h -> Attribute -> h
! Tag -> Tag -> AttributeValue -> Attribute
attribute Tag
"xmlns" Tag
" xmlns=\"" AttributeValue
"http://www.w3.org/2000/svg" forall h. Attributable h => h -> Attribute -> h
! Tag -> Tag -> AttributeValue -> Attribute
attribute Tag
"xmlns:xlink" Tag
" xmlns:xlink=\"" AttributeValue
"http://www.w3.org/1999/xlink" forall a b. (a -> b) -> a -> b
$ Svg
inner)
{-# INLINE docTypeSvg #-}
a :: Svg
-> Svg
a :: Svg -> Svg
a = forall a.
StaticString
-> StaticString -> StaticString -> MarkupM a -> MarkupM a
Parent StaticString
"a" StaticString
"<a" StaticString
"</a>"
{-# INLINE a #-}
altglyph :: Svg
-> Svg
altglyph :: Svg -> Svg
altglyph = forall a.
StaticString
-> StaticString -> StaticString -> MarkupM a -> MarkupM a
Parent StaticString
"altGlyph" StaticString
"<altGlyph" StaticString
"</altGlyph>"
{-# INLINE altglyph #-}
altglyphdef :: Svg
altglyphdef :: Svg
altglyphdef = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"altGlyphDef" StaticString
"<altGlyphDef" StaticString
" />"
{-# INLINE altglyphdef #-}
altglyphitem :: Svg
altglyphitem :: Svg
altglyphitem = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"altGlyphItem" StaticString
"<altGlyphItem" StaticString
" />"
{-# INLINE altglyphitem #-}
animate :: Svg
animate :: Svg
animate = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"animate" StaticString
"<animate" StaticString
" />"
{-# INLINE animate #-}
animatecolor :: Svg
animatecolor :: Svg
animatecolor = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"animateColor" StaticString
"<animateColor" StaticString
" />"
{-# INLINE animatecolor #-}
animatemotion :: Svg
animatemotion :: Svg
animatemotion = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"animateMotion" StaticString
"<animateMotion" StaticString
" />"
{-# INLINE animatemotion #-}
animatetransform :: Svg
animatetransform :: Svg
animatetransform = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"animateTransform" StaticString
"<animateTransform" StaticString
" />"
{-# INLINE animatetransform #-}
circle :: Svg
circle :: Svg
circle = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"circle" StaticString
"<circle" StaticString
" />"
{-# INLINE circle #-}
clippath :: Svg
-> Svg
clippath :: Svg -> Svg
clippath = forall a.
StaticString
-> StaticString -> StaticString -> MarkupM a -> MarkupM a
Parent StaticString
"clipPath" StaticString
"<clipPath" StaticString
"</clipPath>"
{-# INLINE clippath #-}
colorProfile :: Svg
colorProfile :: Svg
colorProfile = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"color-profile" StaticString
"<color-profile" StaticString
" />"
{-# INLINE colorProfile #-}
cursor :: Svg
cursor :: Svg
cursor = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"cursor" StaticString
"<cursor" StaticString
" />"
{-# INLINE cursor #-}
defs :: Svg
-> Svg
defs :: Svg -> Svg
defs = forall a.
StaticString
-> StaticString -> StaticString -> MarkupM a -> MarkupM a
Parent StaticString
"defs" StaticString
"<defs" StaticString
"</defs>"
{-# INLINE defs #-}
desc :: Svg
-> Svg
desc :: Svg -> Svg
desc = forall a.
StaticString
-> StaticString -> StaticString -> MarkupM a -> MarkupM a
Parent StaticString
"desc" StaticString
"<desc" StaticString
"</desc>"
{-# INLINE desc #-}
ellipse :: Svg
ellipse :: Svg
ellipse = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"ellipse" StaticString
"<ellipse" StaticString
" />"
{-# INLINE ellipse #-}
feblend :: Svg
feblend :: Svg
feblend = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"feBlend" StaticString
"<feBlend" StaticString
" />"
{-# INLINE feblend #-}
fecolormatrix :: Svg
fecolormatrix :: Svg
fecolormatrix = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"feColorMatrix" StaticString
"<feColorMatrix" StaticString
" />"
{-# INLINE fecolormatrix #-}
fecomponenttransfer :: Svg
fecomponenttransfer :: Svg
fecomponenttransfer = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"feComponentTransfer" StaticString
"<feComponentTransfer" StaticString
" />"
{-# INLINE fecomponenttransfer #-}
fecomposite :: Svg
fecomposite :: Svg
fecomposite = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"feComposite" StaticString
"<feComposite" StaticString
" />"
{-# INLINE fecomposite #-}
feconvolvematrix :: Svg
feconvolvematrix :: Svg
feconvolvematrix = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"feConvolveMatrix" StaticString
"<feConvolveMatrix" StaticString
" />"
{-# INLINE feconvolvematrix #-}
fediffuselighting :: Svg
fediffuselighting :: Svg
fediffuselighting = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"feDiffuseLighting" StaticString
"<feDiffuseLighting" StaticString
" />"
{-# INLINE fediffuselighting #-}
fedisplacementmap :: Svg
fedisplacementmap :: Svg
fedisplacementmap = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"feDisplacementMap" StaticString
"<feDisplacementMap" StaticString
" />"
{-# INLINE fedisplacementmap #-}
fedistantlight :: Svg
fedistantlight :: Svg
fedistantlight = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"feDistantLight" StaticString
"<feDistantLight" StaticString
" />"
{-# INLINE fedistantlight #-}
feflood :: Svg
feflood :: Svg
feflood = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"feFlood" StaticString
"<feFlood" StaticString
" />"
{-# INLINE feflood #-}
fefunca :: Svg
fefunca :: Svg
fefunca = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"feFuncA" StaticString
"<feFuncA" StaticString
" />"
{-# INLINE fefunca #-}
fefuncb :: Svg
fefuncb :: Svg
fefuncb = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"feFuncB" StaticString
"<feFuncB" StaticString
" />"
{-# INLINE fefuncb #-}
fefuncg :: Svg
fefuncg :: Svg
fefuncg = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"feFuncG" StaticString
"<feFuncG" StaticString
" />"
{-# INLINE fefuncg #-}
fefuncr :: Svg
fefuncr :: Svg
fefuncr = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"feFuncR" StaticString
"<feFuncR" StaticString
" />"
{-# INLINE fefuncr #-}
fegaussianblur :: Svg
fegaussianblur :: Svg
fegaussianblur = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"feGaussianBlur" StaticString
"<feGaussianBlur" StaticString
" />"
{-# INLINE fegaussianblur #-}
feimage :: Svg
feimage :: Svg
feimage = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"feImage" StaticString
"<feImage" StaticString
" />"
{-# INLINE feimage #-}
femerge :: Svg
femerge :: Svg
femerge = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"feMerge" StaticString
"<feMerge" StaticString
" />"
{-# INLINE femerge #-}
femergenode :: Svg
femergenode :: Svg
femergenode = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"feMergeNode" StaticString
"<feMergeNode" StaticString
" />"
{-# INLINE femergenode #-}
femorphology :: Svg
femorphology :: Svg
femorphology = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"feMorphology" StaticString
"<feMorphology" StaticString
" />"
{-# INLINE femorphology #-}
feoffset :: Svg
feoffset :: Svg
feoffset = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"feOffset" StaticString
"<feOffset" StaticString
" />"
{-# INLINE feoffset #-}
fepointlight :: Svg
fepointlight :: Svg
fepointlight = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"fePointLight" StaticString
"<fePointLight" StaticString
" />"
{-# INLINE fepointlight #-}
fespecularlighting :: Svg
fespecularlighting :: Svg
fespecularlighting = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"feSpecularLighting" StaticString
"<feSpecularLighting" StaticString
" />"
{-# INLINE fespecularlighting #-}
fespotlight :: Svg
fespotlight :: Svg
fespotlight = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"feSpotLight" StaticString
"<feSpotLight" StaticString
" />"
{-# INLINE fespotlight #-}
fetile :: Svg
fetile :: Svg
fetile = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"feTile" StaticString
"<feTile" StaticString
" />"
{-# INLINE fetile #-}
feturbulence :: Svg
feturbulence :: Svg
feturbulence = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"feTurbulence" StaticString
"<feTurbulence" StaticString
" />"
{-# INLINE feturbulence #-}
filter_ :: Svg
-> Svg
filter_ :: Svg -> Svg
filter_ = forall a.
StaticString
-> StaticString -> StaticString -> MarkupM a -> MarkupM a
Parent StaticString
"filter" StaticString
"<filter" StaticString
"</filter>"
{-# INLINE filter_ #-}
font :: Svg
font :: Svg
font = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"font" StaticString
"<font" StaticString
" />"
{-# INLINE font #-}
fontFace :: Svg
fontFace :: Svg
fontFace = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"font-face" StaticString
"<font-face" StaticString
" />"
{-# INLINE fontFace #-}
fontFaceFormat :: Svg
fontFaceFormat :: Svg
fontFaceFormat = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"font-face-format" StaticString
"<font-face-format" StaticString
" />"
{-# INLINE fontFaceFormat #-}
fontFaceName :: Svg
fontFaceName :: Svg
fontFaceName = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"font-face-name" StaticString
"<font-face-name" StaticString
" />"
{-# INLINE fontFaceName #-}
fontFaceSrc :: Svg
fontFaceSrc :: Svg
fontFaceSrc = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"font-face-src" StaticString
"<font-face-src" StaticString
" />"
{-# INLINE fontFaceSrc #-}
fontFaceUri :: Svg
fontFaceUri :: Svg
fontFaceUri = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"font-face-uri" StaticString
"<font-face-uri" StaticString
" />"
{-# INLINE fontFaceUri #-}
foreignobject :: Svg
-> Svg
foreignobject :: Svg -> Svg
foreignobject = forall a.
StaticString
-> StaticString -> StaticString -> MarkupM a -> MarkupM a
Parent StaticString
"foreignObject" StaticString
"<foreignObject" StaticString
"</foreignObject>"
{-# INLINE foreignobject #-}
g :: Svg
-> Svg
g :: Svg -> Svg
g = forall a.
StaticString
-> StaticString -> StaticString -> MarkupM a -> MarkupM a
Parent StaticString
"g" StaticString
"<g" StaticString
"</g>"
{-# INLINE g #-}
glyph :: Svg
-> Svg
glyph :: Svg -> Svg
glyph = forall a.
StaticString
-> StaticString -> StaticString -> MarkupM a -> MarkupM a
Parent StaticString
"glyph" StaticString
"<glyph" StaticString
"</glyph>"
{-# INLINE glyph #-}
glyphref :: Svg
glyphref :: Svg
glyphref = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"glyphRef" StaticString
"<glyphRef" StaticString
" />"
{-# INLINE glyphref #-}
hkern :: Svg
hkern :: Svg
hkern = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"hkern" StaticString
"<hkern" StaticString
" />"
{-# INLINE hkern #-}
image :: Svg
image :: Svg
image = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"image" StaticString
"<image" StaticString
" />"
{-# INLINE image #-}
line :: Svg
line :: Svg
line = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"line" StaticString
"<line" StaticString
" />"
{-# INLINE line #-}
lineargradient :: Svg
-> Svg
lineargradient :: Svg -> Svg
lineargradient = forall a.
StaticString
-> StaticString -> StaticString -> MarkupM a -> MarkupM a
Parent StaticString
"linearGradient" StaticString
"<linearGradient" StaticString
"</linearGradient>"
{-# INLINE lineargradient #-}
marker :: Svg
-> Svg
marker :: Svg -> Svg
marker = forall a.
StaticString
-> StaticString -> StaticString -> MarkupM a -> MarkupM a
Parent StaticString
"marker" StaticString
"<marker" StaticString
"</marker>"
{-# INLINE marker #-}
mask :: Svg
-> Svg
mask :: Svg -> Svg
mask = forall a.
StaticString
-> StaticString -> StaticString -> MarkupM a -> MarkupM a
Parent StaticString
"mask" StaticString
"<mask" StaticString
"</mask>"
{-# INLINE mask #-}
metadata :: Svg
-> Svg
metadata :: Svg -> Svg
metadata = forall a.
StaticString
-> StaticString -> StaticString -> MarkupM a -> MarkupM a
Parent StaticString
"metadata" StaticString
"<metadata" StaticString
"</metadata>"
{-# INLINE metadata #-}
missingGlyph :: Svg
-> Svg
missingGlyph :: Svg -> Svg
missingGlyph = forall a.
StaticString
-> StaticString -> StaticString -> MarkupM a -> MarkupM a
Parent StaticString
"missing-glyph" StaticString
"<missing-glyph" StaticString
"</missing-glyph>"
{-# INLINE missingGlyph #-}
mpath :: Svg
mpath :: Svg
mpath = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"mpath" StaticString
"<mpath" StaticString
" />"
{-# INLINE mpath #-}
path :: Svg
path :: Svg
path = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"path" StaticString
"<path" StaticString
" />"
{-# INLINE path #-}
pattern :: Svg
-> Svg
pattern :: Svg -> Svg
pattern = forall a.
StaticString
-> StaticString -> StaticString -> MarkupM a -> MarkupM a
Parent StaticString
"pattern" StaticString
"<pattern" StaticString
"</pattern>"
{-# INLINE pattern #-}
polygon :: Svg
polygon :: Svg
polygon = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"polygon" StaticString
"<polygon" StaticString
" />"
{-# INLINE polygon #-}
polyline :: Svg
polyline :: Svg
polyline = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"polyline" StaticString
"<polyline" StaticString
" />"
{-# INLINE polyline #-}
radialgradient :: Svg
-> Svg
radialgradient :: Svg -> Svg
radialgradient = forall a.
StaticString
-> StaticString -> StaticString -> MarkupM a -> MarkupM a
Parent StaticString
"radialGradient" StaticString
"<radialGradient" StaticString
"</radialGradient>"
{-# INLINE radialgradient #-}
rect :: Svg
rect :: Svg
rect = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"rect" StaticString
"<rect" StaticString
" />"
{-# INLINE rect #-}
script :: Svg
-> Svg
script :: Svg -> Svg
script = forall a.
StaticString
-> StaticString -> StaticString -> MarkupM a -> MarkupM a
Parent StaticString
"script" StaticString
"<script" StaticString
"</script>" forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. MarkupM a -> MarkupM a
external
{-# INLINE script #-}
set :: Svg
set :: Svg
set = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"set" StaticString
"<set" StaticString
" />"
{-# INLINE set #-}
stop :: Svg
stop :: Svg
stop = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"stop" StaticString
"<stop" StaticString
" />"
{-# INLINE stop #-}
style :: Svg
-> Svg
style :: Svg -> Svg
style = forall a.
StaticString
-> StaticString -> StaticString -> MarkupM a -> MarkupM a
Parent StaticString
"style" StaticString
"<style" StaticString
"</style>" forall b c a. (b -> c) -> (a -> b) -> a -> c
. forall a. MarkupM a -> MarkupM a
external
{-# INLINE style #-}
svg :: Svg
-> Svg
svg :: Svg -> Svg
svg = forall a.
StaticString
-> StaticString -> StaticString -> MarkupM a -> MarkupM a
Parent StaticString
"svg" StaticString
"<svg" StaticString
"</svg>"
{-# INLINE svg #-}
switch :: Svg
-> Svg
switch :: Svg -> Svg
switch = forall a.
StaticString
-> StaticString -> StaticString -> MarkupM a -> MarkupM a
Parent StaticString
"switch" StaticString
"<switch" StaticString
"</switch>"
{-# INLINE switch #-}
symbol :: Svg
-> Svg
symbol :: Svg -> Svg
symbol = forall a.
StaticString
-> StaticString -> StaticString -> MarkupM a -> MarkupM a
Parent StaticString
"symbol" StaticString
"<symbol" StaticString
"</symbol>"
{-# INLINE symbol #-}
text_ :: Svg
-> Svg
text_ :: Svg -> Svg
text_ = forall a.
StaticString
-> StaticString -> StaticString -> MarkupM a -> MarkupM a
Parent StaticString
"text" StaticString
"<text" StaticString
"</text>"
{-# INLINE text_ #-}
textpath :: Svg
-> Svg
textpath :: Svg -> Svg
textpath = forall a.
StaticString
-> StaticString -> StaticString -> MarkupM a -> MarkupM a
Parent StaticString
"textPath" StaticString
"<textPath" StaticString
"</textPath>"
{-# INLINE textpath #-}
title :: Svg
-> Svg
title :: Svg -> Svg
title = forall a.
StaticString
-> StaticString -> StaticString -> MarkupM a -> MarkupM a
Parent StaticString
"title" StaticString
"<title" StaticString
"</title>"
{-# INLINE title #-}
tref :: Svg
tref :: Svg
tref = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"tref" StaticString
"<tref" StaticString
" />"
{-# INLINE tref #-}
tspan :: Svg
-> Svg
tspan :: Svg -> Svg
tspan = forall a.
StaticString
-> StaticString -> StaticString -> MarkupM a -> MarkupM a
Parent StaticString
"tspan" StaticString
"<tspan" StaticString
"</tspan>"
{-# INLINE tspan #-}
use :: Svg
use :: Svg
use = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"use" StaticString
"<use" StaticString
" />"
{-# INLINE use #-}
view :: Svg
view :: Svg
view = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"view" StaticString
"<view" StaticString
" />"
{-# INLINE view #-}
vkern :: Svg
vkern :: Svg
vkern = StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
"vkern" StaticString
"<vkern" StaticString
" />"
{-# INLINE vkern #-}
leaf :: StaticString -> StaticString -> StaticString -> Svg
#if MIN_VERSION_blaze_markup(0,8,0)
leaf :: StaticString -> StaticString -> StaticString -> Svg
leaf StaticString
tag StaticString
open StaticString
close = forall a.
StaticString -> StaticString -> StaticString -> a -> MarkupM a
Leaf StaticString
tag StaticString
open StaticString
close ()
#else
leaf = Leaf
#endif
{-# INLINE leaf #-}