diff options
| author | Joris | 2016-06-25 22:51:12 +0200 |
|---|---|---|
| committer | Joris | 2016-06-25 22:51:12 +0200 |
| commit | 0886d5916ae28e2a0d1d5c70fb81842a6d0dc70f (patch) | |
| tree | 8016750c80cac177d2bf315b2f59605f3a8f80d3 /src/client/elm/LoggedIn/Home/Header | |
| parent | 70720548c9af024dbb6080638ac8e5470c2213eb (diff) | |
Add a remove icon to empty a input text field
Diffstat (limited to 'src/client/elm/LoggedIn/Home/Header')
| -rw-r--r-- | src/client/elm/LoggedIn/Home/Header/View.elm | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/src/client/elm/LoggedIn/Home/Header/View.elm b/src/client/elm/LoggedIn/Home/Header/View.elm index f9fbb6a..67ff1f4 100644 --- a/src/client/elm/LoggedIn/Home/Header/View.elm +++ b/src/client/elm/LoggedIn/Home/Header/View.elm @@ -11,6 +11,7 @@ import Dict import Form exposing (Form) import View.Form as Form +import View.Events exposing (onSubmitPrevDefault) import Msg exposing (Msg) import LoggedIn.Msg as LoggedInMsg @@ -50,14 +51,14 @@ searchLine loggedData search frequency = searchForm : LoggedData -> Form String Home.Search -> Html Msg searchForm loggedData search = - let htmlMap = Html.map (Msg.UpdateLoggedIn << LoggedInMsg.HomeMsg << HomeMsg.SearchMsg) - in Html.form - [] - [ Form.textInput loggedData.translations search htmlMap "search" "name" - , if List.isEmpty (Payment.monthly loggedData.payments) - then text "" - else Form.radioInputs loggedData.translations search htmlMap "search" "frequency" [ toString Punctual, toString Monthly ] - ] + Html.map (Msg.UpdateLoggedIn << LoggedInMsg.HomeMsg << HomeMsg.SearchMsg) <| + Html.form + [ onSubmitPrevDefault Form.NoOp ] + [ Form.textInput loggedData.translations search "search" "name" + , if List.isEmpty (Payment.monthly loggedData.payments) + then text "" + else Form.radioInputs loggedData.translations search "search" "frequency" [ toString Punctual, toString Monthly ] + ] infos : LoggedData -> Payments -> Html Msg infos loggedData payments = |