all repos

onasty @ 58c535a5aae5dee03a5cbcb2efc82e1426dcea76

a one-time notes service

onasty/web/src/Pages/Home_.elm (view raw)

Smirnov Oleksandr Smirnov Oleksandr
ss2316544@gmail.com
web: add some styles (#136)..., 11 months ago
1
module Pages.Home_ exposing (Model, Msg, page)
2
3
import Effect exposing (Effect)
4
import Html
5
import Html.Events
6
import Layouts
7
import Page exposing (Page)
8
import Route exposing (Route)
9
import Shared
10
import View exposing (View)
11
12
13
page : Shared.Model -> Route () -> Page Model Msg
14
page shared _ =
15
    Page.new
16
        { init = init shared
17
        , update = update
18
        , subscriptions = subscriptions
19
        , view = view shared
20
        }
21
        |> Page.withLayout Layouts.Header
22
23
24
25
-- INIT
26
27
28
type alias Model =
29
    {}
30
31
32
init : Shared.Model -> () -> ( Model, Effect Msg )
33
init _ () =
34
    ( {}, Effect.none )
35
36
37
38
-- UPDATE
39
40
41
type Msg
42
    = NoOp
43
44
45
update : Msg -> Model -> ( Model, Effect Msg )
46
update msg model =
47
    case msg of
48
        NoOp ->
49
            ( model, Effect.none )
50
51
52
53
-- SUBSCRIPTIONS
54
55
56
subscriptions : Model -> Sub Msg
57
subscriptions _ =
58
    Sub.none
59
60
61
62
-- VIEW
63
64
65
view : Shared.Model -> Model -> View Msg
66
view _ _ =
67
    { title = "Homepage"
68
    , body = [ Html.p [ Html.Events.onClick NoOp ] [ Html.text "Hello, world!" ] ]
69
    }