Externalize strings in manage-data page

This commit is contained in:
Eike Kettner
2021-04-04 15:55:49 +02:00
parent 8f1380fcf5
commit 594818499e
57 changed files with 1078 additions and 379 deletions

View File

@ -24,6 +24,7 @@ import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (onClick, onInput)
import Http
import Messages.FolderDetailComp exposing (Texts)
import Styles as S
import Util.Http
import Util.Maybe
@ -275,8 +276,8 @@ update flags msg model =
--- View2
view2 : Flags -> Model -> Html Msg
view2 flags model =
view2 : Texts -> Flags -> Model -> Html Msg
view2 texts flags model =
let
isOwner =
Maybe.map .user flags.account
@ -285,10 +286,10 @@ view2 flags model =
dimmerSettings : Comp.YesNoDimmer.Settings
dimmerSettings =
Comp.YesNoDimmer.defaultSettings2 "Really delete this folder?"
Comp.YesNoDimmer.defaultSettings2 texts.reallyDeleteThisFolder
in
div [ class "flex flex-col md:relative" ]
(viewButtons2 model
(viewButtons2 texts model
:: [ Html.map DeleteMsg
(Comp.YesNoDimmer.viewN
True
@ -299,26 +300,26 @@ view2 flags model =
[ class "py-2 text-lg opacity-75"
, classList [ ( "hidden", model.folder.id /= "" ) ]
]
[ text "You are automatically set as owner of this new folder."
[ text texts.autoOwnerInfo
]
, div
[ class "py-2 text-lg opacity-75"
, classList [ ( "hidden", model.folder.id == "" ) ]
]
[ text "Modify this folder by changing the name or add/remove members."
[ text texts.modifyInfo
]
, div
[ class S.message
, classList [ ( "hidden", model.folder.id == "" || isOwner ) ]
]
[ text "You are not the owner of this folder and therefore are not allowed to edit it."
[ text texts.notOwnerInfo
]
, div [ class "mb-4 flex flex-col" ]
[ label
[ class S.inputLabel
, for "folder-name"
]
[ text "Name"
[ text texts.name
, B.inputRequired
]
, div [ class "flex flex-row space-x-2" ]
@ -340,7 +341,7 @@ view2 flags model =
]
[ i [ class "fa fa-save" ] []
, span [ class "ml-2 hidden sm:inline" ]
[ text "Save"
[ text texts.basics.submit
]
]
]
@ -358,12 +359,12 @@ view2 flags model =
|> text
]
]
++ viewMembers2 model
++ viewMembers2 texts model
)
viewMembers2 : Model -> List (Html Msg)
viewMembers2 model =
viewMembers2 : Texts -> Model -> List (Html Msg)
viewMembers2 texts model =
let
folderCfg =
{ display = .name
@ -379,7 +380,7 @@ viewMembers2 model =
[ class S.header3
, class "mt-4"
]
[ text "Members"
[ text texts.members
]
, div [ class "flex flex-col space-y-2" ]
[ div [ class "flex flex-row space-x-2" ]
@ -393,7 +394,7 @@ viewMembers2 model =
)
]
, a
[ title "Add a new member"
[ title texts.addMember
, onClick AddMember
, class S.primaryButton
, href "#"
@ -401,7 +402,7 @@ viewMembers2 model =
]
[ i [ class "fa fa-plus" ] []
, span [ class "ml-2 hidden sm:inline" ]
[ text "Add"
[ text texts.add
]
]
]
@ -410,19 +411,19 @@ viewMembers2 model =
[ class "flex flex-col space-y-4 md:space-y-2 mt-2"
, class "px-2 border-0 border-l dark:border-bluegray-600"
]
(List.map viewMember2 model.members)
(List.map (viewMember2 texts) model.members)
]
viewMember2 : IdName -> Html Msg
viewMember2 member =
viewMember2 : Texts -> IdName -> Html Msg
viewMember2 texts member =
div
[ class "flex flex-row space-x-2 items-center"
]
[ a
[ class S.deleteLabel
, href "#"
, title "Remove this member"
, title texts.removeMember
, onClick (RemoveMember member)
]
[ i [ class "fa fa-trash " ] []
@ -433,23 +434,23 @@ viewMember2 member =
]
viewButtons2 : Model -> Html Msg
viewButtons2 model =
viewButtons2 : Texts -> Model -> Html Msg
viewButtons2 texts model =
MB.view
{ start =
[ MB.SecondaryButton
{ tagger = GoBack
, label = "Back"
, label = texts.basics.cancel
, icon = Just "fa fa-arrow-left"
, title = "Back to list"
, title = texts.basics.backToList
}
]
, end =
[ MB.CustomButton
{ tagger = RequestDelete
, label = "Delete"
, label = texts.basics.delete
, icon = Just "fa fa-trash"
, title = "Delete this folder"
, title = texts.deleteThisFolder
, inputClass =
[ ( S.deleteButton, True )
, ( "hidden", model.folder.id == "" )