Use simple-form for search and set style

1 files changed, 8 insertions, 11 deletions

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" ]