Настраиваю xmonad. В данном вм тайловые окна упакованы в стек. Цель: очень хочется (если интересно почему - то Управление фокусом окна в режиме тайлинга) чтобы окно, на которое переходит фокус, автоматически отправлялось на вершину стека, т е становилось master окном. Для этого есть вот такая ф-ция
shiftMaster :: StackSet i l a s sd -> StackSet i l a s sd
windows :: (WindowSet -> WindowSet) -> X ()
focusWindowHook::X()
focusWindowHook = do
myset <- gets windowset
let newcur = (W.peek myset)
if newcur == Nothing
then windows (\x -> x)
else windows W.shiftMaster
logHook = --status bar config
myTopLeftLogHook topLeftBar <+> --top left dzen
myTopRightLogHook topRightBar <+> --top right dzen
myBotLeftLogHook botLeftBar <+> --bottom left dzen
myBotRightLogHook botRightBar <+> --bottom right dzen
ewmhDesktopsLogHook >>
focusWindowHook >>
setWMName "LG3D"