From c415ce7604ebcee84ebbeb841d24375ae72e6397 Mon Sep 17 00:00:00 2001 From: simonmar Date: Fri, 26 Apr 2002 13:15:02 +0000 Subject: [haddock @ 2002-04-26 13:15:02 by simonmar] Move the explicit formatting of the little table for the stability/portability/maintainer info from the HTML into the CSS, and remove the explicit table size (just right-align it). --- src/HaddockHtml.hs | 20 +++++++------------- 1 file changed, 7 insertions(+), 13 deletions(-) (limited to 'src/HaddockHtml.hs') diff --git a/src/HaddockHtml.hs b/src/HaddockHtml.hs index 327d931e..7f05d42f 100644 --- a/src/HaddockHtml.hs +++ b/src/HaddockHtml.hs @@ -129,19 +129,13 @@ moduleInfo iface | Nothing <- iface_info iface = Html.emptyTable | Just info <- iface_info iface = tda [align "right"] << - (table ! [width "300", border 0, cellspacing 0, cellpadding 0] << ( - (tda [width "50%"] << font ! [color "#ffffff"] << - bold << toHtml "Portability") <-> - (tda [width "50%"] << font ! [color "#ffffff"] << - toHtml (portability info)) - (tda [width "50%"] << font ! [color "#ffffff"] << - bold << toHtml "Stability") <-> - (tda [width "50%"] << font ! [color "#ffffff"] << - toHtml (stability info)) - (tda [width "50%"] << font ! [color "#ffffff"] << - bold << toHtml "Maintainer") <-> - (tda [width "50%"] << font ! [color "#ffffff"] << - toHtml (maintainer info)) + (table ! [border 0, cellspacing 0, cellpadding 0] << ( + (tda [theclass "infohead"] << toHtml "Portability") <-> + (tda [theclass "infoval"] << toHtml (portability info)) + (tda [theclass "infohead"] << toHtml "Stability") <-> + (tda [theclass "infoval"] << toHtml (stability info)) + (tda [theclass "infohead"] << toHtml "Maintainer") <-> + (tda [theclass "infoval"] << toHtml (maintainer info)) )) -- --------------------------------------------------------------------------- -- cgit v1.2.3