From 898e7ed11ab0958fcdaf65b99b33f7b04787630a Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 24 Sep 2017 22:14:48 +0200
Subject: Bootstrap with GHCJS and reflex:

- setup login and logout,
- first draft of payment view.
---
 src/client/View/Header.elm | 60 ----------------------------------------------
 1 file changed, 60 deletions(-)
 delete mode 100644 src/client/View/Header.elm

(limited to 'src/client/View/Header.elm')

diff --git a/src/client/View/Header.elm b/src/client/View/Header.elm
deleted file mode 100644
index 12fb87c..0000000
--- a/src/client/View/Header.elm
+++ /dev/null
@@ -1,60 +0,0 @@
-module View.Header exposing
-  ( view
-  )
-
-import Dict
-
-import FontAwesome
-import View.Color as Color
-
-import Page exposing (..)
-
-import Html exposing (..)
-import Html.Attributes exposing (..)
-import Html.Events exposing (..)
-
-import Model exposing (Model)
-import Model.Translations exposing (getMessage)
-import Msg exposing (..)
-import Model.View exposing (..)
-
-view : Model -> Html Msg
-view model =
-  header
-    []
-    (  [ div [ class "title" ] [ text (getMessage model.translations "SharedCost") ] ]
-    ++ let item page name =
-             a
-               [ href (Page.toHash page)
-               , classList
-                   [ ("item", True)
-                   , ("current", model.page == page)
-                   ]
-               ]
-               [ text (getMessage model.translations name)
-               ]
-       in  case model.view of
-             LoggedInView { me, users } ->
-               [ item Home "PaymentsTitle"
-               , item Income "Income"
-               , item Categories "Categories"
-               , item Statistics "Statistics"
-               , div
-                   [ class "nameSignOut" ]
-                   [ div
-                       [ class "name" ]
-                       [ Dict.get me users
-                           |> Maybe.map .name
-                           |> Maybe.withDefault ""
-                           |> text
-                       ]
-                   , button
-                       [ class "signOut item"
-                       , onClick SignOut
-                       ]
-                       [ FontAwesome.power_off Color.white 30 ]
-                   ]
-               ]
-             _ ->
-               []
-    )
-- 
cgit v1.2.3