[XMonad] Improve restoreAllMinimized

This commit is contained in:
2016-11-29 18:32:03 -08:00
parent 0dd66e9a93
commit 361971e690

View File

@@ -432,8 +432,7 @@ maybeUnminimizeClassAfter = (>> maximizeSameClassesInWorkspace)
sameClassOnly action = sameClassOnly action =
action >> minimizeOtherClassesInWorkspace >> maximizeSameClassesInWorkspace action >> minimizeOtherClassesInWorkspace >> maximizeSameClassesInWorkspace
restoreAllMinimized = restoreFocus $ restoreAllMinimized = void $ join $ mapM maximizeWindow <$> minimizedWindows
withLastMinimized $ \w -> maximizeWindow w >> restoreAllMinimized
restoreOrMinimizeOtherClasses = null <$> maximizedOtherClass >>= restoreOrMinimizeOtherClasses = null <$> maximizedOtherClass >>=
ifL restoreAllMinimized minimizeOtherClassesInWorkspace ifL restoreAllMinimized minimizeOtherClassesInWorkspace