src/client/elm/View/Header.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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48

module View.Header
  ( renderHeader
  ) where

import Signal exposing (Address)
import Dict

import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)

import Model exposing (Model)
import Model.Translations exposing (getMessage)
import Action exposing (..)
import Model.View exposing (..)

import View.Icon exposing (renderIcon)

renderHeader : Address Action -> Model -> Html
renderHeader address model =
  header
    []
    [ button
        [ class "title" ]
        [ h1
            []
            [ text (getMessage "SharedCost" model.translations) ]
        ]
    , case model.view of
        LoggedInView { users, account } ->
          div
            [ class "signedPanel" ]
            [ button
                [ class "user" ]
                [ Dict.get account.me users
                    |> Maybe.map .name
                    |> Maybe.withDefault ""
                    |> text
                ]
            , button
                [ class "icon"
                , onClick address SignOut
                ]
                [ renderIcon "power-off" ]
            ]
        _ ->
          text ""
    ]