Responsive header

1 files changed, 37 insertions, 36 deletions

diff --git a/src/client/elm/View/Header.elm b/src/client/elm/View/Header.elm
index 2edde27..74fc2cc 100644
--- a/src/client/elm/View/Header.elm
+++ b/src/client/elm/View/Header.elm
@@ -23,39 +23,40 @@ import View.Click exposing (clickTo)
 
 renderHeader : Address Action -> Model -> Html
 renderHeader address model =
-  let item = specialItem True ""
-      specialItem showCurrent additionalClasses route name =
-        a
-          ( [ classList
-              [ ("item", True)
-              , (additionalClasses, True)
-              , ("current", showCurrent && TransitRouter.getRoute model == route)
-              ]
-            ] ++ clickTo route
-          )
-          [ text (getMessage name model.translations)
-          ]
-  in
-      header
-        []
-        ( case model.view of
-            LoggedInView { me, users } ->
-              [ specialItem True "title" Home "SharedCost"
-              , item Income "Income"
-              , item Stat "Statistics"
-              , button
-                  [ class "signOut item"
-                  , onClick address SignOut
-                  ]
-                  [ renderIcon "power-off" ]
-              , div
-                  [ class "name" ]
-                  [ Dict.get me users
-                      |> Maybe.map .name
-                      |> Maybe.withDefault ""
-                      |> text
-                  ]
-              ]
-            _ ->
-              [specialItem False "title" Home "SharedCost"]
-        )
+  header
+    []
+    (  [ div [ class "title" ] [ text (getMessage "SharedCost" model.translations) ] ]
+    ++ let item route name =
+             a
+               ( [ classList
+                     [ ("item", True)
+                     , ("current", TransitRouter.getRoute model == route)
+                     ]
+                 ] ++ clickTo route
+               )
+               [ text (getMessage name model.translations)
+               ]
+       in  case model.view of
+             LoggedInView { me, users } ->
+               [ item Home "PaymentsTitle"
+               , item Income "Income"
+               , item Stat "Statistics"
+               , div
+                   [ class "nameSignOut" ]
+                   [ div
+                       [ class "name" ]
+                       [ Dict.get me users
+                           |> Maybe.map .name
+                           |> Maybe.withDefault ""
+                           |> text
+                       ]
+                   , button
+                       [ class "signOut item"
+                       , onClick address SignOut
+                       ]
+                       [ renderIcon "power-off" ]
+                   ]
+               ]
+             _ ->
+               []
+    )