Externalize strings for document language

This commit is contained in:
Eike Kettner
2021-04-02 23:30:51 +02:00
parent dac95e81e6
commit e76d574ea3
9 changed files with 72 additions and 55 deletions

View File

@ -200,7 +200,7 @@ view2 flags texts settings model =
languageCfg =
{ makeOption =
\l ->
{ text = Data.Language.toName l
{ text = texts.languageLabel l
, additional = ""
}
, placeholder = ""

View File

@ -39,6 +39,7 @@ import Html.Attributes exposing (..)
import Html.Events exposing (onCheck, onClick, onInput)
import Http
import Markdown
import Messages.LanguageData
import Set exposing (Set)
import Styles as S
import Util.Folder exposing (mkFolderOption)
@ -1054,7 +1055,7 @@ viewMetadata2 flags settings model =
}
languageCfg =
{ display = Data.Language.toName
{ display = Messages.LanguageData.gb
, icon = \_ -> Nothing
, style = DS.mainStyleWith "flex-grow mr-2"
}

View File

@ -327,10 +327,10 @@ view2 flags texts settings model =
languageCfg =
{ makeOption =
\a ->
{ text = Data.Language.toName a
{ text = texts.languageLabel a
, additional = ""
}
, placeholder = "Select"
, placeholder = texts.selectPlaceholder
, labelColor = \_ -> \_ -> ""
, style = DS.mainStyle
}