X-Git-Url: http://git.megacz.com/?p=wix.git;a=blobdiff_plain;f=src%2FHtml.lhs;h=a3ff54f19c3f0780bf5debf114110aa991bc5a5e;hp=a6cfeea6f6ef33172f00ea422d5f59367093ca4c;hb=78e11871be7fa7677a0e3822b6e08b3beca1c4b7;hpb=64288bf11f7ad3e21e0ff8180ef3447ebf3fb9cb
diff --git a/src/Html.lhs b/src/Html.lhs
index a6cfeea..a3ff54f 100644
--- a/src/Html.lhs
+++ b/src/Html.lhs
@@ -1,4 +1,8 @@
\begin{code}
+-- Copyright 2008 the Contributors, as shown in the revision logs.
+-- Licensed under the Apache Public Source License 2.0 ("the License").
+-- You may not use this file except in compliance with the License.
+
module Html
where
import Edu_Berkeley_Sbp_Haskell_SBP
@@ -27,7 +31,7 @@ style =
" LI { margin-top: 5px; }\n"++
" body { color: #333333; }\n"++
" blockquote { font-style: italic; width: 100% }\n"++
- " div.warn { border: 1px solid red; background-color: #fbb; color: white; }\n"++
+ " div.warn { border: 1px solid #f44; border-top: 5px solid #f44; background-color: #fbb; color: white; }\n"++
" td.warn { color: black; }\n"++
" div.announce { border: 1px solid green; background-color: #bfb; color: white; }\n"++
" td.announce { color: black; }\n"++
@@ -179,8 +183,9 @@ instance ToHtml Paragraph where
toHtml (P t) = stag "p" $ toHtml t
-link ref body = ""++icon++body++""
+link ref body = ""++icon++body++""
where
+ urlify = toHtml
icon = if ".pdf" `isSuffixOf` ref then " "
else if "mailto:" `isPrefixOf` ref then " "
else ""
@@ -195,6 +200,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"
@@ -231,6 +237,8 @@ instance ToHtml Text where
toHtml (Command "green" y) = ""++(toHtml y)++""
toHtml (Command "sc" y) = "