From 4ce4de89a5400b0d8b9cddaa2922901a081fdaaa Mon Sep 17 00:00:00 2001
From: Joris
Date: Thu, 23 Jun 2016 23:43:23 +0200
Subject: Use a dialog to add a payment

---
 src/client/elm/LoggedIn/Home/Search/View.elm | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

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

diff --git a/src/client/elm/LoggedIn/Home/Search/View.elm b/src/client/elm/LoggedIn/Home/Search/View.elm
index f06377d..99eec95 100644
--- a/src/client/elm/LoggedIn/Home/Search/View.elm
+++ b/src/client/elm/LoggedIn/Home/Search/View.elm
@@ -19,6 +19,9 @@ import LoggedIn.Home.Model as HomeModel
 import Model.Translations exposing (getParamMessage)
 import Model.Conf exposing (Conf)
 import Model.Payment exposing (Payments)
+import Model.Translations exposing (getMessage)
+
+import LoggedIn.Home.AddPayment.View as AddPayment
 
 import LoggedIn.View.Format as Format
 import View.Plural exposing (plural)
@@ -29,6 +32,7 @@ view loggedData { search } payments =
     [ class "search" ]
     [ searchForm loggedData search
     , paymentsStat loggedData payments
+    , AddPayment.view loggedData
     ]
 
 searchForm : LoggedData -> Form String HomeModel.Search -> Html Msg
@@ -40,7 +44,9 @@ paymentsStat : LoggedData -> Payments -> Html Msg
 paymentsStat loggedData payments =
   let count = plural loggedData.translations (List.length payments) "Payment" "Payments"
       sum = paymentsSum loggedData.conf payments
-  in  text <| getParamMessage [ count, sum ] "Worth" loggedData.translations
+  in  span
+        [ class "stat" ]
+        [ text <| getParamMessage [ count, sum ] "Worth" loggedData.translations ]
 
 paymentsSum : Conf -> Payments -> String
 paymentsSum conf payments =
-- 
cgit v1.2.3