diff options
Diffstat (limited to '')
| -rw-r--r-- | DynamicWorkspaces.hs | 16 |
1 files changed, 13 insertions, 3 deletions
diff --git a/DynamicWorkspaces.hs b/DynamicWorkspaces.hs index f212cab..e9bd06c 100644 --- a/DynamicWorkspaces.hs +++ b/DynamicWorkspaces.hs @@ -16,7 +16,8 @@ module XMonadContrib.DynamicWorkspaces ( -- * Usage -- $usage - addWorkspace, removeWorkspace + addWorkspace, removeWorkspace, + selectWorkspace ) where import Control.Monad.State ( gets ) @@ -25,18 +26,27 @@ import XMonad ( X, XState(..), Layout, WorkspaceId ) import Operations import StackSet hiding (filter, modify, delete) import Graphics.X11.Xlib ( Window ) +import XMonadContrib.WorkspacePrompt +import XMonadContrib.XPrompt ( XPConfig ) -- $usage -- You can use this module with the following in your Config.hs file: -- -- > import XMonadContrib.DynamicWorkspaces -- --- > , ((modMask .|. shiftMask, xK_Up), addWorkspace layouts) --- > , ((modMask .|. shiftMask, xK_Down), removeWorkspace) +-- > , ((modMask .|. shiftMask, xK_n), selectWorkspace defaultXPConfig layoutHook) +-- > , ((modMask .|. shiftMask, xK_BackSpace), removeWorkspace) allPossibleTags :: [WorkspaceId] allPossibleTags = map (:"") ['0'..] +selectWorkspace :: XPConfig -> Layout Window -> X () +selectWorkspace conf l = workspacePrompt conf $ \w -> + do s <- gets windowset + if tagMember w s + then windows $ greedyView w + else windows $ addWorkspace' w l + addWorkspace :: Layout Window -> X () addWorkspace l = do s <- gets windowset let newtag:_ = filter (not . (`tagMember` s)) allPossibleTags |