Move Fields translations to Fields value to reduce duplication

okfn-brasil · Jan 26, 2017 · 406b40e · 406b40e
1 parent 83a1e5f
commit 406b40e
Show file tree

Hide file tree

Showing 3 changed files with 133 additions and 271 deletions.
diff --git a/jarbas/frontend/elm/Internationalization.elm b/jarbas/frontend/elm/Internationalization.elm
@@ -1,4 +1,4 @@
-module Internationalization exposing (Language(..), TranslationId(..), translate)
+module Internationalization exposing (Language(..), TranslationId(..), TranslationSet, translate, translateSet)
 
 
 type alias TranslationSet =
@@ -26,45 +26,7 @@ type TranslationId
     | FieldsetCompanyDetails
     | FieldsetCurrencyDetails
     | FieldsetCurrencyDetailsLink
-    | FieldYear
-    | FieldDocumentId
-    | FieldApplicantId
-    | FieldTotalReimbursementValue
-    | FieldTotalNetValue
-    | FieldReimbursementNumbers
-    | FieldNetValues
-    | FieldCongresspersonId
-    | FieldCongressperson
-    | FieldCongresspersonName
-    | FieldCongresspersonDocument
-    | FieldState
-    | FieldParty
-    | FieldTermId
-    | FieldTerm
-    | FieldSubquotaId
-    | FieldSubquotaDescription
-    | FieldSubquotaGroupId
-    | FieldSubquotaGroupDescription
-    | FieldCompany
-    | FieldCnpjCpf
-    | FieldDocumentType
-    | FieldDocumentNumber
-    | FieldDocumentValue
-    | FieldIssueDate
-    | FieldIssueDateStart
-    | FieldIssueDateEnd
     | FieldIssueDateValidation
-    | FieldMonth
-    | FieldClaimDate
-    | FieldRemarkValue
-    | FieldInstallment
-    | FieldBatchNumber
-    | FieldReimbursementValues
-    | FieldPassenger
-    | FieldLegOfTheTrip
-    | FieldProbability
-    | FieldSuspicions
-    | EmptyField
     | ReimbursementSource
     | ReimbursementChamberOfDeputies
     | ReceiptFetch
@@ -173,161 +135,10 @@ translate lang trans =
                     TranslationSet "check the currency rate on "
                         "veja a cotação em "
 
-                FieldYear ->
-                    TranslationSet "Year"
-                        "Ano"
-
-                FieldDocumentId ->
-                    TranslationSet "Document ID"
-                        "ID do documento"
-
-                FieldApplicantId ->
-                    TranslationSet "Applicant ID"
-                        "Identificador do Solicitante"
-
-                FieldTotalReimbursementValue ->
-                    TranslationSet "Total reimbursement value"
-                        "Valor total dos reembolsos"
-
-                FieldTotalNetValue ->
-                    TranslationSet "Total net value"
-                        "Valor líquido total"
-
-                FieldReimbursementNumbers ->
-                    TranslationSet "Reimbursement number"
-                        "Número dos reembolsos"
-
-                FieldNetValues ->
-                    TranslationSet "Net values"
-                        "Valores líquidos"
-
-                FieldCongresspersonId ->
-                    TranslationSet "Congressperson ID"
-                        "Cadastro do Parlamentar"
-
-                FieldCongressperson ->
-                    TranslationSet "Congressperson"
-                        "Deputado(a)"
-
-                FieldCongresspersonName ->
-                    TranslationSet "Congressperson nome"
-                        "Nome do(a) deputado(a)"
-
-                FieldCongresspersonDocument ->
-                    TranslationSet "Congressperson document"
-                        "Número da Carteira Parlamentar"
-
-                FieldState ->
-                    TranslationSet "State"
-                        "UF"
-
-                FieldParty ->
-                    TranslationSet "Party"
-                        "Partido"
-
-                FieldTermId ->
-                    TranslationSet "Term ID"
-                        "Código da legislatura"
-
-                FieldTerm ->
-                    TranslationSet "Term"
-                        "Número da legislatura"
-
-                FieldSubquotaId ->
-                    TranslationSet "Subquota number"
-                        "Número da Subcota"
-
-                FieldSubquotaDescription ->
-                    TranslationSet "Subquota"
-                        "Subquota"
-
-                FieldSubquotaGroupId ->
-                    TranslationSet "Subquota group number"
-                        "Número da especificação da subcota"
-
-                FieldSubquotaGroupDescription ->
-                    TranslationSet "Subquota group"
-                        "Especificação da subcota"
-
-                FieldCompany ->
-                    TranslationSet "Company"
-                        "Fornecedor"
-
-                FieldCnpjCpf ->
-                    TranslationSet "CNPJ or CPF"
-                        "CNPJ ou CPF"
-
-                FieldDocumentType ->
-                    TranslationSet "Document type"
-                        "Tipo do documento"
-
-                FieldDocumentNumber ->
-                    TranslationSet "Document number"
-                        "Número do documento"
-
-                FieldDocumentValue ->
-                    TranslationSet "Expense value"
-                        "Valor da despesa"
-
-                FieldIssueDate ->
-                    TranslationSet "Expense date"
-                        "Data da despesa"
-
-                FieldIssueDateStart ->
-                    TranslationSet "Expense date (start)"
-                        "Data da despesa (início)"
-
-                FieldIssueDateEnd ->
-                    TranslationSet "Expense date (end)"
-                        "Data da despesa (fim)"
-
                 FieldIssueDateValidation ->
                     TranslationSet "Please use the YYYY-MM-DD format"
                         "Por favor, utilize o formato YYYY-MM-DD"
 
-                FieldClaimDate ->
-                    TranslationSet "Claim date"
-                        "Data do pedido de reembolso"
-
-                FieldMonth ->
-                    TranslationSet "Month"
-                        "Mês"
-
-                FieldRemarkValue ->
-                    TranslationSet "Remark value"
-                        "Valor da glosa"
-
-                FieldInstallment ->
-                    TranslationSet "Installment"
-                        "Número da parcela"
-
-                FieldBatchNumber ->
-                    TranslationSet "Batch number"
-                        "Número do lote"
-
-                FieldReimbursementValues ->
-                    TranslationSet "Reimbursement values"
-                        "Valor dos reembolsos"
-
-                FieldPassenger ->
-                    TranslationSet "Passenger"
-                        "Passageiro"
-
-                FieldLegOfTheTrip ->
-                    TranslationSet "Leg of the trip"
-                        "Trecho"
-
-                FieldProbability ->
-                    TranslationSet "Probability"
-                        "Probabilidade"
-
-                FieldSuspicions ->
-                    TranslationSet "Suspicions"
-                        "Suspeitas"
-
-                EmptyField ->
-                    TranslationSet "" ""
-
                 ReimbursementSource ->
                     TranslationSet "Source: "
                         "Fonte: "
@@ -552,9 +363,14 @@ translate lang trans =
                             TranslationSet ""
                                 ""
     in
-        case lang of
-            English ->
-                translationSet.english
+        translateSet lang translationSet
+
+
+translateSet : Language -> TranslationSet -> String
+translateSet lang translationSet =
+    case lang of
+        English ->
+            translationSet.english
 
-            Portuguese ->
-                translationSet.portuguese
+        Portuguese ->
+            translationSet.portuguese