summaryrefslogtreecommitdiffstats
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
commitc6eae4cb51073cfec1fde1bd6bd8f28a131a2ab4 (patch)
tree89443e7edadcff927011955a9568ec4bb515a717 /XMonad/Main.hs
parent8e52f7e22c28300dccf283baa1c19076d390c5b8 (diff)
downloadmetatile-c6eae4cb51073cfec1fde1bd6bd8f28a131a2ab4.tar
metatile-c6eae4cb51073cfec1fde1bd6bd8f28a131a2ab4.zip
Make focus-follows-mouse configurable
darcs-hash:20071229023301-a5988-7576eb2625061b2dcca3da69d1be4a1e50a76e71
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})