New patches:

[Constrain aspect ratio when resizing
Dougal Stanton <dougal@dougalstanton.net>**20071020174307
 Use mod-shift-button3 to resize floated windows while
 constraining width and height to be equal.
] {
hunk ./Config.hs 253
-    , ((modMask, button3), (\w -> focus w >> mouseResizeWindow w))
+    , ((modMask, button3), (\w -> focus w >> mouseResizeWindow w False))
+    , ((modMask .|. shiftMask, button3), (\w -> focus w >> mouseResizeWindow w True))
hunk ./Operations.hs 618
--- | XXX comment me
-mouseResizeWindow :: Window -> X ()
-mouseResizeWindow w = whenX (isClient w) $ withDisplay $ \d -> do
+-- | Resize (floating) window with optional aspect ratio constraints.
+mouseResizeWindow :: Window -> Bool -> X ()
+mouseResizeWindow w c = whenX (isClient w) $ withDisplay $ \d -> do
hunk ./Operations.hs 626
+                 let x = ex - fromIntegral (wa_x wa)
+                     y = ey - fromIntegral (wa_y wa)
+                     sz = if c then (max x y, max x y) else (x,y)
hunk ./Operations.hs 630
-                    applySizeHints sh (ex - fromIntegral (wa_x wa),
-                                       ey - fromIntegral (wa_y wa)))
+                    applySizeHints sh sz)
}

Context:

[Only assign workspace keys up to xK_9.  Related to bug #63
Spencer Janssen <sjanssen@cse.unl.edu>**20071019083746] 
[Ignore borders in the stored RationalRects of floating windows.
Spencer Janssen <sjanssen@cse.unl.edu>**20071019063922
 Also, add 'floatWindow' which computes the actual Rectangle for that window,
 including border.
] 
[I prefer fmap over liftM
Spencer Janssen <sjanssen@cse.unl.edu>**20071019063104] 
[change 0/1/3 to named states, per X11-extras darcs head
Devin Mullins <me@twifkak.com>**20071018021651] 
[remove StackOrNot type synonymn.
David Roundy <droundy@darcs.net>**20071017201406] 
[Operations.hs: make use of notElem and notMember
Eric Mertens <emertens@galois.com>**20071017174357] 
[TAG 0.4
Spencer Janssen <sjanssen@cse.unl.edu>**20071016215343] 
Patch bundle hash:
76c85f5d5822e538348638404b43530ef511cb30