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
1 changed files with 2 additions and 2 deletions
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 Nothing -> tag
Just label -> printf "%s: %s " tag label Just label -> printf "%s: %s " tag label
shiftThenView i = W.greedyView i . W.shift i
-- Toggleable fade -- Toggleable fade
newtype ToggleFade = ToggleFade (M.Map Window Bool) newtype ToggleFade = ToggleFade (M.Map Window Bool)
@@ -191,6 +189,8 @@ toggleFadingForActiveWindow = withWindowSet $ \windowSet -> do
greedyFocusWindow w ws = W.focusWindow w $ W.greedyView greedyFocusWindow w ws = W.focusWindow w $ W.greedyView
(fromMaybe (W.currentTag ws) $ W.findTag w ws) ws (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) shiftToEmptyAndView = doTo Next EmptyWS DWO.getSortByOrder (windows . shiftThenView)
myRaiseNextMaybe = raiseNextMaybeCustomFocus greedyFocusWindow myRaiseNextMaybe = raiseNextMaybeCustomFocus greedyFocusWindow