colonelpanic/dotfiles
1
0
Fork 1
Code Issues Pull Requests Packages Projects Releases Wiki Activity

[XMonad] Tweak whitespace

Browse Source
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
1 changed files with 8 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
dotfiles/xmonad/xmonad.hs
View File

@ -279,7 +279,7 @@ getClassRemap =
getClassRemapF = flip maybeRemap <$> getClassRemap
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))
desiredWSName = (intercalate "|" <$>) . getWSClassNames
@ -421,10 +421,13 @@ doScratchpad = deactivateFullAnd . namedScratchpadAction scratchpads
-- Raise or spawn
myRaiseNextMaybe = ((deactivateFullAnd . maybeUnminimizeClassAfter) .) .
raiseNextMaybeCustomFocus greedyFocusWindow
myBringNextMaybe = ((deactivateFullAnd . maybeUnminimizeAfter) .) .
raiseNextMaybeCustomFocus greedyBringWindow
myRaiseNextMaybe =
((deactivateFullAnd . maybeUnminimizeClassAfter) .) .
raiseNextMaybeCustomFocus greedyFocusWindow
myBringNextMaybe =
((deactivateFullAnd . maybeUnminimizeAfter) .) .
raiseNextMaybeCustomFocus greedyBringWindow
bindBringAndRaise :: KeyMask -> KeySym -> X () -> Query Bool -> [((KeyMask, KeySym), X ())]
bindBringAndRaise mask sym start query =