about summary refs log tree commit diff
path: root/src/Blog.hs
diff options
context:
space:
mode:
authorVincent Ambo <v.ambo@me.com>2012-04-22T19·46+0200
committerVincent Ambo <v.ambo@me.com>2012-04-22T19·46+0200
commit04d549b817f9de60052b802b6a40520b38511b2e (patch)
treefecdbf73d4527487d7a14042b783271c7787b1bf /src/Blog.hs
parentb0522ec2f5085bd74533a89f43dff29e1cd59788 (diff)
* changed <ul> width to 57em
Diffstat (limited to 'src/Blog.hs')
-rw-r--r--src/Blog.hs6
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)