module Model.Translation.Message
  ( getMessage
  ) where

import Model.Translation.Language
import Model.Translation.Key

getMessage :: Key -> Language -> String

getMessage Home English = "home"
getMessage Home French = "accueil"

getMessage Resume English = "resume"
getMessage Resume French = "curriculum"

getMessage Projects English = "projects"
getMessage Projects French = "projets"

getMessage Contact English = "contact"
getMessage Contact French = "contact"

getMessage Experience English = "experience"
getMessage Experience French = "expérience"

getMessage EducationalBackground English = "educational background"
getMessage EducationalBackground French = "études"

getMessage Skills English = "skills"
getMessage Skills French = "compétences"

getMessage Interests English = "interests"
getMessage Interests French = "intérêts"

getMessage Since English = "since"
getMessage Since French = "depuis"

getMessage From English = "from"
getMessage From French = "de"

getMessage To English = "to"
getMessage To French = "à"

getMessage And English = "and"
getMessage And French = "et"

getMessage (Month m) English =
  case m of
    1 -> "january"
    2 -> "february"
    3 -> "march"
    4 -> "april"
    5 -> "may"
    6 -> "june"
    7 -> "july"
    8 -> "august"
    9 -> "september"
    10 -> "october"
    11 -> "november"
    12 -> "december"
    _ -> ""
getMessage (Month m) French =
  case m of
    1 -> "janvier"
    2 -> "février"
    3 -> "mars"
    4 -> "avril"
    5 -> "mai"
    6 -> "juin"
    7 -> "juillet"
    8 -> "août"
    9 -> "septembre"
    10 -> "octoble"
    11 -> "novembre"
    12 -> "décembre"
    _ -> ""

getMessage (MonthText count) English = "month" ++ (plural count)
getMessage (MonthText _) French = "mois"

getMessage (YearText count) English = "year" ++ (plural count)
getMessage (YearText count) French = "an" ++ (plural count)

getMessage TryIt English = "Try it!"
getMessage TryIt French = "Voir"

getMessage PageNotFound English = "Page not found."
getMessage PageNotFound French = "La page que vous recherchez n'est pas disponible."

plural :: Int -> String
plural count = if count > 1 then "s" else ""