[XMonad] Fix whitepace

This commit is contained in:
Ivan Malison 2016-11-24 15:21:47 -08:00
parent 1fe456c42e
commit 21204e420e
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -301,12 +301,12 @@ toggleFadingForActiveWindow = withWindowSet $ \windowSet -> do
-- Minimize not in class
restoreFocus action = withFocused $ \orig -> action >> windows (W.focusWindow orig)
restoreFocus action =
withFocused $ \orig -> action >> windows (W.focusWindow orig)
getCurrentWS = W.stack . W.workspace . W.current
withWorkspace f = withWindowSet $ \ws ->
maybe (return ()) f (getCurrentWS ws)
withWorkspace f = withWindowSet $ \ws -> maybe (return ()) f (getCurrentWS ws)
minimizeOtherClassesInWorkspace =
actOnWindowsInWorkspace minimizeWindow windowsWithUnfocusedClass