diff --git a/dotfiles/xmonad/xmonad.hs b/dotfiles/xmonad/xmonad.hs index ae2c7054..c6b5906e 100644 --- a/dotfiles/xmonad/xmonad.hs +++ b/dotfiles/xmonad/xmonad.hs @@ -522,6 +522,9 @@ actOnWindowsInWorkspace :: (Window -> X ()) actOnWindowsInWorkspace windowAction getWindowsAction = restoreFocus $ withWorkspace (getWindowsAction >=> mapM_ windowAction) +-- XXX: The idea behind this was that the normal fullscreen can be annoying if a +-- new window opens, but this behavior is even more annoying than that, so +-- nevermind goFullscreenDWIM = withWorkspace $ \ws -> do wins <- windowsWithFocusedClass ws @@ -745,7 +748,7 @@ addKeys conf@XConfig { modMask = modm } = , ((modm, xK_g), myGoToWindow) , ((modm, xK_b), myBringWindow) , ((modm .|. shiftMask, xK_b), myReplaceWindow) - , ((modm .|. controlMask, xK_space), deactivateFullOr goFullscreenDWIM) + , ((modm .|. controlMask, xK_space), deactivateFullOr goFullscreen) , ((modm, xK_m), withFocused minimizeWindow) , ((modm .|. shiftMask, xK_m), deactivateFullOr $ withLastMinimized maximizeWindowAndFocus)