X-Git-Url: http://git.megacz.com/?p=wix.git;a=blobdiff_plain;f=src%2FHtml.lhs;h=632dcfea87ff06c97d9a1b7601ebc9b7975175aa;hp=257079ebf82fd3e01e0ebb06ebf193c95d3479dc;hb=f810e5b65dd37e0f35457a4250587d43cd6572d8;hpb=89d45d9a43527a84134ad2fa133d86c3cd7eec07
diff --git a/src/Html.lhs b/src/Html.lhs
index 257079e..632dcfe 100644
--- a/src/Html.lhs
+++ b/src/Html.lhs
@@ -43,18 +43,18 @@ style =
" a:hover { text-decoration: none; border-bottom:1px solid; }\n"++
" table.footer { border-top: silver solid 1px; }\n"++
" span.signature { color: #bbb; }\n"++
- " .signature a:link { color: #bbb; }\n"++
- " .signature a:visited { color: #bbb; }\n"++
+ " .signature a:link { color: #aaf; }\n"++
+ " .signature a:visited { color: #faa; }\n"++
" .signature a:hover { color: blue; border-bottom: 1px solid blue; }\n"++
" span.highlight { background: yellow; color: black; padding: 3px }\n"++
" div.pre {\n"++
" text-align: left;\n"++
" font-family: monospace;\n"++
- " border-style: solid;\n"++
+ " border-style: none;\n"++
" border-width: 2px 2px 2px 2px;\n"++
" border-color: #6666aa;\n"++
" color: #FFFFFF;\n"++
- " background-color: #000000;\n"++
+ " background-color: #333333;\n"++
" margin-right: 25px;\n"++
" margin-left: 25px;\n"++
" padding: 10px;\n"++
@@ -195,6 +195,7 @@ instance ToHtml Text where
toHtml (Quotes x) = "“"++(toHtml x)++"”"
toHtml (Verbatim x) = pre x
toHtml (Link t ref) = link (show ref) (toHtml t)
+ toHtml (Command "comment" y) = ""
toHtml (Command "url" y) = ""++(link (toHtml y) (toHtml y))++""
toHtml (Command "WiX" y) = "WIX"
toHtml (Command "TeX" y) = "TEX"