diff options
| -rw-r--r-- | XMonad/Actions/GridSelect.hs | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/XMonad/Actions/GridSelect.hs b/XMonad/Actions/GridSelect.hs index 2e77193..943c814 100644 --- a/XMonad/Actions/GridSelect.hs +++ b/XMonad/Actions/GridSelect.hs @@ -38,7 +38,7 @@ module XMonad.Actions.GridSelect ( withSelectedWindow, bringSelected, goToSelected, - gridselectViewWorkspace, + gridselectWorkspace, spawnSelected, runSelectedAction, @@ -524,8 +524,12 @@ runSelectedAction conf actions = do -- | Select a workspace and view it using the given function -- (normally 'W.view' or 'W.greedyView') -gridselectViewWorkspace :: GSConfig WorkspaceId -> +-- +-- Another option is to shift the current window to the selected workspace: +-- +-- > gridselectWorkspace (\ws -> W.greedyView ws . W.shift ws) +gridselectWorkspace :: GSConfig WorkspaceId -> (WorkspaceId -> WindowSet -> WindowSet) -> X () -gridselectViewWorkspace conf viewFunc = withWindowSet $ \ws -> do +gridselectWorkspace 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 |