57 lines
No EOL
1.4 KiB
Haskell
57 lines
No EOL
1.4 KiB
Haskell
{-# 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ü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" |