mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Ensure weekday is updated

Browse source 
This ensures us that our view is consistent within ~1 minute of reality.
This commit is contained in:
William Carroll 2020-10-10 17:33:05 +01:00
parent 7d425de48d
commit 487232d1aa
2 changed files with 8 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
scratch/habit-screens/client/src/Main.elm
View file

@ -4,11 +4,13 @@ import Browser
import Habits import Habits
import Html exposing (..) import Html exposing (..)
import State import State
import Time
subscriptions : State.Model -> Sub State.Msg subscriptions : State.Model -> Sub State.Msg
subscriptions model = subscriptions model =
Sub.none -- once per minute
Time.every (1000 * 60) (\_ -> State.MaybeAdjustWeekday)
view : State.Model -> Html State.Msg view : State.Model -> Html State.Msg

6
scratch/habit-screens/client/src/State.elm
View file

@ -11,6 +11,7 @@ type Msg
| SetView View | SetView View
| ReceiveDate Date.Date | ReceiveDate Date.Date
| ToggleHabit Int | ToggleHabit Int
| MaybeAdjustWeekday
type View type View
@ -65,7 +66,7 @@ update msg ({ completed } as model) =
) )
ReceiveDate x -> ReceiveDate x ->
( { model | dayOfWeek = Just Sun }, Cmd.none ) ( { model | dayOfWeek = Just (Date.weekday x) }, Cmd.none )
ToggleHabit i -> ToggleHabit i ->
( { model ( { model
@ -78,3 +79,6 @@ update msg ({ completed } as model) =
} }
, Cmd.none , Cmd.none
) )
MaybeAdjustWeekday ->
( model, Date.today |> Task.perform ReceiveDate )