From e6b058675419bdc7fb164809807837eb5e49c7dd Mon Sep 17 00:00:00 2001
From: adam <adam@megacz.com>
Date: Wed, 28 Jan 2009 14:04:13 -0800
Subject: [PATCH] add imagec and image2 commands (may be removed later)

darcs-hash:20090128220413-5007d-b69926c0e4ee2c476438d8d7c72bf698b529452b.gz
---
 src/Html.lhs |    2 ++
 1 file changed, 2 insertions(+)

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"
-- 
1.7.10.4