module Lucid.Foundation.Forms.RangeSlider where
import Lucid.Base
import Lucid.Html5
import qualified Data.Text as T
import Data.Monoid
range_slider_ :: T.Text
range_slider_ = " range-slider "
data_slider_ :: Attribute
data_slider_ = data_ "slider" ""
role_slider_ :: Attribute
role_slider_ = makeAttribute "role" "slider"
range_slider_handle_ :: T.Text
range_slider_handle_ = " range-slider-handle "
range_slider_active_segment_ :: T.Text
range_slider_active_segment_ = " range-slider-active-segment "
vertical_range_ :: T.Text
vertical_range_ = " vertical-range "
makeVertical_ :: Attribute
makeVertical_ = data_ "options" "vertical: true;"