maurice/snix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

version 3.1:

Browse source 
* entirely new design (looks a lot better. Thanks to @not_eden and @agoptron for their advice)
* multi-author support (I won't use it yet)
* blogstyle.css serves as the "source" for blog.css
* displaying article eDate and author on entry page
This commit is contained in:
Vincent Ambo 2012-03-20 00:26:50 +01:00
parent 39a30af9c2
commit 877a7f84b0
6 changed files with 153 additions and 138 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/Locales.hs
View file

@ -13,7 +13,7 @@ import BlogDB (BlogLang (..))
data BlogError = NotFound | DBError
version = "3.0"
version = "3.1"
allLang = [EN, DE]
@ -76,6 +76,10 @@ readMore :: BlogLang -> Text
readMore DE = "Weiterlesen"
readMore EN = "Read more"
eTimeFormat :: BlogLang -> String
eTimeFormat DE = "Geschrieben am %d.%m.%y von "
eTimeFormat EN = "Written on %D by "
-- contact information
contactText :: BlogLang -> Text
contactText DE = "Wer mich kontaktieren will: "
@ -115,6 +119,10 @@ cSend :: BlogLang -> Text
cSend DE = "Absenden"
cSend EN = "Submit"
cTextPlaceholder :: BlogLang -> Text
cTextPlaceholder DE = "Kommentartext hier eingeben :]"
cTextPlaceholder EN = "Enter your comment here :]"
-- errors
notFoundTitle :: BlogLang -> Text
notFoundTitle DE = "Nicht gefunden"
@ -126,8 +134,8 @@ notFoundText EN = "The requested object could unfortunately not be found."
-- right side text (this is inserted AS IS. Escape HTML!)
rightText :: BlogLang -> Text
rightText DE = "English version <a href=\"/en\" style=\"color: black;\">available here</a>."
rightText EN = "Deutsche Version <a href=\"/de\" style=\"color: black;\">hier verf&uuml;gbar</a>."
rightText DE = "English version <a href=\"/en\" class=\"link\">available here</a>."
rightText EN = "Deutsche Version <a href=\"/de\" class=\"link\">hier verf&uuml;gbar</a>."
-- static information
repoURL :: Text = "https://bitbucket.org/tazjin/tazblog-haskell"