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/AddPayment/View.elm | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'src/client/elm/LoggedIn/Home/AddPayment') diff --git a/src/client/elm/LoggedIn/Home/AddPayment/View.elm b/src/client/elm/LoggedIn/Home/AddPayment/View.elm index d97f3ca..b13097b 100644 --- a/src/client/elm/LoggedIn/Home/AddPayment/View.elm +++ b/src/client/elm/LoggedIn/Home/AddPayment/View.elm @@ -4,6 +4,9 @@ module LoggedIn.Home.AddPayment.View exposing import Result exposing (..) import Json.Decode as Json +import Color + +import FontAwesome import Html exposing (..) import Html.Attributes exposing (..) @@ -24,7 +27,6 @@ import Model.Translations exposing (getMessage) import LoggedData exposing (LoggedData) import View.Events exposing (onSubmitPrevDefault) -import View.Icon exposing (..) import Utils.Maybe exposing (isJust) import Utils.Either exposing (toMaybeError) @@ -52,7 +54,9 @@ view loggedData homeModel = ] ] [ text (getMessage "Add" loggedData.translations) - , if homeModel.add.waitingServer then renderSpinIcon else text "" + , if homeModel.add.waitingServer + then FontAwesome.spinner Color.white 20 + else text "" ] ] @@ -73,7 +77,7 @@ addPaymentName loggedData addPayment = [] , label [ for "nameInput" ] - [ renderIcon "shopping-cart" ] + [ FontAwesome.shopping_cart Color.white 20 ] , case addPayment.nameError of Just error -> div [ class "errorMessage" ] [ text error ] -- cgit v1.2.3