src/Locales.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57

{-# LANGUAGE ScopedTypeVariables, DeriveDataTypeable #-}

module Locales where

import           Data.Data (Data, Typeable)

{- to add a language simply define it's abbreviation and show instance then
 - translate the appropriate strings and add CouchDB views in Server.hs -}

data BlogLang = EN | DE deriving (Data, Typeable)

instance Show BlogLang where
    show EN = "en"
    show DE = "de"

version = ("2.2b" :: String)

allLang = [EN, DE]

blogTitle DE = "Tazjins Blog"
blogTitle EN = "Tazjin's Blog"

-- index site headline
topText DE = "Aktuelle Einträge"
topText EN = "Latest entries"

-- contact information
contactText DE = "Wer mich kontaktieren will: "
contactText EN = "Get in touch with me: "

orString DE = " oder "
orString EN = " or "

-- footer
noticeText EN = "site notice"
noticeText DE = "Impressum"

-- comments
noComments DE = " Keine Kommentare"
noComments EN = " No comments yet"

cHead DE = "Kommentare:"
cHead EN = "Comments:"

cTimeFormat DE = "[Am %d.%m.%y um %H:%M Uhr]"
cTimeFormat EN = "[On %D at %H:%M]"

-- right side text (this is inserted AS IS. Escape HTML!)
rightText DE = "English version <a href=\"en\">available here</a>"
rightText EN = "Deutsche Version <a href=\"de\">hier verf&uuml;gbar</a>"

-- static information
repoURL = "https://bitbucket.org/tazjin/tazblog-haskell"
mailTo  = "mailto:hej@tazj.in"
twitter = "http://twitter.com/#!/tazjin"
iMessage = "imessage:tazjin@me.com"
iMessage' = "sms:tazjin@me.com"