Externalize strings in upload page

This commit is contained in:
Eike Kettner
2021-04-01 00:47:33 +02:00
parent 12cad398ac
commit 968c8e02b7
14 changed files with 222 additions and 73 deletions

View File

@ -3,20 +3,20 @@ module Comp.ItemDetail.AddFilesForm exposing (view)
import Comp.Dropzone
import Comp.ItemDetail.Model exposing (..)
import Comp.Progress
import Data.DropdownStyle
import Dict
import File exposing (File)
import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (onCheck, onClick, onInput)
import Html.Events exposing (onClick)
import Messages.ItemDetail.AddFilesForm exposing (Texts)
import Set
import Styles as S
import Util.File exposing (makeFileId)
import Util.Size
view : Model -> Html Msg
view model =
view : Texts -> Model -> Html Msg
view texts model =
div
[ classList
[ ( "hidden", not model.addFilesOpen )
@ -28,7 +28,7 @@ view model =
[ text "Add more files to this item"
]
, Html.map AddFilesMsg
(Comp.Dropzone.view2 model.addFilesModel)
(Comp.Dropzone.view2 texts.dropzone model.addFilesModel)
, div [ class "flex flex-row space-x-2 mt-2" ]
[ button
[ class S.primaryButton

View File

@ -23,17 +23,18 @@ import Data.UiSettings exposing (UiSettings)
import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (onClick)
import Messages.ItemDetailComp exposing (Texts)
import Page exposing (Page(..))
import Styles as S
import Util.Time
view : ItemNav -> UiSettings -> Model -> Html Msg
view inav settings model =
view : Texts -> ItemNav -> UiSettings -> Model -> Html Msg
view texts inav settings model =
div [ class "flex flex-col h-full" ]
[ header settings model
, menuBar inav settings model
, body inav settings model
, body texts inav settings model
, itemModal model
]
@ -194,20 +195,20 @@ menuBar inav settings model =
}
body : ItemNav -> UiSettings -> Model -> Html Msg
body inav settings model =
body : Texts -> ItemNav -> UiSettings -> Model -> Html Msg
body texts _ settings model =
div [ class "grid gap-2 grid-cols-1 md:grid-cols-3 h-full" ]
[ leftArea settings model
[ leftArea texts settings model
, rightArea settings model
]
leftArea : UiSettings -> Model -> Html Msg
leftArea settings model =
leftArea : Texts -> UiSettings -> Model -> Html Msg
leftArea texts settings model =
div [ class "w-full md:order-first md:mr-2 flex flex-col" ]
[ addDetailForm settings model
, sendMailForm settings model
, Comp.ItemDetail.AddFilesForm.view model
, Comp.ItemDetail.AddFilesForm.view texts.addFilesForm model
, Comp.ItemDetail.Notes.view model
, div
[ classList