Commit 16d616e1 authored by Alexandre Delanoë's avatar Alexandre Delanoë

[CHART] cosmetics.

parent e56d640a
...@@ -146,7 +146,7 @@ xAxis' xs = xAxis ...@@ -146,7 +146,7 @@ xAxis' xs = xAxis
} }
where where
xData :: Array String -> Array DataAxis xData :: Array String -> Array DataAxis
xData = map (\x -> {value : x, textStyle : textStyle'}) xData = map (\x -> {value : x, textStyle : textStyle})
-- TODO try to use Optional -- TODO try to use Optional
yAxis' :: { position :: String yAxis' :: { position :: String
...@@ -228,7 +228,7 @@ textStyle2 = ...@@ -228,7 +228,7 @@ textStyle2 =
,fontStyle: chartFontStyle italic ,fontStyle: chartFontStyle italic
,fontWeight: chartFontWeight normal ,fontWeight: chartFontWeight normal
,fontFamily: "sans-serif" ,fontFamily: "sans-serif"
,fontSize: 12 ,fontSize: 11
,align: relativePosition $ Relative RightPos ,align: relativePosition $ Relative RightPos
,verticalAlign: relativePosition $ Relative Bottom ,verticalAlign: relativePosition $ Relative Bottom
,lineHeight: percentPosition 0.0 ,lineHeight: percentPosition 0.0
...@@ -270,14 +270,14 @@ textStyle = ...@@ -270,14 +270,14 @@ textStyle =
,fontStyle: chartFontStyle normal ,fontStyle: chartFontStyle normal
,fontWeight: chartFontWeight normal ,fontWeight: chartFontWeight normal
,fontFamily: "sans-serif" ,fontFamily: "sans-serif"
,fontSize: 20 ,fontSize: 15
,align: relativePosition $ Relative LeftPos ,align: relativePosition $ Relative LeftPos
,verticalAlign: relativePosition $ Relative Top ,verticalAlign: relativePosition $ Relative Top
,lineHeight: percentPosition 0.0 ,lineHeight: percentPosition 0.0
,width: percentPosition 100.0 ,width: percentPosition 100.0
,height: percentPosition 100.0 ,height: percentPosition 100.0
,textBorderColor: black ,textBorderColor: black
,textBorderWidth: 1.0 ,textBorderWidth: 0.0
,textShadowColor: black ,textShadowColor: black
,textShadowBlur: black ,textShadowBlur: black
,textShadowOffsetX: 0.0 ,textShadowOffsetX: 0.0
......
...@@ -22,9 +22,6 @@ import Gargantext.Components.Charts.Options.Color ...@@ -22,9 +22,6 @@ import Gargantext.Components.Charts.Options.Color
import Gargantext.Components.Charts.Options.Font import Gargantext.Components.Charts.Options.Font
import Gargantext.Components.Charts.Options.Data import Gargantext.Components.Charts.Options.Data
import Gargantext.Pages.Corpus.Dashboard (distriBySchool)
type Path = type Path =
{ corpusId :: Int { corpusId :: Int
} }
...@@ -57,7 +54,6 @@ loadedMetricsSpec :: Spec {} (Loader.InnerProps Path Loaded ()) Void ...@@ -57,7 +54,6 @@ loadedMetricsSpec :: Spec {} (Loader.InnerProps Path Loaded ()) Void
loadedMetricsSpec = simpleSpec defaultPerformAction render loadedMetricsSpec = simpleSpec defaultPerformAction render
where where
render :: Render {} (Loader.InnerProps Path Loaded ()) Void render :: Render {} (Loader.InnerProps Path Loaded ()) Void
-- render dispatch {loaded} {} _ = [chart distriBySchool]
render dispatch {loaded:histoMetrics} {} _ = [chart (chartOptions histoMetrics)] render dispatch {loaded:histoMetrics} {} _ = [chart (chartOptions histoMetrics)]
chartOptions :: HistoMetrics -> Options chartOptions :: HistoMetrics -> Options
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment