From ba33dfef23d070bfff92d6322808507c1b7d2814 Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 29 Jun 2016 23:33:40 +0200
Subject: Responsive home page

---
 src/client/elm/LoggedIn/Home/Header/View.elm | 36 ++++++++++++++--------------
 src/client/elm/LoggedIn/Home/View/Paging.elm |  8 +++----
 src/client/elm/LoggedIn/Home/View/Table.elm  |  2 +-
 3 files changed, 23 insertions(+), 23 deletions(-)

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

diff --git a/src/client/elm/LoggedIn/Home/Header/View.elm b/src/client/elm/LoggedIn/Home/Header/View.elm
index 6ddd846..95cef3c 100644
--- a/src/client/elm/LoggedIn/Home/Header/View.elm
+++ b/src/client/elm/LoggedIn/Home/Header/View.elm
@@ -36,25 +36,23 @@ import Utils.Tuple as Tuple
 
 view : LoggedData -> Home.Model -> Payments -> Frequency -> Html Msg
 view loggedData { search } payments frequency =
-  Html.div
-    [ class "header" ]
-    [ ExceedingPayers.view loggedData
-    , searchLine loggedData search frequency
-    , infos loggedData payments
-    ]
-
-searchLine : LoggedData -> Form String Home.Search -> Frequency -> Html Msg
-searchLine loggedData search frequency =
   let currentDate = Date.fromTime loggedData.currentTime
   in  Html.div
-        [ class "searchLine" ]
-        [ searchForm loggedData search
-        , AddPaymentButton.view
-            loggedData
-            (DialogModel.addPaymentInitial loggedData.translations currentDate frequency)
-            "AddPayment"
-            (text (getMessage "AddPayment" loggedData.translations))
-            Nothing
+        [ class "header" ]
+        [ div
+            [ class "payerAndAdd" ]
+            [ ExceedingPayers.view loggedData
+            , AddPaymentButton.view
+                loggedData
+                (DialogModel.addPaymentInitial loggedData.translations currentDate frequency)
+                "AddPayment"
+                (text (getMessage "AddPayment" loggedData.translations))
+                Nothing
+            ]
+        , Html.div
+            [ class "searchLine" ]
+            [ searchForm loggedData search ]
+        , infos loggedData payments
         ]
 
 searchForm : LoggedData -> Form String Home.Search -> Html Msg
@@ -78,7 +76,9 @@ infos loggedData payments =
               sum = paymentsSum loggedData.conf payments
           in  div
                 [ class "infos" ]
-                [ text <| getParamMessage [ count, sum ] "Worth" loggedData.translations
+                [ span
+                    [ class "total" ]
+                    [ text <| getParamMessage [ count, sum ] "Worth" loggedData.translations ]
                 , span
                     [ class "partition" ]
                     [ text <| paymentsPartition loggedData payments ]
diff --git a/src/client/elm/LoggedIn/Home/View/Paging.elm b/src/client/elm/LoggedIn/Home/View/Paging.elm
index 90ae522..5bcb827 100644
--- a/src/client/elm/LoggedIn/Home/View/Paging.elm
+++ b/src/client/elm/LoggedIn/Home/View/Paging.elm
@@ -60,7 +60,7 @@ firstPage homeModel =
         ]
     , onClick (Msg.UpdateLoggedIn << LoggedInMsg.HomeMsg << HomeMsg.UpdatePage <| 1)
     ]
-    [ FontAwesome.fast_backward grey 15 ]
+    [ FontAwesome.fast_backward grey 13 ]
 
 previousPage : HomeModel.Model -> Html Msg
 previousPage homeModel =
@@ -71,7 +71,7 @@ previousPage homeModel =
           then (Msg.UpdateLoggedIn << LoggedInMsg.HomeMsg << HomeMsg.UpdatePage <| homeModel.currentPage - 1)
           else Msg.NoOp
     ]
-    [ FontAwesome.backward grey 15 ]
+    [ FontAwesome.backward grey 13 ]
 
 nextPage : HomeModel.Model -> Int -> Html Msg
 nextPage homeModel maxPage =
@@ -82,7 +82,7 @@ nextPage homeModel maxPage =
           then (Msg.UpdateLoggedIn << LoggedInMsg.HomeMsg << HomeMsg.UpdatePage <| homeModel.currentPage + 1)
           else Msg.NoOp
     ]
-    [ FontAwesome.forward grey 15 ]
+    [ FontAwesome.forward grey 13 ]
 
 lastPage : HomeModel.Model -> Int -> Html Msg
 lastPage homeModel maxPage =
@@ -90,7 +90,7 @@ lastPage homeModel maxPage =
     [ class "page"
     , onClick (Msg.UpdateLoggedIn << LoggedInMsg.HomeMsg << HomeMsg.UpdatePage <| maxPage)
     ]
-    [ FontAwesome.fast_forward grey 15 ]
+    [ FontAwesome.fast_forward grey 13 ]
 
 paymentsPage : HomeModel.Model -> Int -> Html Msg
 paymentsPage homeModel page =
diff --git a/src/client/elm/LoggedIn/Home/View/Table.elm b/src/client/elm/LoggedIn/Home/View/Table.elm
index 05c9e06..429632c 100644
--- a/src/client/elm/LoggedIn/Home/View/Table.elm
+++ b/src/client/elm/LoggedIn/Home/View/Table.elm
@@ -131,7 +131,7 @@ paymentLine loggedData homeModel frequency payment =
               text ""
             else
               let dialogConfig =
-                    { className = "paymentDialog"
+                    { className = "deletePaymentDialog"
                     , title = getMessage "ConfirmPaymentDelete" loggedData.translations
                     , body = always <| text ""
                     , confirm = getMessage "Confirm" loggedData.translations
-- 
cgit v1.2.3