add function to rename workspaces.
add function to rename workspaces.

darcs-hash:20071018145604-72aca-d28097e49bc8ba0a939dcc87cbd6fd791682494b

yzhou61/xmonad-contrib,yzhou61/xmonad-contrib,yzhou61/xmonad-contrib