aboutsummaryrefslogtreecommitdiff
path: root/src/Model/Translation
diff options
context:
space:
mode:
authorJoris2019-05-01 15:52:32 +0200
committerJoris2019-05-01 17:11:02 +0200
commit23f04635cc26e1b0553088f28553f518488a9fc8 (patch)
tree97037643bab24564046ce4aba90481e3b92a15d3 /src/Model/Translation
parent0fe906ae7453aa684e998bbcc7a78b62d84f0206 (diff)
Setup personal page with Hakyll
Diffstat (limited to 'src/Model/Translation')
-rw-r--r--src/Model/Translation/Key.hs28
-rw-r--r--src/Model/Translation/Language.hs12
-rw-r--r--src/Model/Translation/Message.hs90
3 files changed, 0 insertions, 130 deletions
diff --git a/src/Model/Translation/Key.hs b/src/Model/Translation/Key.hs
deleted file mode 100644
index 43381fb..0000000
--- a/src/Model/Translation/Key.hs
+++ /dev/null
@@ -1,28 +0,0 @@
-module Model.Translation.Key
- ( Key(..)
- ) where
-
-data Key =
-
- Home
- | Resume
- | Projects
- | Contact
-
- | Experience
- | EducationalBackground
- | Skills
- | Interests
-
- | Since
- | From
- | To
- | And
-
- | Month Int
- | MonthText Int
- | YearText Int
-
- | TryIt
-
- | PageNotFound
diff --git a/src/Model/Translation/Language.hs b/src/Model/Translation/Language.hs
deleted file mode 100644
index a8f5eb9..0000000
--- a/src/Model/Translation/Language.hs
+++ /dev/null
@@ -1,12 +0,0 @@
-module Model.Translation.Language
- ( Language(..)
- , languages
- ) where
-
-data Language =
- English
- | French
- deriving (Show, Read, Eq, Enum, Bounded)
-
-languages :: [Language]
-languages = [minBound..]
diff --git a/src/Model/Translation/Message.hs b/src/Model/Translation/Message.hs
deleted file mode 100644
index c9e0fcb..0000000
--- a/src/Model/Translation/Message.hs
+++ /dev/null
@@ -1,90 +0,0 @@
-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 ""