diff options
| author | Josh Rahm <rahm@google.com> | 2022-03-28 10:51:02 -0600 |
|---|---|---|
| committer | Josh Rahm <rahm@google.com> | 2022-03-28 10:51:02 -0600 |
| commit | 3a87706dc6193636c8b5c5b37d1ca2d057a22f00 (patch) | |
| tree | 47cff87ba7ae9b2e1dc1ccc00013b4ad2f99e0ca /src/Internal/ScreenRotate.hs | |
| parent | 19b26eaa2e72e3917bd4531a3e467cf58a721ac2 (diff) | |
| download | rde-3a87706dc6193636c8b5c5b37d1ca2d057a22f00.tar.gz rde-3a87706dc6193636c8b5c5b37d1ca2d057a22f00.tar.bz2 rde-3a87706dc6193636c8b5c5b37d1ca2d057a22f00.zip | |
Move Intercept to RebindKeys. Remove the intercept subsystem as it was experimental and I do not have a real use for it anymore.
Diffstat (limited to 'src/Internal/ScreenRotate.hs')
| -rw-r--r-- | src/Internal/ScreenRotate.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/Internal/ScreenRotate.hs b/src/Internal/ScreenRotate.hs index ff6417c..8108381 100644 --- a/src/Internal/ScreenRotate.hs +++ b/src/Internal/ScreenRotate.hs @@ -2,15 +2,15 @@ module Internal.ScreenRotate where import XMonad.StackSet as W -screenRotateForward :: W.StackSet i l a sid sd -> W.StackSet i l a sid sd -screenRotateForward (W.StackSet current visible others floating) = do +screenRotateBackward :: W.StackSet i l a sid sd -> W.StackSet i l a sid sd +screenRotateBackward (W.StackSet current visible others floating) = do let screens = current : visible workspaces = tail $ cycle $ map W.workspace screens (current':visible') = zipWith (\s w -> s {workspace = w} ) screens workspaces in W.StackSet current' visible' others floating -screenRotateBackward :: W.StackSet i l a sid sd -> W.StackSet i l a sid sd -screenRotateBackward (W.StackSet current visible others floating) = do +screenRotateForward :: W.StackSet i l a sid sd -> W.StackSet i l a sid sd +screenRotateForward (W.StackSet current visible others floating) = do let screens = current : visible workspaces = rcycle $ map W.workspace screens (current':visible') = zipWith (\s w -> s {workspace = w} ) screens workspaces |