diff options
| author | Vincent Ambo <v.ambo@me.com> | 2012-04-22T19·31+0200 |
|---|---|---|
| committer | Vincent Ambo <v.ambo@me.com> | 2012-04-22T19·31+0200 |
| commit | b0522ec2f5085bd74533a89f43dff29e1cd59788 (patch) | |
| tree | 0de01ddbede5d43f0cddb7c773ffc620725b46de /src/Blog.hs | |
| parent | 84b6f5b417920de46eed99df1942a76e66a0e72d (diff) | |
* max-width for <ul> element
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 a63d0039eb4c..441f6ac178e1 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 $ if' showAll + H.ul ! A.style "max-width: 1000px;" $ 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 $ H.li $ do + H.article $ H.ul ! A.style "max-width: 1000px;" $ 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 $ renderComments comments lang + H.ul ! A.style "max-width: 1000px;" $ renderComments comments lang renderCommentBox lang entryId where woText = flip T.append author $ T.pack $ (formatTime defaultTimeLocale (eTimeFormat lang) edate) |