--- My workspaces, same as default ones. Used below in myKeys.
-myWorkspaces = ["1", "2", "3", "4", "5", "6", "7", "8", "9"]
+-- Switch to next layout, but skip all layouts not in layouts argument. This
+-- allows switching to some layouts with mappings but excluding them from
+-- meta-space (which gets mapped to this function). Thanks to aavogt in
+-- #xmonad on Freenode for this function (2011-06-13 12:45 CEST) and
+-- rootzlevel in #xmonad on Freenode for fixes (2011-06-13 15:20 CEST),
+-- modified to take list of layouts to switch to, not layouts to exclude.
+nextLayoutIncluding :: [String] -> X ()
+nextLayoutIncluding layouts = do
+ cws <- gets (W.workspace . W.current . windowset)
+ sendMessageWithNoRefresh NextLayout cws
+ nextLayoutIncluding' layouts 1000 -- nobody has more than 1000 layouts
+
+nextLayoutIncluding' :: [String] -> Int -> X ()
+nextLayoutIncluding' layouts iterations = do
+ cws <- gets (W.workspace . W.current . windowset)
+ -- iterations prevents an endless loop if no valid layout can be found.
+ if not ((description $ W.layout cws) `elem` layouts) && iterations > 0
+ -- Skip over excluded layouts.
+ then do
+ sendMessageWithNoRefresh NextLayout cws
+ nextLayoutIncluding' layouts (iterations - 1)
+ -- Found allowed layout, show it.
+ else refresh