From 9dfa7a7e2c6fac564a456b11623c04d0b26fbce5 Mon Sep 17 00:00:00 2001 From: Joris Date: Sat, 4 Jun 2016 10:04:05 +0200 Subject: Add search on payments and use inline font awesome from elm --- src/client/elm/LoggedIn/Home/View/Monthly.elm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'src/client/elm/LoggedIn/Home/View/Monthly.elm') diff --git a/src/client/elm/LoggedIn/Home/View/Monthly.elm b/src/client/elm/LoggedIn/Home/View/Monthly.elm index 26dbe98..398059c 100644 --- a/src/client/elm/LoggedIn/Home/View/Monthly.elm +++ b/src/client/elm/LoggedIn/Home/View/Monthly.elm @@ -3,6 +3,9 @@ module LoggedIn.Home.View.Monthly exposing ) import String +import Color + +import FontAwesome import Html exposing (..) import Html.Attributes exposing (..) @@ -21,8 +24,6 @@ import Model.Payment as Payment exposing (Payments, Payment, monthly) import Model.Translations exposing (getMessage, getParamMessage) import LoggedData exposing (LoggedData) -import View.Icon exposing (renderIcon) - view : LoggedData -> HomeModel.Model -> Html Msg view loggedData homeModel = let monthlyPayments = Payment.monthly loggedData.me loggedData.payments @@ -85,6 +86,8 @@ paymentLine loggedData homeModel payment = [ class "cell delete" , onClick (Msg.UpdateLoggedIn <| LoggedInMsg.DeletePayment payment.id) ] - [ button [] [ renderIcon "times" ] + [ button + [] + [ FontAwesome.times Color.white 20 ] ] ] -- cgit v1.2.3