makes filter search case insensitive

src/Chest.elm

@@ -111,7 +111,7 @@ view : Chest -> Loot -> Html Msg
 view model loot =
     let
         filterLoot txt ls =
-            List.filter (\i -> String.contains txt i.name) ls
+            List.filter (\i -> String.contains (String.toLower txt) (String.toLower i.name)) ls
     in
     case model of
         View filterText renderItem ->

src/Table.elm

@@ -16,8 +16,7 @@ type alias ItemRenderer a msg =
 view : RowRenderer a msg -> List a -> Html msg
 view rowRenderer content =
     table [ class "table is-fullwidth" ]
-        [ thead [ class "table-header" ]
-            [ th [] [ text "Nom" ] ]
+        [ thead [] [ th [] [ text "Nom" ] ]
         , tbody [] <|
             List.map
                 rowRenderer