Merge pull request #50 from jacereda/master

Add dataZoom/dataZoomFeature
slamdata · Nov 3, 2017 · b3160c7 · b3160c7
2 parents 4866c2c + 806e5f0
commit b3160c7
Show file tree

Hide file tree

Showing 4 changed files with 18 additions and 1 deletion.
diff --git a/example/src/Bar.purs b/example/src/Bar.purs
@@ -66,6 +66,7 @@ options inp = do
         E.magics do
           E.magicStack
           E.magicTiled
+      E.dataZoomFeature E.shown
       E.dataView $ pure unit
 
 

diff --git a/example/src/Scatter.purs b/example/src/Scatter.purs
@@ -95,6 +95,10 @@ options sinData cosData = do
       E.symbolSize 2
       E.items cosData
 
+  E.dataZoom do
+    E.sliderDataZoom E.shown
+    E.insideDataZoom $ pure unit
+
 chart ∷ ∀ e. Eff (dom ∷ DOM, echarts ∷ ET.ECHARTS, exception ∷ EXCEPTION, random ∷ RANDOM|e) Unit
 chart = do
   chart' (ElementId "scatter-1") Nothing

diff --git a/src/ECharts/Commands.purs b/src/ECharts/Commands.purs
@@ -507,6 +507,15 @@ clear = set' "" $ toForeign "clear"
 setClear ∷ ∀ i m. Monad m ⇒ String → DSL (clear ∷ I|i) m
 setClear a = set' "clear" $ toForeign a
 
+dataZoom ∷ ∀ i m. Monad m ⇒ CommandsT TP.DataZoomI m ~> CommandsT (dataZoom ∷ I|i) m
+dataZoom = set "dataZoom" <=< buildSeries
+
+insideDataZoom ∷ ∀ i m. Monad m ⇒ CommandsT TP.InsideDataZoomI m ~> CommandsT (insideDataZoom ∷ I|i) m
+insideDataZoom = set "inside" <=< buildObj
+
+sliderDataZoom ∷ ∀ i m. Monad m ⇒ CommandsT TP.SliderDataZoomI m ~> CommandsT (sliderDataZoom ∷ I|i) m
+sliderDataZoom = set "slider" <=< buildObj 
+
 toolbox ∷ ∀ i m. Monad m ⇒ CommandsT TP.ToolboxI m ~> CommandsT (toolbox ∷ I|i) m
 toolbox a = set "toolbox" =<< buildObj a
 
@@ -537,6 +546,9 @@ magicTiled = set' "" $ toForeign "tiled"
 dataView ∷ ∀ i m. Monad m ⇒ CommandsT TP.DataViewI m ~> CommandsT (dataView ∷ I|i) m
 dataView a = set "dataView" =<< buildObj a
 
+dataZoomFeature ∷ ∀ i m. Monad m ⇒ CommandsT TP.DataZoomFeatureI m ~> CommandsT (dataZoom ∷ I|i) m
+dataZoomFeature = set "dataZoom" <=< buildObj
+
 splitArea ∷ ∀ i m. Monad m ⇒ CommandsT TP.SplitAreaI m ~> CommandsT (splitArea ∷ I|i) m
 splitArea a = set "splitArea" =<< buildObj a
 

diff --git a/src/ECharts/Types/Phantom.purs b/src/ECharts/Types/Phantom.purs
@@ -314,7 +314,7 @@ type DataZoomMixinI i =
 
 type InsideDataZoomI = DataZoomMixinI ()
 
-type SliderDataZoom =
+type SliderDataZoomI =
   PositionMixin
   (ZMixin
    ( show ∷ I