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/LoggedIn/Home/View.elm | 43 ---------------------------------------
 1 file changed, 43 deletions(-)
 delete mode 100644 src/client/LoggedIn/Home/View.elm

(limited to 'src/client/LoggedIn/Home/View.elm')

diff --git a/src/client/LoggedIn/Home/View.elm b/src/client/LoggedIn/Home/View.elm
deleted file mode 100644
index fba3f7c..0000000
--- a/src/client/LoggedIn/Home/View.elm
+++ /dev/null
@@ -1,43 +0,0 @@
-module LoggedIn.Home.View exposing
-  ( view
-  )
-
-import Date
-import Html exposing (..)
-import Html.Attributes exposing (..)
-
-import Form
-import Utils.Form as Form
-
-import LoggedData exposing (LoggedData)
-import LoggedIn.Home.Header.View as Header
-import LoggedIn.Home.Model as Home
-import LoggedIn.Home.Msg as HomeMsg
-import LoggedIn.Home.View.Paging as Paging
-import LoggedIn.Home.View.Table as Table
-import LoggedIn.Msg as LoggedInMsg
-import Model.Payment as Payment
-import Model.Frequency exposing (Frequency(..))
-import Msg exposing (Msg)
-
-view : LoggedData -> Home.Model -> Html Msg
-view loggedData home =
-  let (name, frequency) =
-        case Form.getOutput home.search of
-          Just data -> (Maybe.withDefault "" data.name, data.frequency)
-          Nothing -> ("", Punctual)
-      payments = Payment.search name frequency loggedData.payments
-      page =
-        case frequency of
-          Punctual -> home.punctualPage
-          Monthly -> home.monthlyPage
-  in  div
-        [ class "home" ]
-        [ Header.view loggedData home payments frequency
-        , Table.view loggedData home payments frequency page
-        , Paging.view
-            page
-            (List.length payments)
-            Msg.NoOp
-            (Msg.UpdateLoggedIn << LoggedInMsg.HomeMsg << HomeMsg.UpdatePage)
-        ]
-- 
cgit v1.2.3