Externalize strings for document language

modules/webapp/src/main/elm/Messages/CollectiveSettingsFormComp.elm

@@ -1,6 +1,8 @@
 module Messages.CollectiveSettingsFormComp exposing (..)
 
+import Data.Language exposing (Language)
 import Messages.ClassifierSettingsFormComp
+import Messages.LanguageData
 
 
 type alias Texts =
@@ -17,6 +19,7 @@ type alias Texts =
     , reindexAllDataHelp : String
     , autoTagging : String
     , startNow : String
+    , languageLabel : Language -> String
     }
 
 
@@ -39,4 +42,5 @@ gb =
             ++ "You must type OK before clicking the button to avoid accidental re-indexing."
     , autoTagging = "Auto-Tagging"
     , startNow = "Start now"
+    , languageLabel = Messages.LanguageData.gb
     }

modules/webapp/src/main/elm/Messages/LanguageData.elm

@@ -0,0 +1,52 @@
+module Messages.LanguageData exposing (..)
+
+import Data.Language exposing (Language(..))
+
+
+gb : Language -> String
+gb lang =
+    case lang of
+        German ->
+            "German"
+
+        English ->
+            "English"
+
+        French ->
+            "French"
+
+        Italian ->
+            "Italian"
+
+        Spanish ->
+            "Spanish"
+
+        Portuguese ->
+            "Portuguese"
+
+        Czech ->
+            "Czech"
+
+        Danish ->
+            "Danish"
+
+        Finnish ->
+            "Finnish"
+
+        Norwegian ->
+            "Norwegian"
+
+        Swedish ->
+            "Swedish"
+
+        Russian ->
+            "Russian"
+
+        Romanian ->
+            "Romanian"
+
+        Dutch ->
+            "Dutch"
+
+        Latvian ->
+            "Latvian"

modules/webapp/src/main/elm/Messages/SourceFormComp.elm

@@ -1,6 +1,8 @@
 module Messages.SourceFormComp exposing (..)
 
+import Data.Language exposing (Language)
 import Messages.Basics
+import Messages.LanguageData
 
 
 type alias Texts =
@@ -20,6 +22,8 @@ type alias Texts =
     , fileFilterInfo : String
     , language : String
     , languageInfo : String
+    , languageLabel : Language -> String
+    , selectPlaceholder : String
     }
 
 
@@ -58,4 +62,6 @@ Specify a file glob to filter files when uploading archives
     , languageInfo =
         "Used for text extraction and analysis. The collective's "
             ++ "default language is used if not specified here."
+    , languageLabel = Messages.LanguageData.gb
+    , selectPlaceholder = "Select…"
     }

modules/webapp/src/main/elm/Messages/UploadPage.elm

@@ -1,7 +1,9 @@
 module Messages.UploadPage exposing (..)
 
+import Data.Language exposing (Language)
 import Messages.Basics
 import Messages.DropzoneComp
+import Messages.LanguageData
 
 
 type alias Texts =
@@ -25,6 +27,7 @@ type alias Texts =
         , resetLine2 : String
         }
     , selectedFiles : String
+    , languageLabel : Language -> String
     }
 
 
@@ -54,6 +57,7 @@ gb =
         , resetLine2 = " to upload more files."
         }
     , selectedFiles = "Selected Files"
+    , languageLabel = Messages.LanguageData.gb
     }