Add some optional startup commands for VMs, and remove scroll-wheel desktop change, since I never use it and it is occasionally annoying.

sawfish/rc

@@ -3,8 +3,12 @@
 ;;; Programs to run on startup
 (system "setxkbmap dvorak")
 (system "setxkbmap -option compose:caps")
-; (system "xscreensaver &")
 (system "lxpanel &")
+; (system "xscreensaver &")
+
+;; For VMs
+; (system "xset s off")
+; (system "xset -dpms")
 
 
 ;;; Custom functions
@@ -117,11 +121,6 @@
   "Super-n"     build-new-workspace
 )
 
-; Mouse bindings
-(bind-keys root-window-keymap
-  "Button4-Click1" '(previous-workspace 1)
-  "Button5-Click1" '(next-workspace 1) )
-
 ; Given a list of paired letter-command items, returns a new list of paired
 ; letter-function items, where each anonymous function calls the passed
 ; function with the original string as its argument