diff options
| 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 |
| commit | d7cce6cb413a3a1067ef4e6c72107a21983453a4 (patch) | |
| tree | 65103ea5db5172fc54ef2dd0c63a2099407753b1 /src/Blog.hs | |
| parent | 11a51f6abdef96a9c8e49ee7bb23e96aadb55276 (diff) | |
* more bootstrap-related fixes, nearing completion
* version bumped to 4.0
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"] |