module Habits exposing (render) import Browser import Html exposing (..) import Html.Attributes exposing (..) import Html.Events exposing (..) import Set import State import Time exposing (Weekday(..)) morning : List State.Habit morning = [ "Make bed" , "Brush teeth" , "Shower" , "Do push-ups" , "Meditate" ] evening : List State.Habit evening = [ "Read (30 minutes)" , "Record in State.Habit Journal" ] monday : List State.Habit monday = [ "Bikram Yoga @ 17:00 (90 min)" ] tuesday : List State.Habit tuesday = [ "Bikram Yoga @ 18:00 (90 min)" ] wednesday : List State.Habit wednesday = [ "Shave" , "Bikram Yoga @ 17:00 (90 min)" ] thursday : List State.Habit thursday = [] friday : List State.Habit friday = [ "Bikram Yoga @ 17:00 (60 min)" , "Take-out trash" , "Shop for groceries" ] saturday : List State.Habit saturday = [ "Warm Yin Yoga @ 15:00 (60 min)" ] sunday : List State.Habit sunday = [ "Shampoo" , "Shave" , "Trim nails" , "Combine trash cans" , "Mop tile and wood floors" , "Laundry" , "Vacuum bedroom" , "Dust surfaces" , "Clean mirrors" , "Clean desk" ] weekdayName : Weekday -> String weekdayName weekday = case weekday of Mon -> "Monday" Tue -> "Tuesday" Wed -> "Wednesday" Thu -> "Thursday" Fri -> "Friday" Sat -> "Saturday" Sun -> "Sunday" habitsFor : Weekday -> List State.Habit habitsFor weekday = case weekday of Mon -> monday Tue -> tuesday Wed -> wednesday Thu -> thursday Fri -> friday Sat -> saturday Sun -> sunday tailwind : List ( String, Bool ) -> Attribute msg tailwind classes = classes |> List.filter (\( k, v ) -> v) |> List.map (\( k, v ) -> k) |> String.join " " |> class render : State.Model -> Html State.Msg render { dayOfWeek, completed } = case dayOfWeek of Nothing -> p [] [ text "Unable to display habits because we do not know what day of the week it is." ] Just weekday -> div [ class "font-mono py-6 px-6" ] [ h1 [ class "text-2xl text-center" ] [ text (weekdayName weekday) ] , ul [] (weekday |> habitsFor |> List.indexedMap (\i x -> li [ class "text-xl" ] [ button [ class "py-5 px-6" , tailwind [ ( "line-through" , Set.member i completed ) ] , onClick (State.ToggleHabit i) ] [ text x ] ] ) ) ]