about summary refs log tree commit diff
path: root/services/tazblog/src/Blog.hs
diff options
context:
space:
mode:
Diffstat (limited to 'services/tazblog/src/Blog.hs')
-rw-r--r--services/tazblog/src/Blog.hs62
1 files changed, 29 insertions, 33 deletions
diff --git a/services/tazblog/src/Blog.hs b/services/tazblog/src/Blog.hs
index 6c61c2ce26c1..29fac37ac778 100644
--- a/services/tazblog/src/Blog.hs
+++ b/services/tazblog/src/Blog.hs
@@ -12,15 +12,22 @@
 module Blog where
 
 import BlogStore
-import Data.Text (Text, empty, pack)
+import Data.Text (Text, pack)
 import qualified Data.Text as T
 import Data.Text.Lazy (fromStrict)
 import Data.Time
-import Locales
 import Text.Blaze.Html (preEscapedToHtml)
 import Text.Hamlet
 import Text.Markdown
 
+blogTitle :: Text = "tazjin's blog"
+
+repoURL :: Text = "https://bitbucket.org/tazjin/tazblog-haskell"
+
+mailTo :: Text = "mailto:mail@tazj.in"
+
+twitter :: Text = "https://twitter.com/tazjin"
+
 replace :: Eq a => a -> a -> [a] -> [a]
 replace x y = map (\z -> if z == x then y else z)
 
@@ -28,27 +35,25 @@ replace x y = map (\z -> if z == x then y else z)
 markdownCutoff :: Day
 markdownCutoff = fromGregorian 2013 04 28
 
-blogTemplate :: BlogLang -> Text -> Html -> Html
-blogTemplate lang t_append body =
+blogTemplate :: Text -> Html -> Html
+blogTemplate t_append body =
   [shamlet|
 $doctype 5
   <head>
     <meta charset="utf-8">
     <meta name="viewport" content="width=device-width, initial-scale=1">
-    <meta name="description" content=#{blogTitle lang t_append}>
+    <meta name="description" content=#{blogTitle}#{t_append}>
     <link rel="stylesheet" type="text/css" href="/static/blog.css" media="all">
-    <link rel="alternate" type="application/rss+xml" title="RSS-Feed" href=#{rssUrl}>
-    <title>#{blogTitle lang t_append}
+    <link rel="alternate" type="application/rss+xml" title="RSS-Feed" href="/rss.xml">
+    <title>#{blogTitle}#{t_append}
   <body>
     <header>
       <h1>
-        <a href="/" .unstyled-link>#{blogTitle lang empty}
+        <a href="/" .unstyled-link>#{blogTitle}
       <hr>
     ^{body}
     ^{showFooter}
 |]
-  where
-    rssUrl = T.concat ["/", show' lang, "/rss.xml"]
 
 showFooter :: Html
 showFooter =
@@ -56,7 +61,7 @@ showFooter =
 <footer>
   <p .footer>Served without any dynamic languages.
   <p .footer>
-    <a href=#{repoURL} .uncoloured-link>Version #{version}
+    <a href=#{repoURL} .uncoloured-link>
     |
     <a href=#{twitter} .uncoloured-link>Twitter
     |
@@ -90,28 +95,26 @@ $maybe links <- pageLinks
   ^{links}
 |]
   where
-    linkElems Entry {..} = concat $ ["/", show lang, "/", show entryId]
+    linkElems Entry {..} = concat $ ["/", show entryId]
 
-showLinks :: Maybe Int -> BlogLang -> Html
-showLinks (Just i) lang =
+showLinks :: Maybe Int -> Html
+showLinks (Just i) =
   [shamlet|
   $if ((>) i 1)
     <div .navigation>
-      <a href=#{nLink $ succ i} .uncoloured-link>#{backText lang}
+      <a href=#{nLink $ succ i} .uncoloured-link>Earlier
       |
-      <a href=#{nLink $ pred i} .uncoloured-link>#{nextText lang}
+      <a href=#{nLink $ pred i} .uncoloured-link>Later
   $elseif ((<=) i 1)
-    ^{showLinks Nothing lang}
+    ^{showLinks Nothing}
 |]
   where
-    nLink page = T.concat ["/", show' lang, "/?page=", show' page]
-showLinks Nothing lang =
+    nLink page = T.concat ["/?page=", show' page]
+showLinks Nothing =
   [shamlet|
 <div .navigation>
-  <a href=#{nLink} .uncoloured-link>#{backText lang}
+  <a href="/?page=2" .uncoloured-link>Earlier
 |]
-  where
-    nLink = T.concat ["/", show' lang, "/?page=2"]
 
 renderEntry :: Entry -> Html
 renderEntry e@Entry {..} =
@@ -128,18 +131,11 @@ renderEntry e@Entry {..} =
 <hr>
 |]
 
-showError :: BlogError -> BlogLang -> Html
-showError NotFound l =
-  blogTemplate l (T.append ": " $ notFoundTitle l)
-    $ [shamlet|
-<p>:(
-<p>#{notFoundText l}
-<hr>
-|]
-showError UnknownError l =
-  blogTemplate l ""
+showError :: Text -> Text -> Html
+showError title err =
+  blogTemplate (": " <> title)
     $ [shamlet|
 <p>:(
-<p>#{unknownErrorText l}
+<p>#{err}
 <hr>
 |]