(require 'gnome)
(require 'gnome-menu)
(require 'iswitch-window)
(require 'sawmill-defaults)
(require 'sawfish.wm.keymaps)
(require 'menus)

(bind-keys global-keymap
	"C-M-Home" '(system "gnome-terminal --geometry 80x52 &"))
(bind-keys global-keymap
	"C-M-Insert" '(system "multi-gnome-terminal --geometry 80x60 &"))
(bind-keys global-keymap
	"C-R" '(system "gnome-run &"))
(bind-keys global-keymap
	"C-Esc" 'iswitch-window)

;; XMMS Keypad
(bind-keys global-keymap
	"M-KP_Up" '(system "xmms_google_cur &"))
(bind-keys global-keymap
	"M-KP_Left" '(system "xmms_prev_song &"))
(bind-keys global-keymap
	"M-KP_Right" '(system "xmms_next_song &"))
(bind-keys global-keymap
	"M-KP_Down" '(system "xmms_stop_song &"))
(bind-keys global-keymap
	"M-KP_End" '(system "xmms_rew_song &"))
(bind-keys global-keymap
	"M-KP_Next" '(system "xmms_ff_song &"))
(bind-keys global-keymap
	"M-KP_Begin" '(system "xmms_play_pause &"))
(bind-keys global-keymap
	"M-KP_Multiply" '(system "xmms_cur_song &"))
(bind-keys global-keymap
	"M-KP_Add" '(system "xmms_vol_up &"))
(bind-keys global-keymap
	"M-KP_Subtract" '(system "xmms_vol_down &"))
(bind-keys global-keymap
	"M-KP_Divide" '(system "xmms_load_m3u &"))

(custom-set-variable (quote menu-program-stays-running) (quote t))

(defvar gmenu-menu `(
("_User Menu" . user-menu)
("_Games" . gmenu-Games-menu)
("_Applications" . gmenu-Applications-menu)
("G_raphics" . gmenu-Graphics-menu)
()
("Help system" (system "gnome-help-browser &"))
("Run program..." (system "gnome-run &"))
("Restart Sawfish" restart)
))

(defvar user-menu `(
("X-Chat" (system "xchat &"))
("gFTP" (system "gftp &"))
("Galeon" (system "galeon &"))
("Gaim" (system "gaim &"))
("XMMS" (system "xmms &"))
("Licq" (system "licq -p qt-gui &"))
("Netscape" (system "netscape &"))
))

(defvar gmenu-Applications-menu `(
("StarOffice" (system "/usr/lib/openoffice/program/soffice &"))
))

(defvar gmenu-Games-menu `(
("Angband" (system "/usr/local/games/angband/ang1.sh &"))
("pysol" (system "pysol &"))
("TetriNet" (system "/usr/bin/gtetrinet &"))
("FreeCell" (system "freecell &"))
("gataxx" (system "gataxx &"))
("Glines" (system "glines &"))
("Gnibbles" (system "gnibbles &"))
("GnobotsII" (system "gnobots2 &"))
("Gnome Chess" (system "gnome-chess &"))
("Gnome-Stones" (system "gnome-stones &"))
("Gnome Mines" (system "gnomine &"))
("Master Mind" (system "gnommind  &"))
("Gnotravex" (system "gnotravex &"))
("Gnotski" (system "gnotski &"))
("GTali" (system "gtali &"))
("gTuring" (system "gturing &"))
("Iagno" (system "iagno &"))
("Mahjongg" (system "mahjongg &"))
("Same Gnome" (system "same-gnome &"))
("AisleRiot" (system "sol &"))
("Gnome xBill" (system "gnome-xbill &"))
))

(defvar gmenu-Graphics-menu `(
("GQview" (system "gqview &"))
("The GIMP" (system "gimp &"))
("Electric Eyes" (system "ee &"))
))

(defun popup-gnome-menu ()
  "Display the gnome menu."
    (interactive)
	    (if gnome-menus
			(popup-menu gnome-menus)
			(beep)))

(defun popup-gmenu-menu ()
  "Display the user menu."
    (interactive)
	    (if gmenu-menu
			(popup-menu gmenu-menu)
			(beep)))

(custom-set-keymap 
    (quote root-window-keymap) 
	    (quote (keymap 
		    (popup-gmenu-menu . "Button1-Click1")
			(popup-root-menu . "Button2-Click1")
			(popup-gnome-menu . "Button3-Click1"))))