Add search on payments and use inline font awesome from elm

2 files changed, 4 insertions, 24 deletions

diff --git a/src/client/elm/View/Header.elm b/src/client/elm/View/Header.elm
index 5597429..5f38c31 100644
--- a/src/client/elm/View/Header.elm
+++ b/src/client/elm/View/Header.elm
@@ -3,6 +3,9 @@ module View.Header exposing
   )
 
 import Dict
+import Color
+
+import FontAwesome
 
 import Page exposing (..)
 
@@ -15,8 +18,6 @@ import Model.Translations exposing (getMessage)
 import Msg exposing (..)
 import Model.View exposing (..)
 
-import View.Icon exposing (renderIcon)
-
 renderHeader : Model -> Html Msg
 renderHeader model =
   header
@@ -50,7 +51,7 @@ renderHeader model =
                        [ class "signOut item"
                        , onClick SignOut
                        ]
-                       [ renderIcon "power-off" ]
+                       [ FontAwesome.power_off Color.white 30 ]
                    ]
                ]
              _ ->
diff --git a/src/client/elm/View/Icon.elm b/src/client/elm/View/Icon.elm
deleted file mode 100644
index 8a5e383..0000000
--- a/src/client/elm/View/Icon.elm
+++ /dev/null
@@ -1,21 +0,0 @@
-module View.Icon exposing
-  ( renderIcon
-  , renderSpinIcon
-  )
-
-import Html exposing (..)
-import Html.Attributes exposing (..)
-
-import Msg exposing (Msg)
-
-renderIcon : String -> Html Msg
-renderIcon iconClass =
-  i
-    [ class <| "fa fa-fw fa-" ++ iconClass ]
-    []
-
-renderSpinIcon : Html Msg
-renderSpinIcon =
-  i
-    [ class <| "fa fa-fw fa-spin fa-spinner" ]
-    []