twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-01 20:51:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

allow users to go to dynamically-added workspaces with mod-n.

Browse Source
This commit is contained in:
David Roundy
2007-10-16 23:03:01 +00:00
parent e43eabfd93
commit 763a952c80
1 changed files with 23 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
DynamicWorkspaces.hs
View File

@@ -17,12 +17,14 @@ module XMonadContrib.DynamicWorkspaces (
-- * Usage -- * Usage
-- $usage -- $usage
addWorkspace, removeWorkspace, addWorkspace, removeWorkspace,
selectWorkspace selectWorkspace,
toNthWorkspace, withNthWorkspace
) where ) where
import Control.Monad.State ( gets ) import Control.Monad.State ( gets )
import Data.List ( sort )
import XMonad ( X, XState(..), Layout, WorkspaceId ) import XMonad ( X, XState(..), Layout, WorkspaceId, WindowSet )
import Operations import Operations
import StackSet hiding (filter, modify, delete) import StackSet hiding (filter, modify, delete)
import Graphics.X11.Xlib ( Window ) import Graphics.X11.Xlib ( Window )
@@ -36,10 +38,29 @@ import XMonadContrib.XPrompt ( XPConfig )
-- --
-- > , ((modMask .|. shiftMask, xK_n), selectWorkspace defaultXPConfig layoutHook) -- > , ((modMask .|. shiftMask, xK_n), selectWorkspace defaultXPConfig layoutHook)
-- > , ((modMask .|. shiftMask, xK_BackSpace), removeWorkspace) -- > , ((modMask .|. shiftMask, xK_BackSpace), removeWorkspace)
--
-- > -- mod-[1..9] %! Switch to workspace N
-- > -- mod-shift-[1..9] %! Move client to workspace N
-- > ++
-- > zip (zip (repeat modMask) [xK_1..xK_9]) (map (withNthWorkspace W.greedyView) [0..])
-- > ++
-- > zip (zip (repeat (modMask .|. shiftMask)) [xK_1..xK_9]) (map (withNthWorkspace W.shift) [0..])
allPossibleTags :: [WorkspaceId] allPossibleTags :: [WorkspaceId]
allPossibleTags = map (:"") ['0'..] allPossibleTags = map (:"") ['0'..]
toNthWorkspace :: (String -> X ()) -> Int -> X ()
toNthWorkspace job wnum = do ws <- gets (sort . map tag . workspaces . windowset)
case drop wnum ws of
(w:_) -> job w
[] -> return ()
withNthWorkspace :: (String -> WindowSet -> WindowSet) -> Int -> X ()
withNthWorkspace job wnum = do ws <- gets (sort . map tag . workspaces . windowset)
case drop wnum ws of
(w:_) -> windows $ job w
[] -> return ()
selectWorkspace :: XPConfig -> Layout Window -> X () selectWorkspace :: XPConfig -> Layout Window -> X ()
selectWorkspace conf l = workspacePrompt conf $ \w -> selectWorkspace conf l = workspacePrompt conf $ \w ->
do s <- gets windowset do s <- gets windowset