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

[XMonad] Eliminate case statement

Browse Source
This commit is contained in:
Ivan Malison 2016-11-25 17:28:01 -08:00
parent 31d039b0b2
commit 1065ee6937
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
dotfiles/xmonad/xmonad.hs
View File

@ -359,10 +359,8 @@ maybeUnminimizeClassAfter = (>> maximizeSameClassesInWorkspace)
restoreAllMinimized = restoreFocus $
withLastMinimized $ \w -> maximizeWindow w >> restoreAllMinimized
restoreOrMinimizeOtherClasses = withLastMinimized' $ \mw ->
case mw of
Just _ -> restoreAllMinimized
Nothing -> minimizeOtherClassesInWorkspace
restoreOrMinimizeOtherClasses = withLastMinimized' $
maybe restoreAllMinimized (`seq` minimizeOtherClassesInWorkspace)
-- Window switching