aboutsummaryrefslogtreecommitdiff
path: root/src/client/elm/View
diff options
context:
space:
mode:
authorJoris2015-12-30 17:01:56 +0100
committerJoris2015-12-30 17:01:56 +0100
commit5bfd349bedb9c395cbeb38bb888e379ba36d5d35 (patch)
tree9af91491aa693967bf66e48c385dbde2f64e3ca4 /src/client/elm/View
parent73a2f72f07ca2a8c8757bcfd9e8ff37561dcb332 (diff)
Minor design modifications
Diffstat (limited to 'src/client/elm/View')
-rw-r--r--src/client/elm/View/Header.elm12
-rw-r--r--src/client/elm/View/SignIn.elm10
2 files changed, 12 insertions, 10 deletions
diff --git a/src/client/elm/View/Header.elm b/src/client/elm/View/Header.elm
index 3a6241b..94bdb01 100644
--- a/src/client/elm/View/Header.elm
+++ b/src/client/elm/View/Header.elm
@@ -22,18 +22,12 @@ renderHeader model =
[]
[ text (getMessage "SharedCost" model.translations) ]
, case model.view of
- LoadingView ->
- text ""
- SignInView _ ->
- button
- [ class "icon"
- , onClick operations.address Persona.SignIn
- ]
- [ renderIcon "sign-in" ]
LoggedInView _ ->
button
[ class "icon"
, onClick operations.address Persona.SignOut
]
- [ renderIcon "sign-out" ]
+ [ renderIcon "power-off" ]
+ _ ->
+ text ""
]
diff --git a/src/client/elm/View/SignIn.elm b/src/client/elm/View/SignIn.elm
index 8fcac16..d35d655 100644
--- a/src/client/elm/View/SignIn.elm
+++ b/src/client/elm/View/SignIn.elm
@@ -14,17 +14,25 @@ import Update.SignIn exposing (..)
import ServerCommunication as SC
import ServerCommunication exposing (serverCommunications)
+import Persona exposing (operations)
+
import Model exposing (Model)
import Model.View.SignInView exposing (..)
import Model.Translations exposing (getMessage)
import View.Events exposing (onSubmitPrevDefault)
+import View.Icon exposing (renderIcon)
renderSignIn : Model -> SignInView -> Html
renderSignIn model signInView =
div
[ class "signIn" ]
- [ div
+ [ button
+ [ onClick operations.address Persona.SignIn ]
+ [ span [] [ text (getMessage "SignIn" model.translations) ]
+ , renderIcon "plug"
+ ]
+ , div
[ class "result" ]
[ signInResult model signInView ]
]