diff options
| -rw-r--r-- | scratch/habit-screens/client/src/Habits.elm | 46 | ||||
| -rw-r--r-- | scratch/habit-screens/client/src/State.elm | 4 |
2 files changed, 45 insertions, 5 deletions
diff --git a/scratch/habit-screens/client/src/Habits.elm b/scratch/habit-screens/client/src/Habits.elm index 92f1455dac38..7ec6c051b3c1 100644 --- a/scratch/habit-screens/client/src/Habits.elm +++ b/scratch/habit-screens/client/src/Habits.elm @@ -226,6 +226,10 @@ render { today, visibleDayOfWeek, completed } = p [] [ text "Unable to display habits because we do not know what day of the week it is." ] Just weekday -> + let + habits = + habitsFor weekday + in div [ Utils.class [ Always "container mx-auto py-6 px-6" @@ -265,15 +269,14 @@ render { today, visibleDayOfWeek, completed } = p [ class "text-center" ] [ let t = - timeRemaining completed (habitsFor weekday) + timeRemaining completed habits in if t == 0 then text "Nothing to do!" else text - ((weekday - |> habitsFor + ((habits |> timeRemaining completed |> String.fromInt ) @@ -283,9 +286,42 @@ render { today, visibleDayOfWeek, completed } = else text "" + , if today == visibleDayOfWeek then + div [] + [ UI.button + [ onClick + (if Set.size completed == 0 then + State.DoNothing + + else + State.ClearAll + ) + , Utils.class + [ Always "ml-10" + , If (Set.size completed == 0) + "text-gray-500 cursor-not-allowed" + "text-red-500 underline cursor-pointer" + ] + ] + [ let + numCompleted = + habits + |> List.indexedMap (\i _ -> i) + |> List.filter (\i -> Set.member i completed) + |> List.length + in + if numCompleted == 0 then + text "Clear" + + else + text ("Clear (" ++ String.fromInt numCompleted ++ ")") + ] + ] + + else + text "" , ul [] - (weekday - |> habitsFor + (habits |> List.indexedMap (\i { label, minutesDuration } -> let diff --git a/scratch/habit-screens/client/src/State.elm b/scratch/habit-screens/client/src/State.elm index c5cdadf3afa0..5fde06c8000c 100644 --- a/scratch/habit-screens/client/src/State.elm +++ b/scratch/habit-screens/client/src/State.elm @@ -15,6 +15,7 @@ type Msg | ViewToday | ViewPrevious | ViewNext + | ClearAll type View @@ -165,3 +166,6 @@ update msg ({ today, visibleDayOfWeek, completed } as model) = } , Cmd.none ) + + ClearAll -> + ( { model | completed = Set.empty }, Cmd.none ) |