about summary refs log blame commit diff
path: root/services/tazblog/src/Locales.hs
blob: 2e49809eee323e6c1afa938c4b027776b86c1878 (plain) (tree)
1
2
3
4
5
6
7
8
                                                       

                    


                                        
                            
 






                            
                                        
 
                 
 
                                     

                                              
 



                                
                            

                       
 
                            

                       
 
                            

                             
 











                                                                      
         


                                   


                                                                       
                                                            
 



                                                               
                     
                                                                  
                                                  
                                                
{-# LANGUAGE ScopedTypeVariables, OverloadedStrings #-}
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"