From b6956d20340d180fb99afcbdbdef24d10edb1a4c Mon Sep 17 00:00:00 2001 From: Daniel Schoepe Date: Mon, 9 Nov 2009 16:58:15 +0100 Subject: Add gridselectViewWorkspace in X.A.GridSelect Ignore-this: 5543211e9e3fd325cb798b004635a525 darcs-hash:20091109155815-7f603-3268ca3679728a4493365b98bdfef4066f8fef0f.gz --- XMonad/Actions/GridSelect.hs | 9 +++++++++ 1 file changed, 9 insertions(+) (limited to 'XMonad/Actions/GridSelect.hs') diff --git a/XMonad/Actions/GridSelect.hs b/XMonad/Actions/GridSelect.hs index 0419f7c..2e77193 100644 --- a/XMonad/Actions/GridSelect.hs +++ b/XMonad/Actions/GridSelect.hs @@ -38,6 +38,7 @@ module XMonad.Actions.GridSelect ( withSelectedWindow, bringSelected, goToSelected, + gridselectViewWorkspace, spawnSelected, runSelectedAction, @@ -520,3 +521,11 @@ runSelectedAction conf actions = do case selectedActionM of Just selectedAction -> selectedAction Nothing -> return () + +-- | Select a workspace and view it using the given function +-- (normally 'W.view' or 'W.greedyView') +gridselectViewWorkspace :: GSConfig WorkspaceId -> + (WorkspaceId -> WindowSet -> WindowSet) -> X () +gridselectViewWorkspace conf viewFunc = withWindowSet $ \ws -> do + let wss = map W.tag $ W.hidden ws ++ map W.workspace (W.current ws : W.visible ws) + gridselect conf (zip wss wss) >>= flip whenJust (windows . viewFunc) \ No newline at end of file -- cgit v1.2.3