elm slider test WIP

main.elm

import Mouse
import Graphics.Input (Input, input, hoverable)
 
type SliderInput = { mouseX:Int, mouseY:Int, mouseDown:Bool }
sliderInput = SliderInput <~ Mouse.x
                           ~ Mouse.y
                           ~ Mouse.isDown
 
type Slider = { value:Int, isMoving:Bool }
defaultSlider : Slider
defaultSlider = 
  { value = 0
  , isMoving = False
  }
 
stepSlider : SliderInput -> Slider -> Slider
stepSlider {mouseX, mouseY, mouseDown}
           ({value, isMoving} as slider) =
  let isMoving' = mouseDown
      value' = if isMoving' then mouseX else value
  in
      { slider | isMoving <- isMoving'
               , value    <- value' }

sliderState : Signal Slider
sliderState = foldp stepSlider defaultSlider sliderInput

view : Slider -> Element
view {value,isMoving} = asText value

main = lift view sliderState