forked from colonelpanic/dotfiles
[XMonad] Improve restoreAllMinimized
This commit is contained in:
@@ -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
|
||||||
|
Reference in New Issue
Block a user