done testStyle and textWeight, working on align

src/Charts/ECharts.purs

@@ -97,7 +97,7 @@ series' =
 opt :: Option
 opt =
   {
-    title: title'
+    title: title
     ,legend: Nothing
     ,tooltip: tooltip'
     ,grid: {containLabel: true}
@@ -106,7 +106,9 @@ opt =
     ,series: [series']
     ,dataZoom: [dz1', dz1', dz2', dz2']
   }
-  where title' =
+
+title :: Title
+title =
   {
     id: ""
    ,show: true
@@ -126,16 +128,22 @@ opt =
    ,top: renderTopRelativePosition Middle
    ,right: renderNumber 60.0
    ,bottom: renderPercentage 40.0
-            ,backgroundColor: renderCSSColor turquoise
-            ,borderColor: renderCSSColor violet
+   ,backgroundColor: renderChartColor turquoise
+   ,borderColor: renderChartColor violet
    ,borderWidth: 20.0
    ,borderRadius: Left 20.0
    ,shadowBlur: 40.0
-            ,shadowColor: renderCSSColor turquoise
+   ,shadowColor: renderChartColor turquoise
    ,shadowOffsetX: 20.0
    ,shadowOffsetY: 40.0
   }
 
+textStyle :: ChartFontStyle
+textStyle =
+  {
+    
+  }
+
 charts :: Echarts
 charts =
   {

src/Charts/Types.purs

@@ -2,12 +2,10 @@ module Charts.Types where
 
 import Unsafe.Coerce
 
-import CSS (Color, toHexString)
+import CSS (Color, FontStyle(..), Value(..), toHexString, Prefixed(..))
 import Data.Either (Either)
-import Data.Generic (class Generic, gShow)
 import Data.Maybe (Maybe)
-import Data.String (toLower)
-import Prelude ((<>), class Show, show, ($), (>>>), Unit, (<<<))
+import Prelude ((<>), class Show, show, ($), Unit, (<<<))
 
 type NumberOrArray = Either Number (Array Number)
 
@@ -17,17 +15,31 @@ instance showTopRelativePosition :: Show TopRelativePosition
         show (Middle) = "middle"
         show (Bottom) = "bottom"
 
-
 data LeftRelativePosition = LeftPos | Center | RightPos
 instance showLeftRelativePosition :: Show LeftRelativePosition
   where show (LeftPos) = "left"
         show (Center) = "center"
         show (RightPos) = "right"
 
-newtype CSSColor = CSSColor String
+newtype ChartColor = ChartColor String
+
+renderChartColor :: Color -> ChartColor
+renderChartColor = ChartColor <<< toHexString
+
+newtype ChartFontStyle = ChartFontStyle String
+
+renderChartFontStyle :: FontStyle -> ChartFontStyle
+renderChartFontStyle (FontStyle (Value (Plain "italic"))) = ChartFontStyle "italic"
+renderChartFontStyle (FontStyle (Value (Plain "oblique"))) = ChartFontStyle "oblique"
+renderChartFontStyle _ = ChartFontStyle "normal"
+
+newtype ChartFontWeight = ChartFontWeight String
 
-renderCSSColor :: Color -> CSSColor
-renderCSSColor = CSSColor <<< toHexString
+renderChartFontWeight :: FontWeight -> ChartFontWeight
+renderChartFontWeight (FontStyle (Value (Plain "bold")))) = ChartFontWeight "bold"
+renderChartFontWeight (FontStyle (Value (Plain "bolder")))) = ChartFontWeight "bolder"
+renderChartFontWeight (FontStyle (Value (Plain "lighter")))) = ChartFontWeight "lighter"
+renderChartFontWeight _ = ChartFontWeight "normal"
 
 foreign import data Position :: Type -> Type
 
@@ -90,12 +102,12 @@ type Title =
   , top :: Position TopRelativePosition -- default 'auto'
   , right :: Position Unit -- default 'auto'
   , bottom :: Position Unit -- default 'auto'
-  , backgroundColor :: CSSColor -- default 'transparent''
-  , borderColor :: CSSColor -- default '#ccc'
+  , backgroundColor :: ChartColor -- default 'transparent''
+  , borderColor :: ChartColor -- default '#ccc'
   , borderWidth :: Number -- default '1'
   , borderRadius :: NumberOrArray -- default 0; data NumberOrArray = Number | Array Number
   , shadowBlur :: Number
-  , shadowColor :: CSSColor
+  , shadowColor :: ChartColor
   , shadowOffsetX :: Number
   , shadowOffsetY :: Number
   }
@@ -151,12 +163,12 @@ type Data =
   }
 
 type SubtextStyle =
-  { color      :: Color
-  , fontStyle  :: String
-  , fontWeight :: String
+  { color      :: ChartColor
+  , fontStyle  :: ChartFontStyle
+  , fontWeight :: ChartFontWeight
   , fontFamily :: String
   , fontSize   :: Int
-  , align      :: String
+  , align      :: LeftRelativePosition
   , verticalAlign :: String
   , lineHeight    :: Number
   , width         :: Number

src/Dashboard.purs

@@ -18,7 +18,7 @@ performAction :: forall eff props. PerformAction (dom :: DOM | eff) State props
 performAction _ _ _ = pure unit
 
 render :: forall props. Render State props Action
-render dispatch _ state _ = [text "Dashboard", histogram2]
+render dispatch _ state _ = [histogram2]
 
 layoutDashboard :: forall props eff. Spec (dom :: DOM | eff) State props Action
 layoutDashboard = simpleSpec performAction render