colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[XMonad] Go back to normal fullscreen (instead of DWIM)

Browse Source
This commit is contained in:
Ivan Malison 2017-04-14 21:08:11 -07:00
parent 57bb1bf7f3
commit 50e21f7fad
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
dotfiles/xmonad/xmonad.hs
View File

@ -522,6 +522,9 @@ actOnWindowsInWorkspace :: (Window -> X ())
actOnWindowsInWorkspace windowAction getWindowsAction = restoreFocus $ actOnWindowsInWorkspace windowAction getWindowsAction = restoreFocus $
withWorkspace (getWindowsAction >=> mapM_ windowAction) 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 = goFullscreenDWIM =
withWorkspace $ \ws -> do withWorkspace $ \ws -> do
wins <- windowsWithFocusedClass ws wins <- windowsWithFocusedClass ws
@ -745,7 +748,7 @@ addKeys conf@XConfig { modMask = modm } =
, ((modm, xK_g), myGoToWindow) , ((modm, xK_g), myGoToWindow)
, ((modm, xK_b), myBringWindow) , ((modm, xK_b), myBringWindow)
, ((modm .|. shiftMask, xK_b), myReplaceWindow) , ((modm .|. shiftMask, xK_b), myReplaceWindow)
, ((modm .|. controlMask, xK_space), deactivateFullOr goFullscreenDWIM) , ((modm .|. controlMask, xK_space), deactivateFullOr goFullscreen)
, ((modm, xK_m), withFocused minimizeWindow) , ((modm, xK_m), withFocused minimizeWindow)
, ((modm .|. shiftMask, xK_m), , ((modm .|. shiftMask, xK_m),
deactivateFullOr $ withLastMinimized maximizeWindowAndFocus) deactivateFullOr $ withLastMinimized maximizeWindowAndFocus)