about summary refs log tree commit diff
path: root/src/Blog.hs
diff options
context:
space:
mode:
author"Vincent Ambo ext:(%22) <tazjin@gmail.com>2013-05-05T18·34+0200
committer"Vincent Ambo ext:(%22) <tazjin@gmail.com>2013-05-05T18·34+0200
commitd7cce6cb413a3a1067ef4e6c72107a21983453a4 (patch)
tree65103ea5db5172fc54ef2dd0c63a2099407753b1 /src/Blog.hs
parent11a51f6abdef96a9c8e49ee7bb23e96aadb55276 (diff)
* more bootstrap-related fixes, nearing completion
* version bumped to 4.0
Diffstat (limited to 'src/Blog.hs')
-rw-r--r--src/Blog.hs22
1 files changed, 12 insertions, 10 deletions
diff --git a/src/Blog.hs b/src/Blog.hs
index 8a7d49b9218a..4c8d19aa310b 100644
--- a/src/Blog.hs
+++ b/src/Blog.hs
@@ -138,7 +138,7 @@ $forall entry <- elist
         <br>
         #{linkText $ length $ comments entry}
         #{cHead $ lang entry}
-    <div .span10>
+    <div .span10 .entry>
       $if (isEntryMarkdown entry)
         ^{renderEntryMarkdown $ append " " $ btext entry}
       $else
@@ -158,19 +158,21 @@ $maybe links <- footerLinks
 
 showLinks :: Maybe Int -> BlogLang -> Html
 showLinks (Just i) lang = [shamlet|
- $if ((>) i 1)
-  <div class="centerbox">
-   <a href=#{nLink $ succ i}>#{backText lang}
-   \ -- #
-   <a href=#{nLink $ pred i}>#{nextText lang}
- $elseif ((<=) i 1)
-  ^{showLinks Nothing lang}
+  $if ((>) i 1)
+    <div .row .text-center>
+      <div .span12>
+        <a href=#{nLink $ succ i}>#{backText lang}
+        \ -- #
+        <a href=#{nLink $ pred i}>#{nextText lang}
+  $elseif ((<=) i 1)
+    ^{showLinks Nothing lang}
 |]
   where
    nLink page = T.concat ["/", show' lang, "/?page=", show' page]
 showLinks Nothing lang = [shamlet|
-<div class="centerbox">
- <a href=#{nLink}>#{backText lang}
+<div .row .text-center>
+  <div .span12>
+    <a href=#{nLink}>#{backText lang}
 |]
   where
    nLink = T.concat ["/", show' lang, "/?page=2"]