Copyright | (c) 2018 Francisco Vallarino |
---|---|
License | BSD-3-Clause (see the LICENSE file) |
Maintainer | fjvallarino@gmail.com |
Stability | experimental |
Portability | non-portable |
Safe Haskell | None |
Language | Haskell2010 |
Input field for dates types.
Supports the Day type of the time
library, but other types can be supported by implementing DayConverter
. Maybe
is also supported.
Supports different date formats and separators.
Handles mouse wheel and shift + vertical drag to increase/decrease days.
Synopsis
- data DateFieldCfg s e a
- type FormattableDate a = (Eq a, Ord a, Show a, DateTextConverter a, Typeable a)
- class (Eq a, Ord a, Show a, Typeable a) => DayConverter a where
- convertFromDay :: Day -> a
- convertToDay :: a -> Maybe Day
- class DateTextConverter a
- dateField :: (FormattableDate a, WidgetEvent e) => ALens' s a -> WidgetNode s e
- dateField_ :: (FormattableDate a, WidgetEvent e) => ALens' s a -> [DateFieldCfg s e a] -> WidgetNode s e
- dateFieldV :: (FormattableDate a, WidgetEvent e) => a -> (a -> e) -> WidgetNode s e
- dateFieldV_ :: (FormattableDate a, WidgetEvent e) => a -> (a -> e) -> [DateFieldCfg s e a] -> WidgetNode s e
- dateFormatDelimiter :: Char -> DateFieldCfg s e a
- dateFormatDDMMYYYY :: DateFieldCfg s e a
- dateFormatMMDDYYYY :: DateFieldCfg s e a
- dateFormatYYYYMMDD :: DateFieldCfg s e a
Configuration
data DateFieldCfg s e a Source #
Configuration options for dateField:
validInput
: field indicating if the current input is valid. Useful to show warnings in the UI, or disable buttons if needed.resizeOnChange
: Whether input causesResizeWidgets
requests.selectOnFocus
: Whether all input should be selected when focus is received.minValue
: Minimum valid date.maxValue
: Maximum valid date.wheelRate
: The rate at which wheel movement affects the date.dragRate
: The rate at which drag movement affects the date.onFocus
: event to raise when focus is received.onFocusReq
:WidgetRequest
to generate when focus is received.onBlur
: event to raise when focus is lost.onBlurReq
:WidgetRequest
to generate when focus is lost.onChange
: event to raise when the value changes.onChangeReq
:WidgetRequest
to generate when the value changes.dateFormatDelimiter
: which text delimiter to separate year, month and day.dateFormatDDMMYYYY
: using the current delimiter, accept DDMMYYYY.dateFormatMMDDYYYY
: using the current delimiter, accept MMDDYYYY.dateFormatYYYYMMDD
: using the current delimiter, accept YYYYMMDD.
Instances
type FormattableDate a = (Eq a, Ord a, Show a, DateTextConverter a, Typeable a) Source #
Constraints for date types accepted by dateField.
class (Eq a, Ord a, Show a, Typeable a) => DayConverter a where Source #
Converter to and form the Day type of the time library. To use types other than Day of said library, this typeclass needs to be implemented. -
convertFromDay :: Day -> a Source #
convertToDay :: a -> Maybe Day Source #
Instances
DayConverter Day Source # | |
Defined in Monomer.Widgets.Singles.DateField |
class DateTextConverter a Source #
dateAcceptText, dateFromText, dateToText, dateFromDay, dateToDay
Instances
DayConverter a => DateTextConverter a Source # | |
Defined in Monomer.Widgets.Singles.DateField dateAcceptText :: DateFormat -> Char -> Maybe a -> Maybe a -> Text -> (Bool, Bool, Maybe a) dateFromText :: DateFormat -> Char -> Text -> Maybe a dateToText :: DateFormat -> Char -> a -> Text dateFromDay :: Day -> a | |
(DayConverter a, DateTextConverter a) => DateTextConverter (Maybe a) Source # | |
Defined in Monomer.Widgets.Singles.DateField |
Constructors
dateField :: (FormattableDate a, WidgetEvent e) => ALens' s a -> WidgetNode s e Source #
Creates a date field using the given lens.
dateField_ :: (FormattableDate a, WidgetEvent e) => ALens' s a -> [DateFieldCfg s e a] -> WidgetNode s e Source #
Creates a date field using the given lens. Accepts config.
dateFieldV :: (FormattableDate a, WidgetEvent e) => a -> (a -> e) -> WidgetNode s e Source #
Creates a date field using the given value and onChange
event handler.
dateFieldV_ :: (FormattableDate a, WidgetEvent e) => a -> (a -> e) -> [DateFieldCfg s e a] -> WidgetNode s e Source #
Creates a date field using the given value and onChange
event handler.
Accepts config.
dateFormatDelimiter :: Char -> DateFieldCfg s e a Source #
Which character should be used to delimit dates.
dateFormatDDMMYYYY :: DateFieldCfg s e a Source #
Date format DDMMYYYY, using the appropriate delimiter.
dateFormatMMDDYYYY :: DateFieldCfg s e a Source #
Date format MMDDYYYY, using the appropriate delimiter.
dateFormatYYYYMMDD :: DateFieldCfg s e a Source #
Date format YYYYMMDD, using the appropriate delimiter.