type Rep Markup
Instance details Defined in Data.Markup type Rep Markup = D1 ('MetaData "Markup" "Data.Markup" "markup-parse-0.3.0.0-inplace" 'True) (C1 ('MetaCons "Markup" 'PrefixI 'True) (S1 ('MetaSel ('Just "elements") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [Element])))

Methods

from :: Markup -> Rep Markup x #

to :: Rep Markup x -> Markup #

Show Markup #

Instance details

Defined in Data.Markup

Methods

showsPrec :: Int -> Markup -> ShowS #

show :: Markup -> String #

showList :: [Markup] -> ShowS #

type Rep Markup #

Instance details

Defined in Data.Markup

type Rep Markup = D1 ('MetaData "Markup" "Data.Markup" "markup-parse-0.3.0.0-inplace" 'True) (C1 ('MetaCons "Markup" 'PrefixI 'True) (S1 ('MetaSel ('Just "elements") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 [Element])))

data ChartOptions Source #

A product type consisting of a ChartTree, HudOptions and MarkupOptions, which is what you need to create Markup.

Constructors

ChartOptions
Fields markupOptions :: MarkupOptions hudOptions :: HudOptions chartTree :: ChartTree

Instances

Instances details

Monoid ChartOptions Source #

Instance details

Defined in Chart.Markup

Methods

mempty :: ChartOptions #

mappend :: ChartOptions -> ChartOptions -> ChartOptions #

mconcat :: [ChartOptions] -> ChartOptions #

Semigroup ChartOptions Source #

Instance details

Defined in Chart.Markup

Methods

(<>) :: ChartOptions -> ChartOptions -> ChartOptions #

sconcat :: NonEmpty ChartOptions -> ChartOptions #

stimes :: Integral b => b -> ChartOptions -> ChartOptions #

Eq ChartOptions Source #

Instance details

Defined in Chart.Markup

Methods

(==) :: ChartOptions -> ChartOptions -> Bool #

(/=) :: ChartOptions -> ChartOptions -> Bool #

Data ChartOptions Source #

Instance details

Defined in Chart.Markup

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> ChartOptions -> c ChartOptions #

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c ChartOptions #

toConstr :: ChartOptions -> Constr #

dataTypeOf :: ChartOptions -> DataType #

dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c ChartOptions) #

dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c ChartOptions) #

gmapT :: (forall b. Data b => b -> b) -> ChartOptions -> ChartOptions #

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> ChartOptions -> r #

gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> ChartOptions -> r #

gmapQ :: (forall d. Data d => d -> u) -> ChartOptions -> [u] #

gmapQi :: Int -> (forall d. Data d => d -> u) -> ChartOptions -> u #

gmapM :: Monad m => (forall d. Data d => d -> m d) -> ChartOptions -> m ChartOptions #

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> ChartOptions -> m ChartOptions #

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> ChartOptions -> m ChartOptions #

Generic ChartOptions Source #

Instance details

Defined in Chart.Markup

Associated Types

type Rep ChartOptions

Instance details

Defined in Chart.Markup

type Rep ChartOptions = D1 ('MetaData "ChartOptions" "Chart.Markup" "chart-svg-0.8.4.0-inplace" 'False) (C1 ('MetaCons "ChartOptions" 'PrefixI 'True) (S1 ('MetaSel ('Just "markupOptions") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 MarkupOptions) :*: (S1 ('MetaSel ('Just "hudOptions") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 HudOptions) :*: S1 ('MetaSel ('Just "chartTree") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ChartTree))))

Methods

from :: ChartOptions -> Rep ChartOptions x #

to :: Rep ChartOptions x -> ChartOptions #

Read ChartOptions Source #

Instance details

Defined in Chart.Markup

Methods

readsPrec :: Int -> ReadS ChartOptions #

readList :: ReadS [ChartOptions] #

readPrec :: ReadPrec ChartOptions #

readListPrec :: ReadPrec [ChartOptions] #

Show ChartOptions Source #

Instance details

Defined in Chart.Markup

Methods

showsPrec :: Int -> ChartOptions -> ShowS #

show :: ChartOptions -> String #

showList :: [ChartOptions] -> ShowS #

type Rep ChartOptions Source #

Instance details

Defined in Chart.Markup

type Rep ChartOptions = D1 ('MetaData "ChartOptions" "Chart.Markup" "chart-svg-0.8.4.0-inplace" 'False) (C1 ('MetaCons "ChartOptions" 'PrefixI 'True) (S1 ('MetaSel ('Just "markupOptions") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 MarkupOptions) :*: (S1 ('MetaSel ('Just "hudOptions") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 HudOptions) :*: S1 ('MetaSel ('Just "chartTree") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ChartTree))))

forgetHud :: ChartOptions -> ChartOptions Source #

Processes the hud options and turns them into charts, rescales the existing charts, resets the hud options to mempty, and turns on ScalePArea in chart styles.

Note that this is a destructive operation, and, in particular, that

view #chartTree (forgetHud (mempty & set #chartTree c)) /= c

asChartTree :: ChartOptions -> ChartTree Source #

Convert ChartOptions to a ChartTree, forgetting the original hud and chart data

vertCO :: Align -> Double -> [ChartOptions] -> ChartOptions Source #

Vertically stack a list of ChartOptions (proceeding upwards), at the supplied Align and with the supplied gap intercalated.

horiCO :: Align -> Double -> [ChartOptions] -> ChartOptions Source #

Horizontally stack a list of ChartOptions (proceeding to the right), at the supplied Align and with the supplied gap intercalated.

stackCO :: Int -> Align -> Align -> Double -> [ChartOptions] -> ChartOptions Source #

Stack a list of ChartOptions horizontally, then vertically (proceeding downwards which is opposite to the usual coordinate reference system but intuitively the way people read charts)

markupChartOptions :: ChartOptions -> Markup Source #

Convert ChartOptions to Markup

>>> markupChartOptions (ChartOptions (defaultMarkupOptions & #cssOptions % #preferColorScheme .~ PreferNormal) mempty mempty) & markdown_ Compact Xml
"<svg xmlns=\"http://www.w3.org/2000/svg\" xmlns:xlink=\"http://www.w3.org/1999/xlink\" width=\"300\" height=\"300\" viewBox=\"-0.5 -0.5 1.0 1.0\"><style>\nsvg { font-family: system-ui,-apple-system,\"Segoe UI\",Roboto,\"Helvetica Neue\",Arial,\"Noto Sans\",\"Liberation Sans\",sans-serif,\"Apple Color Emoji\",\"Segoe UI Emoji\",\"Segoe UI Symbol\",\"Noto Color Emoji\";\n}\n\nticktext { font-family: SFMono-Regular,Menlo,Monaco,Consolas,\"Liberation Mono\",\"Courier New\",monospace;}</style><g class=\"chart\"></g><g class=\"hud\"></g></svg>"

markupChartTree :: ChartTree -> Markup Source #

Convert a ChartTree to markup

>>> lineExample & view #chartTree & markupChartTree & markdown_ Compact Xml
"<g class=\"line\"><g stroke-width=\"0.0150\" stroke=\"rgb(2%, 73%, 80%)\" stroke-opacity=\"1.0\" fill=\"none\"><polyline points=\"0,-1.0 1.0,-1.0 2.0,-5.0\"/></g><g stroke-width=\"0.0150\" stroke=\"rgb(2%, 29%, 48%)\" stroke-opacity=\"1.0\" fill=\"none\"><polyline points=\"0,0 2.8,-3.0\"/></g><g stroke-width=\"0.0150\" stroke=\"rgb(66%, 7%, 55%)\" stroke-opacity=\"1.0\" fill=\"none\"><polyline points=\"0.5,-4.0 0.5,0\"/></g></g>"

markupChart :: Chart -> Markup Source #

Convert a Chart to Markup

>>> import Data.Markup
>>> import Optics.Core
>>> import Control.Category ((>>>))
>>> lineExample & toListOf (#chartTree % charts') & mconcat & fmap (markupChart >>> markdown_ Compact Xml)
["<g stroke-width=\"0.0150\" stroke=\"rgb(2%, 73%, 80%)\" stroke-opacity=\"1.0\" fill=\"none\"><polyline points=\"0,-1.0 1.0,-1.0 2.0,-5.0\"/></g>","<g stroke-width=\"0.0150\" stroke=\"rgb(2%, 29%, 48%)\" stroke-opacity=\"1.0\" fill=\"none\"><polyline points=\"0,0 2.8,-3.0\"/></g>","<g stroke-width=\"0.0150\" stroke=\"rgb(66%, 7%, 55%)\" stroke-opacity=\"1.0\" fill=\"none\"><polyline points=\"0.5,-4.0 0.5,0\"/></g>"]

header :: Maybe Double -> Rect Double -> Markup -> Markup Source #

Create the classic SVG element

>>> header (Just 300) (Rect (-0.75) 0.75 (-0.5) 0.5) (element_ "foo" []) & markdown_ Compact Xml
"<svg xmlns=\"http://www.w3.org/2000/svg\" xmlns:xlink=\"http://www.w3.org/1999/xlink\" width=\"450\" height=\"300\" viewBox=\"-0.75 -0.5 1.5 1.0\"><foo></foo></svg>"

renderChartOptions :: ChartOptions -> Text Source #

Render ChartOptions to an SVG Text snippet

>>> renderChartOptions (ChartOptions (defaultMarkupOptions & #cssOptions % #preferColorScheme .~ PreferNormal) mempty mempty)
"<svg xmlns=\"http://www.w3.org/2000/svg\" xmlns:xlink=\"http://www.w3.org/1999/xlink\" width=\"300\" height=\"300\" viewBox=\"-0.5 -0.5 1.0 1.0\"><style>\nsvg { font-family: system-ui,-apple-system,\"Segoe UI\",Roboto,\"Helvetica Neue\",Arial,\"Noto Sans\",\"Liberation Sans\",sans-serif,\"Apple Color Emoji\",\"Segoe UI Emoji\",\"Segoe UI Symbol\",\"Noto Color Emoji\";\n}\n\nticktext { font-family: SFMono-Regular,Menlo,Monaco,Consolas,\"Liberation Mono\",\"Courier New\",monospace;}</style><g class=\"chart\"></g><g class=\"hud\"></g></svg>"

encodeChartOptions :: ChartOptions -> ByteString Source #

Render ChartOptions to an SVG ByteString

>>> encodeChartOptions (ChartOptions (defaultMarkupOptions & #cssOptions % #preferColorScheme .~ PreferNormal) mempty mempty)
"<svg xmlns=\"http://www.w3.org/2000/svg\" xmlns:xlink=\"http://www.w3.org/1999/xlink\" width=\"300\" height=\"300\" viewBox=\"-0.5 -0.5 1.0 1.0\"><style>\nsvg { font-family: system-ui,-apple-system,\"Segoe UI\",Roboto,\"Helvetica Neue\",Arial,\"Noto Sans\",\"Liberation Sans\",sans-serif,\"Apple Color Emoji\",\"Segoe UI Emoji\",\"Segoe UI Symbol\",\"Noto Color Emoji\";\n}\n\nticktext { font-family: SFMono-Regular,Menlo,Monaco,Consolas,\"Liberation Mono\",\"Courier New\",monospace;}</style><g class=\"chart\"></g><g class=\"hud\"></g></svg>"

writeChartOptions :: FilePath -> ChartOptions -> IO () Source #

Convert ChartOptions to an SVG ByteString and save to a file

data CssOptions Source #

css options

>>> defaultCssOptions
CssOptions {shapeRendering = NoShapeRendering, preferColorScheme = PreferHud, fontFamilies = "\nsvg { font-family: system-ui,-apple-system,\"Segoe UI\",Roboto,\"Helvetica Neue\",Arial,\"Noto Sans\",\"Liberation Sans\",sans-serif,\"Apple Color Emoji\",\"Segoe UI Emoji\",\"Segoe UI Symbol\",\"Noto Color Emoji\";\n}\n\nticktext { font-family: SFMono-Regular,Menlo,Monaco,Consolas,\"Liberation Mono\",\"Courier New\",monospace;}", cssExtra = ""}

Constructors

CssOptions
Fields shapeRendering :: ShapeRendering preferColorScheme :: PreferColorScheme fontFamilies :: ByteString cssExtra :: ByteString

Instances

Instances details

Eq CssOptions Source #

Instance details

Defined in Chart.Markup

Methods

(==) :: CssOptions -> CssOptions -> Bool #

(/=) :: CssOptions -> CssOptions -> Bool #

Data CssOptions Source #

Instance details

Defined in Chart.Markup

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> CssOptions -> c CssOptions #

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c CssOptions #

toConstr :: CssOptions -> Constr #

dataTypeOf :: CssOptions -> DataType #

dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c CssOptions) #

dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c CssOptions) #

gmapT :: (forall b. Data b => b -> b) -> CssOptions -> CssOptions #

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> CssOptions -> r #

gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> CssOptions -> r #

gmapQ :: (forall d. Data d => d -> u) -> CssOptions -> [u] #

gmapQi :: Int -> (forall d. Data d => d -> u) -> CssOptions -> u #

gmapM :: Monad m => (forall d. Data d => d -> m d) -> CssOptions -> m CssOptions #

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> CssOptions -> m CssOptions #

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> CssOptions -> m CssOptions #

Generic CssOptions Source #

Instance details

Defined in Chart.Markup

Associated Types

type Rep CssOptions

Instance details

Defined in Chart.Markup

type Rep CssOptions = D1 ('MetaData "CssOptions" "Chart.Markup" "chart-svg-0.8.4.0-inplace" 'False) (C1 ('MetaCons "CssOptions" 'PrefixI 'True) ((S1 ('MetaSel ('Just "shapeRendering") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ShapeRendering) :*: S1 ('MetaSel ('Just "preferColorScheme") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 PreferColorScheme)) :*: (S1 ('MetaSel ('Just "fontFamilies") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString) :*: S1 ('MetaSel ('Just "cssExtra") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString))))

Methods

from :: CssOptions -> Rep CssOptions x #

to :: Rep CssOptions x -> CssOptions #

Read CssOptions Source #

Instance details

Defined in Chart.Markup

Methods

readsPrec :: Int -> ReadS CssOptions #

readList :: ReadS [CssOptions] #

readPrec :: ReadPrec CssOptions #

readListPrec :: ReadPrec [CssOptions] #

Show CssOptions Source #

Instance details

Defined in Chart.Markup

Methods

showsPrec :: Int -> CssOptions -> ShowS #

show :: CssOptions -> String #

showList :: [CssOptions] -> ShowS #

type Rep CssOptions Source #

Instance details

Defined in Chart.Markup

type Rep CssOptions = D1 ('MetaData "CssOptions" "Chart.Markup" "chart-svg-0.8.4.0-inplace" 'False) (C1 ('MetaCons "CssOptions" 'PrefixI 'True) ((S1 ('MetaSel ('Just "shapeRendering") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ShapeRendering) :*: S1 ('MetaSel ('Just "preferColorScheme") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 PreferColorScheme)) :*: (S1 ('MetaSel ('Just "fontFamilies") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString) :*: S1 ('MetaSel ('Just "cssExtra") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ByteString))))

defaultCssOptions :: CssOptions Source #

No special shape rendering and default hud responds to user color scheme preferences.

data PreferColorScheme Source #

CSS prefer-color-scheme options

Constructors

PreferHud	includes css that switches approriate hud elements between light and dark.
PreferDark
PreferLight
PreferNormal

Instances

Instances details

Eq PreferColorScheme Source #

Instance details

Defined in Chart.Markup

Methods

(==) :: PreferColorScheme -> PreferColorScheme -> Bool #

(/=) :: PreferColorScheme -> PreferColorScheme -> Bool #

Data PreferColorScheme Source #

Instance details

Defined in Chart.Markup

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> PreferColorScheme -> c PreferColorScheme #

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c PreferColorScheme #

toConstr :: PreferColorScheme -> Constr #

dataTypeOf :: PreferColorScheme -> DataType #

dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c PreferColorScheme) #

dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c PreferColorScheme) #

gmapT :: (forall b. Data b => b -> b) -> PreferColorScheme -> PreferColorScheme #

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> PreferColorScheme -> r #

gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> PreferColorScheme -> r #

gmapQ :: (forall d. Data d => d -> u) -> PreferColorScheme -> [u] #

gmapQi :: Int -> (forall d. Data d => d -> u) -> PreferColorScheme -> u #

gmapM :: Monad m => (forall d. Data d => d -> m d) -> PreferColorScheme -> m PreferColorScheme #

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> PreferColorScheme -> m PreferColorScheme #

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> PreferColorScheme -> m PreferColorScheme #

Generic PreferColorScheme Source #

Instance details

Defined in Chart.Markup

Associated Types

type Rep PreferColorScheme

Instance details

Defined in Chart.Markup

type Rep PreferColorScheme = D1 ('MetaData "PreferColorScheme" "Chart.Markup" "chart-svg-0.8.4.0-inplace" 'False) ((C1 ('MetaCons "PreferHud" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "PreferDark" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "PreferLight" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "PreferNormal" 'PrefixI 'False) (U1 :: Type -> Type)))

Methods

from :: PreferColorScheme -> Rep PreferColorScheme x #

to :: Rep PreferColorScheme x -> PreferColorScheme #

Read PreferColorScheme Source #

Instance details

Defined in Chart.Markup

Methods

readsPrec :: Int -> ReadS PreferColorScheme #

readList :: ReadS [PreferColorScheme] #

readPrec :: ReadPrec PreferColorScheme #

readListPrec :: ReadPrec [PreferColorScheme] #

Show PreferColorScheme Source #

Instance details

Defined in Chart.Markup

Methods

showsPrec :: Int -> PreferColorScheme -> ShowS #

show :: PreferColorScheme -> String #

showList :: [PreferColorScheme] -> ShowS #

type Rep PreferColorScheme Source #

Instance details

Defined in Chart.Markup

type Rep PreferColorScheme = D1 ('MetaData "PreferColorScheme" "Chart.Markup" "chart-svg-0.8.4.0-inplace" 'False) ((C1 ('MetaCons "PreferHud" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "PreferDark" 'PrefixI 'False) (U1 :: Type -> Type)) :+: (C1 ('MetaCons "PreferLight" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "PreferNormal" 'PrefixI 'False) (U1 :: Type -> Type)))

cssPreferColorScheme :: (Colour, Colour) -> PreferColorScheme -> ByteString Source #

CSS prefer-color-scheme text snippet

PreferHud flips HUD *ink colour* under @media (prefers-color-scheme: dark). Opacities stay on presentation attributes (axisbar 0.4, ticklines 0.05, etc.) by design — low-opacity hud chrome, not a bug to “fix” in CSS.

>>> cssPreferColorScheme (light, dark) PreferHud
"svg {color-scheme: light dark;} {.canvas g, .title g, .axisbar g, .ticktext g, .tickglyph g, .ticklines g, .legendContent g text {fill: rgb(5%, 5%, 5%);} .ticklines g, .tickglyph g, .legendBorder g {stroke: rgb(5%, 5%, 5%);} .legendBorder g {fill: rgb(94%, 94%, 94%);}} @media (prefers-color-scheme:dark) {.canvas g, .title g, .axisbar g, .ticktext g, .tickglyph g, .ticklines g, .legendContent g text {fill: rgb(94%, 94%, 94%);} .ticklines g, .tickglyph g, .legendBorder g {stroke: rgb(94%, 94%, 94%);} .legendBorder g {fill: rgb(5%, 5%, 5%);}}"

fillSwitch :: (Colour, Colour) -> ByteString -> ByteString -> ByteString Source #

CSS snippet to switch between dark and light mode

fillSwitch (color1, color2) "dark" "stuff"

... will default to color1 for elements of the "stuff" class, but switch to color2 if "dark" mode is preferred by the user.

data ShapeRendering Source #

CSS glyphShape rendering options

Constructors

UseGeometricPrecision
UseCssCrisp
NoShapeRendering

Instances

Instances details

Eq ShapeRendering Source #

Instance details

Defined in Chart.Markup

Methods

(==) :: ShapeRendering -> ShapeRendering -> Bool #

(/=) :: ShapeRendering -> ShapeRendering -> Bool #

Data ShapeRendering Source #

Instance details

Defined in Chart.Markup

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> ShapeRendering -> c ShapeRendering #

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c ShapeRendering #

toConstr :: ShapeRendering -> Constr #

dataTypeOf :: ShapeRendering -> DataType #

dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c ShapeRendering) #

dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c ShapeRendering) #

gmapT :: (forall b. Data b => b -> b) -> ShapeRendering -> ShapeRendering #

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> ShapeRendering -> r #

gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> ShapeRendering -> r #

gmapQ :: (forall d. Data d => d -> u) -> ShapeRendering -> [u] #

gmapQi :: Int -> (forall d. Data d => d -> u) -> ShapeRendering -> u #

gmapM :: Monad m => (forall d. Data d => d -> m d) -> ShapeRendering -> m ShapeRendering #

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> ShapeRendering -> m ShapeRendering #

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> ShapeRendering -> m ShapeRendering #

Generic ShapeRendering Source #

Instance details

Defined in Chart.Markup

Associated Types

type Rep ShapeRendering
Instance details Defined in Chart.Markup type Rep ShapeRendering = D1 ('MetaData "ShapeRendering" "Chart.Markup" "chart-svg-0.8.4.0-inplace" 'False) (C1 ('MetaCons "UseGeometricPrecision" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "UseCssCrisp" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "NoShapeRendering" 'PrefixI 'False) (U1 :: Type -> Type)))

Methods

from :: ShapeRendering -> Rep ShapeRendering x #

to :: Rep ShapeRendering x -> ShapeRendering #

Read ShapeRendering Source #

Instance details

Defined in Chart.Markup

Methods

readsPrec :: Int -> ReadS ShapeRendering #

readList :: ReadS [ShapeRendering] #

readPrec :: ReadPrec ShapeRendering #

readListPrec :: ReadPrec [ShapeRendering] #

Show ShapeRendering Source #

Instance details

Defined in Chart.Markup

Methods

showsPrec :: Int -> ShapeRendering -> ShowS #

show :: ShapeRendering -> String #

showList :: [ShapeRendering] -> ShowS #

type Rep ShapeRendering Source #

Instance details

Defined in Chart.Markup

type Rep ShapeRendering = D1 ('MetaData "ShapeRendering" "Chart.Markup" "chart-svg-0.8.4.0-inplace" 'False) (C1 ('MetaCons "UseGeometricPrecision" 'PrefixI 'False) (U1 :: Type -> Type) :+: (C1 ('MetaCons "UseCssCrisp" 'PrefixI 'False) (U1 :: Type -> Type) :+: C1 ('MetaCons "NoShapeRendering" 'PrefixI 'False) (U1 :: Type -> Type)))

markupCssOptions :: CssOptions -> Markup Source #

Convert CssOptions to Markup

data MarkupOptions Source #

Markup options.

>>> defaultMarkupOptions
MarkupOptions {markupHeight = Just 300.0, chartAspect = FixedAspect 1.5, cssOptions = CssOptions {shapeRendering = NoShapeRendering, preferColorScheme = PreferHud, fontFamilies = "\nsvg { font-family: system-ui,-apple-system,\"Segoe UI\",Roboto,\"Helvetica Neue\",Arial,\"Noto Sans\",\"Liberation Sans\",sans-serif,\"Apple Color Emoji\",\"Segoe UI Emoji\",\"Segoe UI Symbol\",\"Noto Color Emoji\";\n}\n\nticktext { font-family: SFMono-Regular,Menlo,Monaco,Consolas,\"Liberation Mono\",\"Courier New\",monospace;}", cssExtra = ""}, renderStyle = Compact}

Constructors

MarkupOptions
Fields markupHeight :: Maybe Double chartAspect :: ChartAspect cssOptions :: CssOptions renderStyle :: RenderStyle

Instances

Instances details

Eq MarkupOptions Source #

Instance details

Defined in Chart.Markup

Methods

(==) :: MarkupOptions -> MarkupOptions -> Bool #

(/=) :: MarkupOptions -> MarkupOptions -> Bool #

Data MarkupOptions Source #

Instance details

Defined in Chart.Markup

Methods

gfoldl :: (forall d b. Data d => c (d -> b) -> d -> c b) -> (forall g. g -> c g) -> MarkupOptions -> c MarkupOptions #

gunfold :: (forall b r. Data b => c (b -> r) -> c r) -> (forall r. r -> c r) -> Constr -> c MarkupOptions #

toConstr :: MarkupOptions -> Constr #

dataTypeOf :: MarkupOptions -> DataType #

dataCast1 :: Typeable t => (forall d. Data d => c (t d)) -> Maybe (c MarkupOptions) #

dataCast2 :: Typeable t => (forall d e. (Data d, Data e) => c (t d e)) -> Maybe (c MarkupOptions) #

gmapT :: (forall b. Data b => b -> b) -> MarkupOptions -> MarkupOptions #

gmapQl :: (r -> r' -> r) -> r -> (forall d. Data d => d -> r') -> MarkupOptions -> r #

gmapQr :: forall r r'. (r' -> r -> r) -> r -> (forall d. Data d => d -> r') -> MarkupOptions -> r #

gmapQ :: (forall d. Data d => d -> u) -> MarkupOptions -> [u] #

gmapQi :: Int -> (forall d. Data d => d -> u) -> MarkupOptions -> u #

gmapM :: Monad m => (forall d. Data d => d -> m d) -> MarkupOptions -> m MarkupOptions #

gmapMp :: MonadPlus m => (forall d. Data d => d -> m d) -> MarkupOptions -> m MarkupOptions #

gmapMo :: MonadPlus m => (forall d. Data d => d -> m d) -> MarkupOptions -> m MarkupOptions #

Generic MarkupOptions Source #

Instance details

Defined in Chart.Markup

Associated Types

type Rep MarkupOptions

Instance details

Defined in Chart.Markup

type Rep MarkupOptions = D1 ('MetaData "MarkupOptions" "Chart.Markup" "chart-svg-0.8.4.0-inplace" 'False) (C1 ('MetaCons "MarkupOptions" 'PrefixI 'True) ((S1 ('MetaSel ('Just "markupHeight") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Double)) :*: S1 ('MetaSel ('Just "chartAspect") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ChartAspect)) :*: (S1 ('MetaSel ('Just "cssOptions") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 CssOptions) :*: S1 ('MetaSel ('Just "renderStyle") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 RenderStyle))))

Methods

from :: MarkupOptions -> Rep MarkupOptions x #

to :: Rep MarkupOptions x -> MarkupOptions #

Read MarkupOptions Source #

Instance details

Defined in Chart.Markup

Methods

readsPrec :: Int -> ReadS MarkupOptions #

readList :: ReadS [MarkupOptions] #

readPrec :: ReadPrec MarkupOptions #

readListPrec :: ReadPrec [MarkupOptions] #

Show MarkupOptions Source #

Instance details

Defined in Chart.Markup

Methods

showsPrec :: Int -> MarkupOptions -> ShowS #

show :: MarkupOptions -> String #

showList :: [MarkupOptions] -> ShowS #

type Rep MarkupOptions Source #

Instance details

Defined in Chart.Markup

type Rep MarkupOptions = D1 ('MetaData "MarkupOptions" "Chart.Markup" "chart-svg-0.8.4.0-inplace" 'False) (C1 ('MetaCons "MarkupOptions" 'PrefixI 'True) ((S1 ('MetaSel ('Just "markupHeight") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 (Maybe Double)) :*: S1 ('MetaSel ('Just "chartAspect") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 ChartAspect)) :*: (S1 ('MetaSel ('Just "cssOptions") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 CssOptions) :*: S1 ('MetaSel ('Just "renderStyle") 'NoSourceUnpackedness 'NoSourceStrictness 'DecidedLazy) (Rec0 RenderStyle))))

defaultMarkupOptions :: MarkupOptions Source #

The official markup options

encodeNum :: Double -> ByteString Source #

Show a Double, or rounded to 4 decimal places if this is shorter.

>>> encodeNum 1
"1.0"

>>> encodeNum 1.23456
"1.2346"

encodePx :: Double -> ByteString Source #

SVG width and height, without any unit suffix, are defined as pixels, which are Integers

>>> encodePx 300.0
"300"

defaultCssFontFamilies :: ByteString Source #

default fonts.