diff options
| author | simonmar <unknown> | 2002-04-26 13:15:02 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2002-04-26 13:15:02 +0000 |
| commit | c415ce7604ebcee84ebbeb841d24375ae72e6397 (patch) | |
| tree | a06c4cf95a703045cfdf9f7ac6bb23434b47c799 | |
| parent | 31c53d79c85274012725480b8d78d341f3affe06 (diff) | |
[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).
| -rw-r--r-- | html/haddock.css | 16 | ||||
| -rw-r--r-- | src/HaddockHtml.hs | 20 |
2 files changed, 22 insertions, 14 deletions
diff --git a/html/haddock.css b/html/haddock.css index 36b2d883..032ec553 100644 --- a/html/haddock.css +++ b/html/haddock.css @@ -61,7 +61,7 @@ TD.recfield { padding-left: 20px } TD.doc { padding-top: 2px; font-family: sans-serif; - padding-left: 10px + padding-left: 10apx } TD.cbody { @@ -114,3 +114,17 @@ TD.section4 { font-weight: bold; font-size: 100% } + + +TD.infohead { + color: #ffffff; + font-weight: bold; + padding-right: 10px; + text-align: left; +} + +TD.infoval { + color: #ffffff; + padding-right: 10px; + text-align: left; +} 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)) )) -- --------------------------------------------------------------------------- |