[XMonad] Fix several >80 whitespace lines

This commit is contained in:
Ivan Malison 2016-11-26 09:54:12 -08:00
parent 7fa87fd82c
commit 33b619663e
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -259,12 +259,13 @@ myDecorateName ws w = do
-- done with the existing window bringer interface -- done with the existing window bringer interface
myBringWindow WindowBringerConfig { menuCommand = cmd myBringWindow WindowBringerConfig { menuCommand = cmd
, menuArgs = args , menuArgs = args
, windowTitler = titler , windowTitler = titler } =
} =
windowMap' titler >>= DM.menuMapArgs cmd args >>= flip whenJust action windowMap' titler >>= DM.menuMapArgs cmd args >>= flip whenJust action
where action window = sequence_ [ maximizeWindow window where
, windows $ W.focusWindow window . action window =
bringWindow window sequence_
[ maximizeWindow window
, windows $ W.focusWindow window . bringWindow window
] ]
-- Dynamic Workspace Renaming -- Dynamic Workspace Renaming
@ -345,7 +346,9 @@ maximizeSameClassesInWorkspace =
actOnWindowsInWorkspace maybeUnminimize windowsWithFocusedClass actOnWindowsInWorkspace maybeUnminimize windowsWithFocusedClass
-- Type annotation is needed to resolve ambiguity -- Type annotation is needed to resolve ambiguity
actOnWindowsInWorkspace :: (Window -> X ()) -> (W.Stack Window -> X [Window]) -> X () actOnWindowsInWorkspace :: (Window -> X ())
-> (W.Stack Window -> X [Window])
-> X ()
actOnWindowsInWorkspace windowAction getWindowsAction = restoreFocus $ actOnWindowsInWorkspace windowAction getWindowsAction = restoreFocus $
withWorkspace (getWindowsAction >=> mapM_ windowAction) withWorkspace (getWindowsAction >=> mapM_ windowAction)
@ -466,7 +469,6 @@ addKeys conf@XConfig {modMask = modm} =
, ((modm, xK_z), shiftToNextScreen) , ((modm, xK_z), shiftToNextScreen)
, ((modm, xK_x), windows $ W.shift "NSP") , ((modm, xK_x), windows $ W.shift "NSP")
, ((modm .|. shiftMask, xK_h), shiftToEmptyAndView) , ((modm .|. shiftMask, xK_h), shiftToEmptyAndView)
-- These need to be rebound to support boringWindows -- These need to be rebound to support boringWindows
, ((modm, xK_j), focusDown) , ((modm, xK_j), focusDown)
, ((modm, xK_k), focusUp) , ((modm, xK_k), focusUp)