
Dear list, I've written a small layout hook for raising the currently focused window: data RaiseFocused a = RaiseFocused deriving (Read, Show) instance LayoutModifier RaiseFocused a where hook _ = asks display >>= \d -> withFocused ( io . raiseWindow d ) raiseFocused :: l a -> ModifiedLayout RaiseFocused l a raiseFocused = ModifiedLayout RaiseFocused So far, so good, yet it doesn't work. The reason lies in Operations.hs, specifically in the "windows" function: io $ restackWindows d (map fst vs) This makes all my efforts useless. For now I've put the raiseWindow line into the logHook where it works, but I think this is not the right place. Any suggestions how to improve this? Would a patch for making the restacking behaviour configurable be accepted? Restacking the windows could be easily removed from the windows function and implemented as separate module. There it would be easy to implement different stacking behaviors. Best Wishes, Jochen -- -jrk Denn meine Gedanken Zerreißen die Schranken Und Mauern entzwei: Die Gedanken sind frei.