Simplify root filter implemention via button instead of input.

src/View/Filter/Root.elm

@@ -2,7 +2,7 @@ module View.Filter.Root exposing (viewAllRoots)
 
 import Config exposing (showOptionsCount, tabOrder)
 import Data exposing (Msg(..), Root(..), getRoot)
-import Html exposing (a, div, h1, input, nav, text)
+import Html exposing (a, button, div, h1, nav, text)
 import Html.Attributes exposing (href, style, tabindex, type_, value)
 import Html.Events exposing (onClick)
 import Html.Events.Extra exposing (onClickPreventDefault)
@@ -178,7 +178,7 @@ type Mode
     | Removed
 
 
-viewComponent mode value1 extraValue onClick1 =
+viewComponent mode label extraLabel onClick1 =
     let
         color =
             case mode of
@@ -222,15 +222,12 @@ viewComponent mode value1 extraValue onClick1 =
                 Removed ->
                     fonts.displaySmRegular
     in
-    input
+    button
         ([ tabindex tabOrder.filters
-         , type_ "button"
          , role "treeitem"
          , ariaSelected (mode == Selected)
-         , ariaLabel value1
-         , value (value1 ++ extraValue)
+         , ariaLabel label
          , onClick onClick1
-         , style "white-space" "normal"
          , style "cursor" "pointer"
          , style "padding" (sizes.size1_5 ++ " " ++ sizes.size3)
          , style "color" color
@@ -239,7 +236,7 @@ viewComponent mode value1 extraValue onClick1 =
          ]
             ++ font
         )
-        []
+        [ text (label ++ extraLabel) ]
 
 
 isPendingSet root label =