Add dataZoom/dataZoomFeature

Author: jacereda

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
 
 

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

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
 

src/ECharts/Types/Phantom.purs

@@ -314,7 +314,7 @@ type DataZoomMixinI i =
 
 type InsideDataZoomI = DataZoomMixinI ()
 
-type SliderDataZoom =
+type SliderDataZoomI =
   PositionMixin
   (ZMixin
    ( show ∷ I