mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* max-width for <ul> element

Browse source
This commit is contained in:
Vincent Ambo 2012-04-22 21:31:41 +02:00
parent 84b6f5b417
commit b0522ec2f5
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Blog.hs
View file

@ -97,7 +97,7 @@ renderEntries :: Bool -> [Entry] -> Text -> Maybe Html -> Html
renderEntries showAll entries topText footerLinks = do renderEntries showAll entries topText footerLinks = do
H.span ! A.class_ "innerTitle" $ toHtml topText H.span ! A.class_ "innerTitle" $ toHtml topText
H.div ! A.class_ "innerContainer" $ do H.div ! A.class_ "innerContainer" $ do
H.ul $ if' showAll H.ul ! A.style "max-width: 1000px;" $ if' showAll
(mapM_ showEntry entries) (mapM_ showEntry entries)
(mapM_ showEntry $ take 6 entries) (mapM_ showEntry $ take 6 entries)
getFooterLinks footerLinks getFooterLinks footerLinks
@ -122,12 +122,12 @@ renderEntry (Entry{..}) = do
H.span ! A.class_ "innerTitle" $ toHtml $ title H.span ! A.class_ "innerTitle" $ toHtml $ title
H.span ! A.class_ "righttext" $ H.i $ toHtml $ woText H.span ! A.class_ "righttext" $ H.i $ toHtml $ woText
H.div ! A.class_ "innerContainer" $ do 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 preEscapedText $ btext
H.p $ preEscapedText $ mtext H.p $ preEscapedText $ mtext
H.div ! A.class_ "innerBoxComments" $ do H.div ! A.class_ "innerBoxComments" $ do
H.div ! A.class_ "cHead" $ toHtml $ cHead lang -- ! A.style "font-size:large;font-weight:bold;" 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 renderCommentBox lang entryId
where where
woText = flip T.append author $ T.pack $ (formatTime defaultTimeLocale (eTimeFormat lang) edate) woText = flip T.append author $ T.pack $ (formatTime defaultTimeLocale (eTimeFormat lang) edate)