Responsive home page

1 files changed, 18 insertions, 18 deletions

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 ]