Permalink
Browse files

Switching groups via mode line (by scrolling) - make sure %g is in yo…

…ur mode line format str
  • Loading branch information...
1 parent 95eb0e4 commit b500f790e5027c2c59ab74a2ac0d99adf11573b1 root committed May 31, 2009
Showing with 8 additions and 0 deletions.
  1. +8 −0 .stumpwmrc
View
@@ -41,6 +41,14 @@
;; Load Mode line
(load "/home/joel/repository/stumpwm-goodies/mode-line/modeline-config.lisp")
+;; Modeline Group Scrolling
+(setf stumpwm:*mode-line-click-hook*
+ (list (lambda (&rest args)
+ (cond ((eq (second args) 5)
+ (run-commands "gnext"))
+ ((eq (second args) 4)
+ (run-commands "gprev"))))))
+
;; Theming
(load "/home/joel/repository/stumpwm-goodies/effects.lisp")

0 comments on commit b500f79

Please sign in to comment.