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

[XMonad] Move shiftThenView

Browse Source
This commit is contained in:
Ivan Malison 2016-11-03 13:06:59 -07:00
parent 1c07627f2c
commit e05dce8fb0
No known key found for this signature in database
GPG Key ID: 62530EFBE99DC2F8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
dotfiles/xmonad/xmonad.hs
View File

@ -159,8 +159,6 @@ getWorkspaceNameFromTag namesMap tag =
Nothing -> tag
Just label -> printf "%s: %s " tag label
shiftThenView i = W.greedyView i . W.shift i
-- Toggleable fade
newtype ToggleFade = ToggleFade (M.Map Window Bool)
@ -191,6 +189,8 @@ toggleFadingForActiveWindow = withWindowSet $ \windowSet -> do
greedyFocusWindow w ws = W.focusWindow w $ W.greedyView
(fromMaybe (W.currentTag ws) $ W.findTag w ws) ws
shiftThenView i = W.greedyView i . W.shift i
shiftToEmptyAndView = doTo Next EmptyWS DWO.getSortByOrder (windows . shiftThenView)
myRaiseNextMaybe = raiseNextMaybeCustomFocus greedyFocusWindow