forked from colonelpanic/dotfiles
[XMonad] Move shiftThenView
This commit is contained in:
parent
1c07627f2c
commit
e05dce8fb0
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user