From: adam <adam@megacz.com>
Date: Wed, 28 Jan 2009 22:04:13 +0000 (-0800)
Subject: add imagec and image2 commands (may be removed later)
X-Git-Url: http://git.megacz.com/?p=wix.git;a=commitdiff_plain;h=e6b058675419bdc7fb164809807837eb5e49c7dd

add imagec and image2 commands (may be removed later)

darcs-hash:20090128220413-5007d-b69926c0e4ee2c476438d8d7c72bf698b529452b.gz
---

diff --git a/src/Html.lhs b/src/Html.lhs
index 1622695..74259f7 100644
--- 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 "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"