diff options
| -rw-r--r-- | html/nhaddock.css | 24 | ||||
| -rw-r--r-- | src/Haddock/Backends/Xhtml/Layout.hs | 4 |
2 files changed, 26 insertions, 2 deletions
diff --git a/html/nhaddock.css b/html/nhaddock.css index ae983293..2bb5c1c8 100644 --- a/html/nhaddock.css +++ b/html/nhaddock.css @@ -74,7 +74,8 @@ ul.links li { ul.links li a { padding: 5px 10px; } .hide { display: none; } -.show { } +.show { display: inherit; } +.clear { clear: both; } pre { padding: 0.5em; @@ -260,6 +261,25 @@ div#style-menu-holder { margin-top: 0.5em; } +#interface dt { + float: left; + clear: left; + display: block; + margin: 1px 0; +} + +#interface dd { + float: right; + width: 90%; + display: block; + margin: 1px 0; + padding-left: 0.5em; +} + +#interface dd p { + margin: 0; +} + /* div.top code { border: 1px solid #ddd; } */ .top p.src { border-top: 1px solid #ccc; @@ -288,10 +308,12 @@ div.top .subs, div.top .doc { .fields p { margin: 0 0; } +/* this seems bulky to me .methods, .constructors { background: #f8f8f8; border: 1px solid #eee; } +*/ .fields { padding-left: 1em; } diff --git a/src/Haddock/Backends/Xhtml/Layout.hs b/src/Haddock/Backends/Xhtml/Layout.hs index 775a1cdb..63b2b6c8 100644 --- a/src/Haddock/Backends/Xhtml/Layout.hs +++ b/src/Haddock/Backends/Xhtml/Layout.hs @@ -114,7 +114,7 @@ divSubDecls cssClass captionName = maybe noHtml wrap subDlist :: [SubDecl] -> Maybe Html subDlist [] = Nothing -subDlist decls = Just $ dlist << map subEntry decls +subDlist decls = Just $ dlist << map subEntry decls +++ clearDiv where subEntry (decl, mdoc, subs) = dterm ! [theclass "src"] << decl @@ -123,6 +123,8 @@ subDlist decls = Just $ dlist << map subEntry decls Nothing `with` [] = spaceHtml ma `with` bs = ma +++ bs + + clearDiv = thediv ! [ theclass "clear" ] << noHtml -} |