website/habit-screens/src/Main.elm


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29

module Main exposing (main)

import Browser
import Habits
import Html exposing (..)
import State
import Time


subscriptions : State.Model -> Sub State.Msg
subscriptions model =
    -- once per minute
    Time.every (1000 * 60) (\_ -> State.MaybeAdjustWeekday)


view : State.Model -> Html State.Msg
view model =
    case model.view of
        State.Habits ->
            Habits.render model


main =
    Browser.element
        { init = \() -> State.init
        , subscriptions = subscriptions
        , update = State.update
        , view = view
        }