[sawfish] revamped root menu

[Christopher Bratusek <chrisb src gnome org>]

commit 90aa0c7b85772958e44843269b757ca2b9b7546e
Author: chrisb <zanghar freenet de>
Date:   Sun Aug 30 21:28:37 2009 +0200

    revamped root menu

 lisp/sawfish/wm/menus.jl |   53 +++++++++++++++++++++++++++++++++------------
 1 files changed, 39 insertions(+), 14 deletions(-)
---
diff --git a/lisp/sawfish/wm/menus.jl b/lisp/sawfish/wm/menus.jl
index c2047bf..37ffbf6 100644
--- a/lisp/sawfish/wm/menus.jl
+++ b/lisp/sawfish/wm/menus.jl
@@ -44,7 +44,9 @@
 	  sawfish.wm.util.groups
 	  sawfish.wm.workspace
 	  sawfish.wm.state.maximize
-	  sawfish.wm.state.iconify)
+	  sawfish.wm.state.iconify
+	  sawfish.wm.commands.user
+	  sawfish.wm.ext.error-handler)
 
   (define-structure-alias menus sawfish.wm.menus)
 
@@ -101,12 +103,34 @@ before killing it.")
       (,(_ "In _group") . window-group-menu)
       (,(_ "_Send window to")
        (,(_ "_Previous workspace") send-to-previous-workspace)
-       (,(_ "_Next workspace") send-to-next-workspace)
-       (,(_ "Copy to p_revious") copy-to-previous-workspace)
-       (,(_ "Copy to ne_xt") copy-to-next-workspace))
+       (,(_ "_Next workspace") send-to-next-workspace))
+      (,(_ "C_opy window to")
+       (,(_ "P_revious workspace") copy-to-previous-workspace)
+       (,(_ "Ne_xt workspace") copy-to-next-workspace))
+      (,(_ "_Grow & Pack")
+       (,(_ "Grow left") grow-window-left)
+      (,(_ "Grow right") grow-window-right)
+      (,(_ "Grow up") grow-window-up)
+      (,(_ "Grow down") grow-window-down)
+      ()
+      (,(_ "Pack left") pack-window-left)
+      (,(_ "Pack right") pack-window-right)
+      (,(_ "Pack up") pack-window-up)
+      (,(_ "Pack down") pack-window-down))
+      (,(_ "Shrink & _Yank")
+       (,(_ "Shrink left") shrink-window-left)
+      (,(_ "Shrink right") shrink-window-right)
+      (,(_ "Shrink up") shrink-window-up)
+      (,(_ "Shrink down") shrink-window-down)
+      ()
+      (,(_ "Yank left") yank-window-left)
+      (,(_ "Yank right") yank-window-right)
+      (,(_ "Yank up") yank-window-up)
+      (,(_ "Yank down") yank-window-down))
       (,(_ "Stac_king")
        (,(_ "_Raise") raise-window)
        (,(_ "_Lower") lower-window)
+       ()
        (,(_ "_Upper layer") raise-window-depth)
        (,(_ "Lo_wer layer") lower-window-depth))
       (,(_ "Frame ty_pe") . frame-type-menu)
@@ -117,29 +141,30 @@ before killing it.")
   (defvar window-menu nil)
 
   (defvar root-menu
-    `((,(_ "_Windows") . window-menu)
+    `((,(_ "Sawfish Rootmenu"))
+      ()
+      (,(_ "_Windows") . window-menu)
       (,(_ "Work_spaces") . workspace-menu)
+      ()
       (,(_ "_Programs") . apps-menu)
       (,(_ "_Customize") . custom-menu)
+      ()
       (,(_ "_Help")
        (,(_ "_FAQ...") help:show-faq)
        (,(_ "_News...") help:show-news)
        (,(_ "_WWW page...") help:show-homepage)
        (,(_ "_Manual...") help:show-programmer-manual)
+       ()
        (,(_ "_About Sawfish...") help:about))
       ()
+      (,(_ "_Display Errors") display-errors)
+      (,(_ "_Kill Window") (system "xkill &"))
+      ()
       (,(_ "_Restart") restart)
       (,(_ "_Quit") quit)))
 
-  (defvar apps-menu
-    `(("xterm" (system "xterm &"))
-      ("Emacs" (system "emacs &"))
-      ("Netscape" (system "netscape &"))
-      ("The GIMP" (system "gimp &"))
-      ("XFIG" (system "xfig &"))
-      ("GV" (system "gv &"))
-      ("xcalc" (system "xcalc &"))))
-
+  (defvar apps-menu)
+  
   (define (menu-start-process)
     (when menu-timer
       (delete-timer menu-timer)