definition module iTasks.API.Extensions.Dashboard
/**
* This module provides some types for visuazing key indicator
* values in a dashboard style using simulated lights and gauges
*/
import iTasks

//LED-style visual indicator
:: ControlLight
    = LightOff
    | LightOnGreen
    | LightOnOrange
    | LightOnRed

//Speedometer-style gauge
:: Gauge =
    {val    :: Int    //Current value
    ,min    :: Int    //Maximum range value
    ,max    :: Int    //Minimum range value
    ,unit   :: String //Definition of the units of the scale
    ,label  :: String //Descriptive label of the indicator value
    }

derive JSONEncode       ControlLight
derive JSONDecode       ControlLight
derive gEditor          ControlLight
derive gEditMeta        ControlLight
derive gUpdate          ControlLight
derive gVerify          ControlLight
derive gEq              ControlLight
derive gDefault         ControlLight
derive gText            ControlLight