;; -*- lisp -*-
(require 'sawmill-defaults)

(bind-keys global-keymap
	   "C-F1" 
	   '(system 
	     "wterm -ls -T arnaud@carrosse.in.glou.org -n arnaud@carrosse &"))
(bind-keys global-keymap
	   "C-F2" '(system "$HOME/bin/emacs.sh &"))
(bind-keys global-keymap
	   "C-F3" '(system "netscape &"))
(bind-keys global-keymap
	   "C-F4" '(system "xmms &"))
(bind-keys global-keymap
	   "C-F5" '(system "gnomeicu -a &"))
(bind-keys global-keymap
	   "C-F6" '(system "gimp &"))
(bind-keys global-keymap
	   "C-F7" '(system "gnapster &"))
(bind-keys global-keymap
	   "C-F8" '(system "netscape3 &"))
(bind-keys global-keymap
	   "C-F9" '(system "cd /opt/mozilla ; ./mozilla &"))
(bind-keys global-keymap
	   "C-F10" '(system "$HOME/bin/bbsol &"))
(bind-keys global-keymap
	   "C-F11" '(system "kfm -w &"))
(bind-keys global-keymap
	   "C-F12" '(system "vmware &"))

(defvar apps-menu
  `(("wterm" 
     (system "wterm -ls -T arnaud@carrosse.in.glou.org -n arnaud@carrosse &"))
    ("XEmacs" 
     (system "$HOME/bin/emacs.sh &"))
    ("Netscape" 
     (system "netscape &"))
    ("The GIMP" 
     (system "gimp &"))
    ("Xmms"
     (system "xmms &"))
    ("ICQ"
     (system "gnomeicu -a &"))
    ("GNapster"
     (system "gnapster &"))
    ("Netscape 3"
     (system "netscape3 &"))
    ("Mozilla"
     (system "cd /opt/mozilla ; ./mozilla &"))
    ("VMWare"
     (system "vmware &"))
    ("BBSprocess"
     (system "$HOME/bin/bbsol &"))))

;; Le truc à menus reste en mémoire indéfiniment ; ça accélère
;; l'affichage des menus.
(setq menu-program-stays-running t)