Elm Time Range
Representing time ranges in an elegant manner.
Usage
To create a time range, you can simply add TimeRange to your imports and
use the fromStartAndEnd function to construct your range.
import TimeRange exposing (TimeRange)
-- start time and end time should be of type `Time`
let
timeRange = TimeRange.fromStartAndEnd startTime endTimeOnce a TimeRange is created, you can use the start and end methods
to get the times that are contained within the range.
getTimeRangeAsString : TimeRange -> String
getTimeRangeAsString timeRange =
"start: "
++ TimeRange.start timeRange
++ "end: "
++ TimeRange.end timeRangeCheck out the Module Docs for utility functions that are commonly used with time ranges!
Example
module Main exposing (..)
import Html exposing (Html, div, text)
import TimeRange exposing (TimeRange)
import Time exposing (Time)
import Date
main : Html Never
main =
let
timeRange =
TimeRange.fromStartAndEnd
(toTime
"04/17/2017 05:00 PM UTC"
)
(toTime
"04/17/2017 07:00 PM UTC"
)
in
div []
[ text (getTimeRangeSummary timeRange)
]
getTimeRangeSummary : TimeRange -> String
getTimeRangeSummary timeRange =
let
start =
timeRange
|> TimeRange.start
|> Date.fromTime
|> toString
end =
timeRange
|> TimeRange.end
|> Date.fromTime
|> toString
durationInMinutes =
timeRange
|> TimeRange.difference
|> Time.inMinutes
|> toString
in
"The event starts at "
++ start
++ " and goes until "
++ end
++ " and lasts "
++ durationInMinutes
++ " minutes long"
toTime : String -> Time
toTime dateString =
dateString
|> Date.fromString
|> Result.withDefault (Date.fromTime 0)
|> Date.toTime
Contributing
I'm happy to recieve any feedback and ideas for additional features. Any input and pull requests are welcome and encouraged! If you'd like to help or have any ideas, get in touch with me at @ryanolsonx on Twitter or @ryanolsonx on the Elm Slack.
License
Copyright (c) 2017 Ryan Olson
GNU GENERAL PUBLIC LICENSE Version 3, 29 June 2007
See LICENSE for more information.
