[XMonad] Improve restoreAllMinimized

2016-11-29 18:32:03 -08:00
parent 0dd66e9a93
commit 361971e690
1 changed files with 1 additions and 2 deletions
--- a/dotfiles/xmonad/xmonad.hs
+++ b/dotfiles/xmonad/xmonad.hs
@@ -432,8 +432,7 @@ maybeUnminimizeClassAfter = (>> maximizeSameClassesInWorkspace)
 sameClassOnly action =
  action >> minimizeOtherClassesInWorkspace >> maximizeSameClassesInWorkspace

-restoreAllMinimized = restoreFocus $
-  withLastMinimized $ \w -> maximizeWindow w >> restoreAllMinimized
+restoreAllMinimized = void $ join $ mapM maximizeWindow <$> minimizedWindows

 restoreOrMinimizeOtherClasses = null <$> maximizedOtherClass >>=
  ifL restoreAllMinimized minimizeOtherClassesInWorkspace