Add a payment from the UI, it needs polishing however

1 files changed, 35 insertions, 0 deletions

diff --git a/src/client/View/Header.elm b/src/client/View/Header.elm
new file mode 100644
index 0000000..788a473
--- /dev/null
+++ b/src/client/View/Header.elm
@@ -0,0 +1,35 @@
+module View.Header
+  ( renderHeader
+  ) where
+
+import Html exposing (..)
+import Html.Attributes exposing (..)
+import Html.Events exposing (..)
+
+import ServerCommunication as SC
+import ServerCommunication exposing (serverCommunications)
+
+import Model exposing (Model)
+import Model.View exposing (..)
+
+import View.Icon exposing (renderIcon)
+
+renderHeader : Model -> Html
+renderHeader model =
+  header
+    []
+    [ h1
+        []
+        [ text "Shared Cost" ]
+    , case model.view of
+        LoadingView ->
+          text ""
+        SignInView _ ->
+          text ""
+        PaymentView _ ->
+          button
+            [ class "signOut"
+            , onClick serverCommunications.address SC.SignOut
+            ]
+            [ renderIcon "power-off" ]
+    ]