aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Main.hs
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2007-12-29 03:33:01 +0100
committerSpencer Janssen <sjanssen@cse.unl.edu>2007-12-29 03:33:01 +0100
commit85792dc5fe5ee9d02046f059f7a2c58fbd824026 (patch)
tree89443e7edadcff927011955a9568ec4bb515a717 /XMonad/Main.hs
parentdb02e59c201d2e5f0e2fb3cac18516f42e21dcc4 (diff)
downloadxmonad-85792dc5fe5ee9d02046f059f7a2c58fbd824026.tar.gz
xmonad-85792dc5fe5ee9d02046f059f7a2c58fbd824026.tar.xz
xmonad-85792dc5fe5ee9d02046f059f7a2c58fbd824026.zip
Make focus-follows-mouse configurable
darcs-hash:20071229023301-a5988-7576eb2625061b2dcca3da69d1be4a1e50a76e71.gz
Diffstat (limited to 'XMonad/Main.hs')
-rw-r--r--XMonad/Main.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/XMonad/Main.hs b/XMonad/Main.hs
index 31dad6a..94a8a22 100644
--- a/XMonad/Main.hs
+++ b/XMonad/Main.hs
@@ -194,7 +194,8 @@ handle e@(ButtonEvent {ev_window = w,ev_event_type = t,ev_button = b })
-- entered a normal window, makes this focused.
handle e@(CrossingEvent {ev_window = w, ev_event_type = t})
| t == enterNotify && ev_mode e == notifyNormal
- && ev_detail e /= notifyInferior = focus w
+ && ev_detail e /= notifyInferior
+ = whenX (asks $ focusFollowsMouse . config) (focus w)
-- left a window, check if we need to focus root
handle e@(CrossingEvent {ev_event_type = t})