about summary refs log tree commit diff
path: root/src/Locales.hs
diff options
context:
space:
mode:
author"Vincent Ambo ext:(%22) <tazjin@me.com>2012-02-24T16·01+0100
committer"Vincent Ambo ext:(%22) <tazjin@me.com>2012-02-24T16·01+0100
commit0f0d874aa7bc194b48a47c29fab06513d093d306 (patch)
treee0708117a1eed45b8b1835d37af08f00b41fa838 /src/Locales.hs
parent35a5557e17aed86b4a655b4d4e6fe25d1466fd86 (diff)
* entries by month
Diffstat (limited to 'src/Locales.hs')
-rw-r--r--src/Locales.hs40
1 files changed, 40 insertions, 0 deletions
diff --git a/src/Locales.hs b/src/Locales.hs
index 266f4e752d9a..fb9435195987 100644
--- a/src/Locales.hs
+++ b/src/Locales.hs
@@ -24,6 +24,46 @@ blogTitle EN = "Tazjin's Blog"
 topText DE = "Aktuelle Einträge"
 topText EN = "Latest entries"
 
+getMonth :: BlogLang -> Int -> Int -> String
+getMonth l y m = monthName l m ++ show y
+  where
+    monthName :: BlogLang -> Int -> String
+    monthName DE m = case m of 
+                    1 -> "Januar "
+                    2 -> "Februar "
+                    3 -> "März "
+                    4 -> "April "
+                    5 -> "Mai "
+                    6 -> "Juni "
+                    7 -> "Juli "
+                    8 -> "August "
+                    9 -> "September "
+                    10 -> "Oktober "
+                    11 -> "November"
+                    12 -> "Dezember"
+    monthName EN m = 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 "
+
+entireMonth DE = "Ganzer Monat"
+entireMonth EN = "Entire month"
+
+prevMonth DE = "Früher"
+prevMonth EN = "Earlier"
+
+nextMonth DE = "Später"
+nextMonth EN = "Later"
+
 -- contact information
 contactText DE = "Wer mich kontaktieren will: "
 contactText EN = "Get in touch with me: "