diff --git a/README b/README
--- a/README
+++ b/README
@@ -8,5 +8,5 @@
   http://slavepianos.org/rd/
   http://haskell.org/
 
-(c) rohan drape, 2006-2009
+(c) rohan drape, 2006-2010
     gpl, http://gnu.org/copyleft/
diff --git a/Text/HTML/Light/Attribute.hs b/Text/HTML/Light/Attribute.hs
--- a/Text/HTML/Light/Attribute.hs
+++ b/Text/HTML/Light/Attribute.hs
@@ -6,6 +6,9 @@
 
 import Text.XML.Light
 
+action :: String -> Attr
+action = Attr (unqual "action")
+
 align :: String -> Attr
 align = Attr (unqual "align")
 
@@ -31,6 +34,9 @@
 content :: String -> Attr
 content = Attr (unqual "content")
 
+coords :: String -> Attr
+coords = Attr (unqual "coords")
+
 -- | 'data' is a reserved word.
 data' :: String -> Attr
 data' = Attr (unqual "data")
@@ -56,6 +62,9 @@
 media :: String -> Attr
 media = Attr (unqual "media")
 
+method :: String -> Attr
+method = Attr (unqual "method")
+
 name :: String -> Attr
 name = Attr (unqual "name")
 
@@ -68,6 +77,9 @@
 rowspan :: String -> Attr
 rowspan = Attr (unqual "rowspan")
 
+shape :: String -> Attr
+shape = Attr (unqual "shape")
+
 -- | 'span' is the name of both an attribute and element.
 span' :: String -> Attr
 span' = Attr (unqual "span")
@@ -89,6 +101,9 @@
 -- | 'type' is a reserved word.
 type' :: String -> Attr
 type' = Attr (unqual "type")
+
+usemap :: String -> Attr
+usemap = Attr (unqual "usemap")
 
 valign :: String -> Attr
 valign = Attr (unqual "valign")
diff --git a/Text/HTML/Light/Constant.hs b/Text/HTML/Light/Constant.hs
--- a/Text/HTML/Light/Constant.hs
+++ b/Text/HTML/Light/Constant.hs
@@ -9,10 +9,34 @@
 copy :: Content
 copy = Text (CData CDataRaw "©" Nothing)
 
--- | The left arrow character.
+-- | The down arrow character.
+darr :: Content
+darr = Text (CData CDataRaw "↓" Nothing)
+
+-- | The double down arrow character.
+dArr :: Content
+dArr = Text (CData CDataRaw "⇓" Nothing)
+
+-- | The degree character.
+deg :: Content
+deg = Text (CData CDataRaw "°" Nothing)
+
+-- | The left double arrow character.
 larr :: Content
 larr = Text (CData CDataRaw "←" Nothing)
 
+-- | The empty set symbol.
+empty :: Content
+empty = Text (CData CDataRaw "∅" Nothing)
+
+-- | The left arrow character.
+lArr :: Content
+lArr = Text (CData CDataRaw "⇐" Nothing)
+
+-- | The right double angle quote character.
+laquo :: Content
+laquo = Text (CData CDataRaw "«" Nothing)
+
 -- | The non-breaking space character.
 nbsp :: Content
 nbsp = Text (CData CDataRaw " " Nothing)
@@ -20,6 +44,22 @@
 -- | The right arrow character.
 rarr :: Content
 rarr = Text (CData CDataRaw "→" Nothing)
+
+-- | The right double arrow character.
+rArr :: Content
+rArr = Text (CData CDataRaw "⇒" Nothing)
+
+-- | The right double angle quote character.
+raquo :: Content
+raquo = Text (CData CDataRaw "»" Nothing)
+
+-- | The up arrow character.
+uarr :: Content
+uarr = Text (CData CDataRaw "↑" Nothing)
+
+-- | The up double arrow character.
+uArr :: Content
+uArr = Text (CData CDataRaw "⇑" Nothing)
 
 -- * Version and document type strings
 
diff --git a/Text/HTML/Light/Element.hs b/Text/HTML/Light/Element.hs
--- a/Text/HTML/Light/Element.hs
+++ b/Text/HTML/Light/Element.hs
@@ -7,6 +7,9 @@
 a :: [Attr] -> [Content] -> Content
 a z e = Elem (Element (unqual "a") z e Nothing)
 
+area :: [Attr] -> Content
+area z = Elem (Element (unqual "area") z [] Nothing)
+
 body :: [Attr] -> [Content] -> Content
 body z e = Elem (Element (unqual "body") z e Nothing)
 
@@ -25,6 +28,15 @@
 embed :: [Attr] -> Content
 embed z = Elem (Element (unqual "embed") z [] Nothing)
 
+form :: [Attr] -> [Content] -> Content
+form z e = Elem (Element (unqual "form") z e Nothing)
+
+frame :: [Attr] -> Content
+frame z = Elem (Element (unqual "frame") z [] Nothing)
+
+frameset :: [Attr] -> Content
+frameset z = Elem (Element (unqual "frameset") z [] Nothing)
+
 h1 :: [Attr] -> [Content] -> Content
 h1 z c = Elem (Element (unqual "h1") z c Nothing)
 
@@ -46,11 +58,17 @@
 img :: [Attr] -> Content
 img z = Elem (Element (unqual "img") z [] Nothing)
 
+input :: [Attr] -> Content
+input z = Elem (Element (unqual "input") z [] Nothing)
+
 li :: [Attr] -> [Content] -> Content
 li z e = Elem (Element (unqual "li") z e Nothing)
 
 link :: [Attr] -> Content
 link z = Elem (Element (unqual "link") z [] Nothing)
+
+map :: [Attr] -> [Content] -> Content
+map z e = Elem (Element (unqual "map") z e Nothing)
 
 meta :: [Attr] -> Content
 meta z = Elem (Element (unqual "meta") z [] Nothing)
diff --git a/html-minimalist.cabal b/html-minimalist.cabal
--- a/html-minimalist.cabal
+++ b/html-minimalist.cabal
@@ -1,5 +1,5 @@
 Name:              html-minimalist
-Version:           0.1
+Version:           0.2
 Synopsis:          Minimalist haskell html library
 Description:       Text.HTML.Light is a very simple Haskell module 
                    for writing [x]html documents.  It provides 
@@ -7,22 +7,26 @@
                    in terms of Text.XML.Light.
 License:           GPL
 Category:          Text
-Copyright:         (c) Rohan Drape, 2006-2009
+Copyright:         (c) Rohan Drape, 2006-2010
 Author:            Rohan Drape
 Maintainer:        rd@slavepianos.org
 Stability:         Experimental
-Homepage:          http://slavepianos.org/rd/f/592566/
-Tested-With:       GHC == 6.8.2
+Homepage:          http://slavepianos.org/rd/?t=html-minimalist
+Tested-With:       GHC == 6.10.3
 Build-Type:        Simple
 Cabal-Version:     >= 1.6
 
 Data-files:        README
 
 Library
-  Build-Depends:   base == 3.*,
+  Build-Depends:   base == 4.*,
                    xml
   GHC-Options:     -Wall -fwarn-tabs
   Exposed-modules: Text.HTML.Light
                    Text.HTML.Light.Attribute
                    Text.HTML.Light.Constant
                    Text.HTML.Light.Element
+
+Source-Repository  head
+  Type:            darcs
+  Location:        http://slavepianos.org/rd/sw/html-minimalist