diff options
Diffstat (limited to 'src/Blog.hs')
| -rw-r--r-- | src/Blog.hs | 22 |
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"] |