diff options
| author | Vincent Ambo <v.ambo@me.com> | 2012-04-22T19·46+0200 |
|---|---|---|
| committer | Vincent Ambo <v.ambo@me.com> | 2012-04-22T19·46+0200 |
| commit | 04d549b817f9de60052b802b6a40520b38511b2e (patch) | |
| tree | fecdbf73d4527487d7a14042b783271c7787b1bf /src/Blog.hs | |
| parent | b0522ec2f5085bd74533a89f43dff29e1cd59788 (diff) | |
* changed <ul> width to 57em
Diffstat (limited to 'src/Blog.hs')
| -rw-r--r-- | src/Blog.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Blog.hs b/src/Blog.hs index 441f6ac178e1..7f6891cf6e7d 100644 --- a/src/Blog.hs +++ b/src/Blog.hs @@ -97,7 +97,7 @@ renderEntries :: Bool -> [Entry] -> Text -> Maybe Html -> Html renderEntries showAll entries topText footerLinks = do H.span ! A.class_ "innerTitle" $ toHtml topText H.div ! A.class_ "innerContainer" $ do - H.ul ! A.style "max-width: 1000px;" $ if' showAll + H.ul ! A.style "max-width: 57em;" $ if' showAll (mapM_ showEntry entries) (mapM_ showEntry $ take 6 entries) getFooterLinks footerLinks @@ -122,12 +122,12 @@ renderEntry (Entry{..}) = do H.span ! A.class_ "innerTitle" $ toHtml $ title H.span ! A.class_ "righttext" $ H.i $ toHtml $ woText H.div ! A.class_ "innerContainer" $ do - H.article $ H.ul ! A.style "max-width: 1000px;" $ H.li $ do + H.article $ H.ul ! A.style "max-width: 57em;" $ H.li $ do preEscapedText $ btext H.p $ preEscapedText $ mtext H.div ! A.class_ "innerBoxComments" $ do H.div ! A.class_ "cHead" $ toHtml $ cHead lang -- ! A.style "font-size:large;font-weight:bold;" - H.ul ! A.style "max-width: 1000px;" $ renderComments comments lang + H.ul ! A.style "max-width: 57em;" $ renderComments comments lang renderCommentBox lang entryId where woText = flip T.append author $ T.pack $ (formatTime defaultTimeLocale (eTimeFormat lang) edate) |