diff options
| author | Josh Rahm <rahm@google.com> | 2022-03-28 10:51:02 -0600 |
|---|---|---|
| committer | Josh Rahm <joshuarahm@gmail.com> | 2022-10-09 12:19:45 -0600 |
| commit | 6ecbc80109cd0136518cddb23bf26f057a39308d (patch) | |
| tree | 47cff87ba7ae9b2e1dc1ccc00013b4ad2f99e0ca /src/Internal/ScreenRotate.hs | |
| parent | db91a7d1f64d244106144cfb9e8d26c3d8aaccbe (diff) | |
| download | rde-6ecbc80109cd0136518cddb23bf26f057a39308d.tar.gz rde-6ecbc80109cd0136518cddb23bf26f057a39308d.tar.bz2 rde-6ecbc80109cd0136518cddb23bf26f057a39308d.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 |