1747df418e
Ormolu's formatting is quite annoying (it uses a lot of unnecessary vertical space and doesn't align elements), but I can't be bothered to do manual formatting - especially because whatever formatting haskell-mode in Emacs produces seems to depend on an opaque state machine or something.
71 lines
1.7 KiB
Haskell
71 lines
1.7 KiB
Haskell
{-# LANGUAGE OverloadedStrings #-}
|
|
{-# LANGUAGE ScopedTypeVariables #-}
|
|
|
|
module Locales where
|
|
|
|
import Data.Maybe (fromMaybe)
|
|
import Data.Text (Text)
|
|
import qualified Data.Text as T
|
|
import Network.URI
|
|
|
|
data BlogLang = EN | DE
|
|
deriving (Eq, Ord)
|
|
|
|
instance Show BlogLang where
|
|
|
|
show DE = "de"
|
|
show EN = "en"
|
|
|
|
data BlogError = NotFound | UnknownError
|
|
|
|
version = "6.0.0"
|
|
|
|
blogTitle :: BlogLang -> Text -> Text
|
|
blogTitle DE s = T.concat ["Tazjins blog", s]
|
|
blogTitle EN s = T.concat ["Tazjin's blog", s]
|
|
|
|
showLangText :: BlogLang -> Text
|
|
showLangText EN = "en"
|
|
showLangText DE = "de"
|
|
|
|
backText :: BlogLang -> Text
|
|
backText DE = "Früher"
|
|
backText EN = "Earlier"
|
|
|
|
nextText :: BlogLang -> Text
|
|
nextText DE = "Später"
|
|
nextText EN = "Later"
|
|
|
|
readMore :: BlogLang -> Text
|
|
readMore DE = "[Weiterlesen]"
|
|
readMore EN = "[Read more]"
|
|
|
|
-- RSS Strings
|
|
rssTitle :: BlogLang -> String
|
|
rssTitle DE = "Tazjins Blog"
|
|
rssTitle EN = "Tazjin's Blog"
|
|
|
|
rssDesc :: BlogLang -> String
|
|
rssDesc DE = "Feed zu Tazjins Blog"
|
|
rssDesc EN = "Feed for Tazjin's Blog"
|
|
|
|
rssLink :: BlogLang -> URI
|
|
rssLink l = fromMaybe nullURI $ parseURI ("http://tazj.in/" ++ show l)
|
|
|
|
-- errors
|
|
notFoundTitle :: BlogLang -> Text
|
|
notFoundTitle DE = "Nicht gefunden"
|
|
notFoundTitle EN = "Not found"
|
|
|
|
notFoundText :: BlogLang -> Text
|
|
notFoundText DE = "Das gewünschte Objekt wurde leider nicht gefunden."
|
|
notFoundText EN = "The requested object could not be found."
|
|
|
|
unknownErrorText :: BlogLang -> Text
|
|
unknownErrorText DE = "Ein unbekannter Fehler ist aufgetreten."
|
|
unknownErrorText EN = "An unknown error has occured."
|
|
|
|
-- static information
|
|
repoURL :: Text = "https://bitbucket.org/tazjin/tazblog-haskell"
|
|
mailTo :: Text = "mailto:tazjin+blog@gmail.com"
|
|
twitter :: Text = "https://twitter.com/tazjin"
|