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