[XMonad] Tweak whitespace

This commit is contained in:
Ivan Malison 2016-11-25 20:22:08 -08:00
parent 139aa97c5d
commit 1b7ba4e27a
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8

View File

@ -279,7 +279,7 @@ getClassRemap =
getClassRemapF = flip maybeRemap <$> getClassRemap getClassRemapF = flip maybeRemap <$> getClassRemap
getWSClassNames' w = mapM getClass $ W.integrate' $ W.stack w getWSClassNames' w = mapM getClass $ W.integrate' $ W.stack w
getWSClassNames w = io ( fmap map getClassRemapF) <*> getWSClassNames' w getWSClassNames w = io (fmap map getClassRemapF) <*> getWSClassNames' w
currentWSName ws = fromMaybe "" <$> (getWorkspaceNames' <*> pure (W.tag ws)) currentWSName ws = fromMaybe "" <$> (getWorkspaceNames' <*> pure (W.tag ws))
desiredWSName = (intercalate "|" <$>) . getWSClassNames desiredWSName = (intercalate "|" <$>) . getWSClassNames
@ -421,9 +421,12 @@ doScratchpad = deactivateFullAnd . namedScratchpadAction scratchpads
-- Raise or spawn -- Raise or spawn
myRaiseNextMaybe = ((deactivateFullAnd . maybeUnminimizeClassAfter) .) . myRaiseNextMaybe =
((deactivateFullAnd . maybeUnminimizeClassAfter) .) .
raiseNextMaybeCustomFocus greedyFocusWindow raiseNextMaybeCustomFocus greedyFocusWindow
myBringNextMaybe = ((deactivateFullAnd . maybeUnminimizeAfter) .) .
myBringNextMaybe =
((deactivateFullAnd . maybeUnminimizeAfter) .) .
raiseNextMaybeCustomFocus greedyBringWindow raiseNextMaybeCustomFocus greedyBringWindow
bindBringAndRaise :: KeyMask -> KeySym -> X () -> Query Bool -> [((KeyMask, KeySym), X ())] bindBringAndRaise :: KeyMask -> KeySym -> X () -> Query Bool -> [((KeyMask, KeySym), X ())]