Allow to search in source names in webui

modules/webapp/src/main/elm/Data/Icons.elm

@@ -29,6 +29,8 @@ module Data.Icons exposing
     , personIcon
     , search
     , searchIcon
+    , source
+    , sourceIcon
     , tag
     , tagIcon
     , tags
@@ -40,6 +42,16 @@ import Html exposing (Html, i)
 import Html.Attributes exposing (class)
 
 
+source : String
+source =
+    "upload icon"
+
+
+sourceIcon : String -> Html msg
+sourceIcon classes =
+    i [ class (source ++ " " ++ classes) ] []
+
+
 customFieldType : CustomFieldType -> String
 customFieldType ftype =
     case ftype of