projects
/
wix.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
7e4ff02
)
add imagec and image2 commands (may be removed later)
author
adam
<adam@megacz.com>
Wed, 28 Jan 2009 22:04:13 +0000
(14:04 -0800)
committer
adam
<adam@megacz.com>
Wed, 28 Jan 2009 22:04:13 +0000
(14:04 -0800)
darcs-hash:
20090128220413
-5007d-
b69926c0e4ee2c476438d8d7c72bf698b529452b
.gz
src/Html.lhs
patch
|
blob
|
history
diff --git
a/src/Html.lhs
b/src/Html.lhs
index
1622695
..
74259f7
100644
(file)
--- a/
src/Html.lhs
+++ b/
src/Html.lhs
@@
-236,6
+236,8
@@
instance ToHtml Text where
toHtml (Command "green" y) = "<font color=green>"++(toHtml y)++"</font>"
toHtml (Command "sc" y) = "<sc>"++(toHtml y)++"</sc>"
toHtml (Command "image" y) = "<img src='"++(toHtml y)++"'/>"
toHtml (Command "green" y) = "<font color=green>"++(toHtml y)++"</font>"
toHtml (Command "sc" y) = "<sc>"++(toHtml y)++"</sc>"
toHtml (Command "image" y) = "<img src='"++(toHtml y)++"'/>"
+ toHtml (Command "imagec" y) = "<center><img src='"++(toHtml y)++"'/></center>"
+ toHtml (Command "image2" y) = "<img width=180px src='"++(toHtml y)++"'/>"
toHtml (Command "image3" y) = "<img width=200px src='"++(toHtml y)++"'/>"
toHtml (Command "image4" y) = "<center><img width=550px src='"++(toHtml y)++"'/></center>"
toHtml (Command "warn" y) = "\n<div class=warn>\n<table border=0 cellpadding=5px>\n"
toHtml (Command "image3" y) = "<img width=200px src='"++(toHtml y)++"'/>"
toHtml (Command "image4" y) = "<center><img width=550px src='"++(toHtml y)++"'/></center>"
toHtml (Command "warn" y) = "\n<div class=warn>\n<table border=0 cellpadding=5px>\n"