{-# LANGUAGE OverloadedStrings #-}

module Model.Message.Translations
  ( getNonFormattedMessage
  ) where

import Data.Text (Text)
import qualified Data.Text as T

import Model.Message.Key
import Model.Message.Lang

getNonFormattedMessage :: Lang -> Key -> Text
getNonFormattedMessage = m

m :: Lang -> Key -> Text

-- Mail

m l NoReplyMail =
  case l of
    English -> "no-reply@cost.guyonvarch.me"
    French  -> "pas-de-reponse@cost.guyonvarch.me"

-- Sign in

m l SharedCost =
  case l of
    English -> "Shared Cost"
    French  -> "Partage des frais"

m l SignIn =
  case l of
    English -> "Sign in"
    French  -> "Connexion"

m l InvalidEmail =
  case l of
    English -> "Your email is not valid."
    French  -> "Votre courriel n'est pas valide."

m l Unauthorized =
  case l of
    English -> "You are not authorized to sign in."
    French  -> "Tu n'es pas autorisé à te connecter."

-- Date

m l January =
  case l of
    English -> "January"
    French  -> "Janvier"

m l February =
  case l of
    English -> "February"
    French  -> "Février"

m l March =
  case l of
    English -> "March"
    French  -> "Mars"

m l April =
  case l of
    English -> "April"
    French  -> "Avril"

m l May =
  case l of
    English -> "May"
    French  -> "Mai"

m l June =
  case l of
    English -> "June"
    French  -> "Juin"

m l July =
  case l of
    English -> "July"
    French  -> "Juillet"

m l August =
  case l of
    English -> "August"
    French  -> "Août"

m l September =
  case l of
    English -> "September"
    French  -> "Septembre"

m l October =
  case l of
    English -> "October"
    French  -> "Octobre"

m l November =
  case l of
    English -> "November"
    French  -> "Novembre"

m l December =
  case l of
    English -> "December"
    French  -> "Décembre"

m l ShortDate =
  case l of
    English -> "{3}-{2}-{1}"
    French  -> "{1}/{2}/{3}"

m l LongDate =
  case l of
    English -> "{2} {1}, {3}"
    French  -> "{1} {2} {3}"

-- Validation

m l CategoryRequired =
  case l of
    English -> "Type a category."
    French  -> "Entre une catégorie."

m l CostRequired =
  case l of
    English -> "Type a positive cost."
    French  -> "Entre un coût positif."

m l IncomeRequired =
  case l of
    English -> "Type an income."
    French  -> "Entre un revenu."

m l IncomeMustBeNonNullNumber =
  case l of
    English -> "The income must be a non-null integer."
    French  -> "Le revenu doit être un entier non nul."

m l IncomeMustBePositiveNumber =
  case l of
    English -> "The income must be a positive integer."
    French  -> "Le revenu doit être un entier positif."

-- Payments

m l Add =
  case l of
    English -> "Add"
    French  -> "Ajouter"

m l PaymentNotDeleted =
  case l of
    English -> "The payment could not have been deleted."
    French  -> "Le paiement n'a pas pu être supprimé."

m l Punctual =
  case l of
    English -> "Punctual"
    French  -> "Ponctuel"

m l Monthly =
  case l of
    English -> "Monthly"
    French  -> "Mensuel"

m l SingularMonthlyCount =
  T.concat
    [ case l of
        English -> "{1} monthly payment of {2}"
        French  -> "{1} paiement mensuel de {2}"
    ]

m l PluralMonthlyCount =
  T.concat
    [ case l of
        English -> "{1} monthly payments totalling {2}"
        French  -> "{1} paiements mensuels comptabilisant {2}"
    ]

-- Income

m l Income =
  T.concat
    [ case l of
        English -> "You have a monthly net income of {1}"
        French  -> "Votre revenu mensuel net est de {1}"
    ]

m l NoIncome =
  case l of
    English -> "Income not given"
    French  -> "Revenu non renseigné"

m l Edit =
  case l of
    English -> "Edit"
    French  -> "Éditer"

m l Validate =
  case l of
    English -> "Validate"
    French  -> "Valider"

m l Undo =
  case l of
    English -> "Undo"
    French  -> "Annuler"

m l NewIncome =
  case l of
    English -> "New income"
    French  -> "Nouveau revenu"