Refactor FixedDropdown

modules/webapp/src/main/elm/Page/Upload/Data.elm

@@ -9,7 +9,6 @@ module Page.Upload.Data exposing
     , isIdle
     , isLoading
     , isSuccessAll
-    , mkLanguageItem
     , uploadAllTracker
     )
 
@@ -38,11 +37,6 @@ type alias Model =
     }
 
 
-mkLanguageItem : Language -> Comp.FixedDropdown.Item Language
-mkLanguageItem lang =
-    Comp.FixedDropdown.Item lang (Data.Language.toName lang) Nothing
-
-
 emptyModel : Model
 emptyModel =
     { incoming = True
@@ -54,8 +48,7 @@ emptyModel =
     , dropzone = Comp.Dropzone.init []
     , skipDuplicates = True
     , languageModel =
-        Comp.FixedDropdown.init
-            (List.map mkLanguageItem Data.Language.all)
+        Comp.FixedDropdown.init Data.Language.all
     , language = Nothing
     }
 

modules/webapp/src/main/elm/Page/Upload/View2.elm

@@ -5,6 +5,7 @@ import Comp.FixedDropdown
 import Comp.Progress
 import Data.DropdownStyle as DS
 import Data.Flags exposing (Flags)
+import Data.Language
 import Data.UiSettings exposing (UiSettings)
 import Dict
 import File exposing (File)
@@ -71,6 +72,13 @@ viewContent texts mid _ _ model =
 
 renderForm : Texts -> Model -> Html Msg
 renderForm texts model =
+    let
+        languageCfg =
+            { display = Data.Language.toName
+            , icon = \_ -> Nothing
+            , style = DS.mainStyleWith "w-40"
+            }
+    in
     div [ class "row" ]
         [ Html.form [ action "#" ]
             [ div [ class "flex flex-col mb-3" ]
@@ -128,9 +136,9 @@ renderForm texts model =
                     [ span [ class "mr-2" ] [ text (texts.language ++ ":") ]
                     , Html.map LanguageMsg
                         (Comp.FixedDropdown.viewStyled2
-                            (DS.mainStyleWith "w-40")
+                            languageCfg
                             False
-                            (Maybe.map mkLanguageItem model.language)
+                            model.language
                             model.languageModel
                         )
                     ]