forked from colonelpanic/dotfiles
[XMonad] Tweak whitespace
This commit is contained in:
parent
139aa97c5d
commit
1b7ba4e27a
@ -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 ())]
|
||||||
|
Loading…
Reference in New Issue
Block a user