From 9716f77d14ef43f96a1534d97bb9d336df1882be Mon Sep 17 00:00:00 2001
From: Joris
Date: Mon, 13 Jun 2016 18:21:19 +0200
Subject: Use simple-form for search and set style

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

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

diff --git a/src/client/elm/LoggedIn/Home/View/Search.elm b/src/client/elm/LoggedIn/Home/View/Search.elm
index a4f727a..62db1b2 100644
--- a/src/client/elm/LoggedIn/Home/View/Search.elm
+++ b/src/client/elm/LoggedIn/Home/View/Search.elm
@@ -5,6 +5,10 @@ module LoggedIn.Home.View.Search exposing
 import Html exposing (..)
 import Html.Attributes exposing (..)
 import Html.Events exposing (..)
+import Html.App as Html
+
+import Form exposing (Form)
+import View.Form as Form
 
 import Msg exposing (Msg)
 import LoggedIn.Msg as LoggedInMsg
@@ -16,14 +20,7 @@ import Model.Translations exposing (getMessage)
 
 paymentsSearch : LoggedData -> HomeModel.Model -> Html Msg
 paymentsSearch loggedData { search } =
-  Html.div
-    [ class "search" ]
-    [ span
-        [ class "label" ]
-        [ text (getMessage "Search" loggedData.translations) ]
-    , input
-        [ value search
-        , onInput (Msg.UpdateLoggedIn << LoggedInMsg.HomeMsg << HomeMsg.UpdateSearch)
-        ]
-        []
-    ]
+  let htmlMap = Html.map (Msg.UpdateLoggedIn << LoggedInMsg.HomeMsg << HomeMsg.SearchMsg)
+  in  Html.div
+        [ class "search" ]
+        [ Form.textInput loggedData.translations search htmlMap "searchText" ]
-- 
cgit v1.2.3