module Graphics.GChart.ChartItems.Basics where
import Graphics.GChart.Types
import Graphics.GChart.ChartItems.Util
instance ChartItem ChartSize where
set size = updateChart $ \chart -> chart { chartSize = Just size }
encode (Size width height) = asList ("chs", widthStr ++ show height) where
widthStr | width == 0 = ""
| otherwise = show width ++ "x"
instance ChartItem ChartType where
set cType = updateChart $ \chart -> chart { chartType = cType }
encode cType = asList ("cht",t)
where t = case cType of
Line -> "lc"
LineXY -> "lxy"
Sparklines -> "ls"
Pie -> "p"
Pie3D -> "p3"
PieConcentric -> "pc"
BarHorizontalStacked -> "bhs"
BarVerticalStacked -> "bvs"
BarHorizontalGrouped -> "bhg"
BarVerticalGrouped -> "bvg"
Venn -> "v"
ScatterPlot -> "s"
Radar -> "r"
RadarCurvedLines -> "rs"
GoogleOMeter -> "gom"
Formula -> "tx"
QRCode -> "qr"