45 lines
1.0 KiB
Elm
45 lines
1.0 KiB
Elm
module Views.DayPicker exposing (..)
|
|
|
|
-- Local modules
|
|
|
|
import Models exposing (..)
|
|
import Messages exposing (Msg(..))
|
|
|
|
|
|
-- External modules
|
|
|
|
import Html exposing (Html, text, a, div)
|
|
import Html.Attributes exposing (class, classList, href, id)
|
|
import Html.Events exposing (onClick)
|
|
|
|
|
|
dayPicker : Model -> Html Msg
|
|
dayPicker model =
|
|
div [ class "row" ]
|
|
[ div [ id "schedule-days", class "btn-group" ]
|
|
(List.map (\day -> dayButton day model.activeDay) (allDaysDay :: model.days))
|
|
]
|
|
|
|
|
|
dayButton : Day -> Day -> Html Msg
|
|
dayButton day activeDay =
|
|
a
|
|
[ classList
|
|
[ ( "btn", True )
|
|
, ( "btn-default", day /= activeDay )
|
|
, ( "btn-primary", day == activeDay )
|
|
]
|
|
, onClick (MakeActiveday day)
|
|
, href
|
|
("#"
|
|
++ case day.iso of
|
|
"" ->
|
|
""
|
|
|
|
iso ->
|
|
"day/" ++ iso
|
|
)
|
|
]
|
|
[ text day.day_name
|
|
]
|