Initial successfully compiling Range Slider

src/Gargantext/Components/RangeSlider.purs

@@ -11,8 +11,9 @@ import Reactix as R
 import Data.Traversable (traverse_)
 import Gargantext.Utils.Reactix as R2
 import DOM.Simple.Document (document)
-import DOM.Simple.Element as Element
+import DOM.Simple.EventListener as EL
 import DOM.Simple.Types (DOMRect, Element)
+import DOM.Simple.Event as Event
 import Data.Tuple.Nested ((/\))
 import Effect.Uncurried (EffectFn1, mkEffectFn1)
 import Gargantext.Utils.Math (roundToMultiple)
@@ -21,6 +22,7 @@ import Data.Maybe (Maybe(..))
 import Data.Nullable (null)
 import Effect (Effect)
 import Reactix.DOM.HTML as H
+import Reactix.SyntheticEvent as RE
 -- data Axis = X | Y
 
 type NumberRange = Range.Closed Number
@@ -28,23 +30,23 @@ type NumberRange = Range.Closed Number
 -- and 'max' as being the bounds of the scale and 'low' and 'high' as
 -- being the selected values
 type Props =
-  { bounds :: NumberRange       -- The minimum and maximum values it is possible to select
+  ( bounds :: NumberRange       -- The minimum and maximum values it is possible to select
   , initialValue :: NumberRange -- The user's selection of minimum and maximum values
   , epsilon :: Number           -- The smallest possible change (for mouse)
   , step :: Number              -- The 'standard' change (for keyboard)
   -- , axis :: Axis                -- Which direction to move in
   , width :: Number
   , height :: Number
-  , onChange :: NumberRange -> Effect Unit }
+  , onChange :: NumberRange -> Effect Unit )
 
-rangeSlider :: Props -> R.Element
-rangeSlider = R.createElement rangeSliderCpt
+rangeSlider :: Record Props -> R.Element
+rangeSlider props = R.createElement rangeSliderCpt props []
 
 data Knob = MinKnob | MaxKnob
 
 data RangeUpdate = SetMin Number | SetMax Number
 
-rangeSliderCpt :: Props -> R.Component Props
+rangeSliderCpt :: R.Component Props
 rangeSliderCpt = R.hooksComponent "RangeSlider" cpt
   where
     cpt props _ = do
@@ -66,25 +68,25 @@ rangeSliderCpt = R.hooksComponent "RangeSlider" cpt
       -- the bounding box within which the mouse can drag
       dragScale <- R.useRef $ Nothing
       -- the handler functions for trapping mouse events, so they can be removed
-      mouseMoveHandler <- R.useRef $ Nothing
-      mouseUpHandler <- R.useRef $ Nothing
-      
-      R.useLayoutEffect1 dragKnob $ \_ -> do
+      mouseMoveHandler <- (R.useRef $ Nothing) :: R.Hooks (R.Ref (Maybe (EL.Callback Event.MouseEvent)))
+      mouseUpHandler <- (R.useRef $ Nothing) :: R.Hooks (R.Ref (Maybe (EL.Callback Event.MouseEvent)))
+      let destroy =
+            do destroyEventHandler "mousemove" mouseMoveHandler
+               destroyEventHandler "mouseup" mouseUpHandler
+      R2.useLayoutEffect1' dragKnob $ \_ -> do
         case dragKnob of
           Just knob -> do
             let drag = getDragScale knob scalePos lowPos highPos
             R.setRef dragScale drag
-            let onMouseMove = mkEffectFn1 $ \event ->
-              setKnob knob setValue value $ reproject drag scalePos value $ R2.mousePosition event
-            let onMouseUp = mkEffectFn1 $ \event ->
-              destroyEventHandler "mousemove" mouseMoveHandler *>
-              destroyEventHandler "mouseup" mouseUpHandler
-            Element.addEventListener document "mousemove" onMouseMove
-            Element.addEventListener document "mouseup" onMouseUp
-          Nothing -> do
-            destroyEventHandler "mousemove" mouseMoveHandler
-            destroyEventHandler "mouseup" mouseUpHandler
-      H.div { className, aria }
+            let onMouseMove = EL.callback $ \(event :: Event.MouseEvent) ->
+              case reproject drag scalePos value (R2.domMousePosition event) of
+                  Just val -> setKnob knob setValue value val
+                  Nothing -> destroy
+            let onMouseUp = EL.callback $ \(_event :: Event.MouseEvent) -> destroy
+            EL.addEventListener document "mousemove" onMouseMove
+            EL.addEventListener document "mouseup" onMouseUp
+          Nothing -> destroy
+      pure $ H.div { className, aria }
         [ renderScale scaleElem props value'
         , renderKnob lowElem  value'.min ("Minimum value:" <> show value'.min) MinKnob setDragKnob
         , renderKnob highElem value'.max ("Maximum value:" <> show value'.max) MaxKnob setDragKnob
@@ -92,9 +94,15 @@ rangeSliderCpt = R.hooksComponent "RangeSlider" cpt
     className = "range-slider"
     aria = { label: "Range Slider Control. Expresses filtering data by a minimum and maximum value range through two slider knobs. Knobs can be adjusted with the arrow keys." }
 
-destroyEventHandler :: forall e. String -> R.Ref (Maybe (e -> EffectFn1 e Unit)) -> Effect Unit
+destroyEventHandler
+  :: forall e
+  .  Event.IsEvent e
+  => String -> R.Ref (Maybe (EL.Callback e)) -> Effect Unit
 destroyEventHandler name ref = traverse_ destroy $ R.readRef ref
-  where destroy handler = Element.removeEventListener document name handler *> R.setRef ref Nothing
+  where
+    destroy handler = do
+      EL.removeEventListener document name handler
+      R.setRef ref Nothing
 
 setKnob :: Knob -> (Range.Closed Number -> Effect Unit) -> Range.Closed Number -> Number -> Effect Unit
 setKnob knob setValue r val = setValue $ setter knob r val
@@ -102,16 +110,17 @@ setKnob knob setValue r val = setValue $ setter knob r val
     setter MinKnob = Range.withMin
     setter MaxKnob = Range.withMax
 
-getDragScale :: Knob -> R.Ref (Maybe DOMRect) -> R.Ref (Maybe DOMRect) -> R.Ref (Maybe DOMRect) -> Range.Closed Number
-getDragScale knob scalePos lowPos highPos = Range.Closed { min: min knob, max: max knob }
+getDragScale :: Knob -> R.Ref (Maybe DOMRect) -> R.Ref (Maybe DOMRect) -> R.Ref (Maybe DOMRect) -> Maybe (Range.Closed Number)
+getDragScale knob scalePos lowPos highPos = do
+  scale <- R.readRef scalePos
+  low <- R.readRef lowPos
+  high <- R.readRef highPos
+  pure $ Range.Closed { min: min knob scale high, max: max knob scale low }
   where
-    scale = R.readRef scalePos
-    low = R.readRef lowPos
-    high = R.readRef highPos
-    min MinKnob = scale.left
-    min MaxKnob = low.left
-    max MinKnob = high.left
-    max MaxKnob = scale.right
+    min MinKnob scale _ = scale.left
+    min MaxKnob _ low = low.left
+    max MinKnob _ high = high.left
+    max MaxKnob scale _ = scale.right
 
 renderScale ref {width,height} {min, max} =
    H.div { ref, className, width, height, aria } []
@@ -125,15 +134,22 @@ renderKnob ref val label knob set =
     tabindex = 0
     className = "knob"
     aria = { label }
-    onMouseDown = mkEffectFn1 $ \_ -> set knob
+    onMouseDown = mkEffectFn1 $ \_ -> set (Just knob)
 
 -- todo round to nearest epsilon
-reproject :: Range.Closed Number -> Range.Closed Number -> R2.Point -> Number
-reproject drag scale value mousePos = Range.projectNormal value normal
-  where
-    normal = Range.normalise scale (Range.clamp drag mousePos.x)
-
-initialValue :: Props -> NumberRange
+reproject :: Maybe (Range.Closed Number) -> R.Ref (Maybe DOMRect) -> Range.Closed Number -> R2.Point -> Maybe Number
+reproject drag scale value (R2.Point mousePos) = do
+  drag_ <- drag
+  scale_ <- rectRange <$> R.readRef scale
+  let normal = Range.normalise scale_ (Range.clamp drag_ mousePos.x)
+  pure $ Range.projectNormal value normal
+    
+rectRange :: DOMRect -> Range.Closed Number
+rectRange rect = Range.Closed { min, max }
+  where min = rect.left
+        max = rect.right
+
+initialValue :: Record Props -> NumberRange
 initialValue props = roundRange props.epsilon props.bounds props.initialValue
   
 round :: Number -> NumberRange -> Number -> Number

src/Gargantext/Utils/Reactix.purs

@@ -31,6 +31,8 @@ scuff = unsafeCoerce
 mousePosition :: RE.SyntheticEvent DE.MouseEvent -> Point
 mousePosition e = Point { x: RE.clientX e, y: RE.clientY e }
 
+domMousePosition :: DE.MouseEvent -> Point
+domMousePosition = mousePosition <<< unsafeCoerce
 -- | This is naughty, it quietly mutates the input and returns it
 named :: forall o. String -> o -> o
 named = flip $ defineProperty "name"