From 3a87706dc6193636c8b5c5b37d1ca2d057a22f00 Mon Sep 17 00:00:00 2001 From: Josh Rahm Date: Mon, 28 Mar 2022 10:51:02 -0600 Subject: Move Intercept to RebindKeys. Remove the intercept subsystem as it was experimental and I do not have a real use for it anymore. --- src/Internal/ScreenRotate.hs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'src/Internal/ScreenRotate.hs') 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 -- cgit