From f9b0fda659debda45a052b22f8320b629c61c332 Mon Sep 17 00:00:00 2001 From: James Bunton Date: Thu, 30 Mar 2017 19:58:04 +1100 Subject: [PATCH] xmonad: cycleRecentWorkspaceOnSingleScreen --- .xmonad/xmonad.hs | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs index 7fa7a65..9c96c65 100644 --- a/.xmonad/xmonad.hs +++ b/.xmonad/xmonad.hs @@ -52,7 +52,7 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $ ((modm , xK_period), sendMessage (IncMasterN (-1))), ((modm , xK_b ), sendMessage ToggleStruts), ((modm , xK_z ), sendMessage Mag.Toggle), - ((modm , xK_a), cycleRecentWS [xK_Super_L] xK_a xK_a) + ((modm , xK_a), cycleRecentWorkspaceOnSingleScreen [xK_Super_L] xK_a xK_a) ] ++ @@ -71,6 +71,10 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $ , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)] ] +cycleRecentWorkspaceOnSingleScreen = cycleWindowSets options + where + options w = map (W.view `flip` w) (recentTags w) + recentTags w = map W.tag $ W.hidden w ++ [W.workspace (W.current w)] avoidMaster = W.modify' $ \c -> case c of W.Stack t [] (r:rs) -> W.Stack t [r] rs -- 2.39.2