From c6a85d16114d218fad10f6e611ddd30d701ec67c Mon Sep 17 00:00:00 2001
From: David Roundy <droundy@darcs.net>
Date: Wed, 17 Oct 2007 01:03:01 +0200
Subject: allow users to go to dynamically-added workspaces with mod-n.

darcs-hash:20071016230301-72aca-e003c298f830d89d4125c5d15accb4ed71bc6241.gz
---
 DynamicWorkspaces.hs | 25 +++++++++++++++++++++++--
 1 file changed, 23 insertions(+), 2 deletions(-)

(limited to 'DynamicWorkspaces.hs')

diff --git a/DynamicWorkspaces.hs b/DynamicWorkspaces.hs
index e9bd06c..81c9686 100644
--- a/DynamicWorkspaces.hs
+++ b/DynamicWorkspaces.hs
@@ -17,12 +17,14 @@ module XMonadContrib.DynamicWorkspaces (
                                          -- * Usage
                                          -- $usage
                                          addWorkspace, removeWorkspace,
-                                         selectWorkspace
+                                         selectWorkspace,
+                                         toNthWorkspace, withNthWorkspace
                                        ) where
 
 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 StackSet hiding (filter, modify, delete)
 import Graphics.X11.Xlib ( Window )
@@ -36,10 +38,29 @@ import XMonadContrib.XPrompt ( XPConfig )
 --
 -- >   , ((modMask .|. shiftMask, xK_n), selectWorkspace defaultXPConfig layoutHook)
 -- >   , ((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 = 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 conf l = workspacePrompt conf $ \w ->
                          do s <- gets windowset
-- 
cgit v1.2.3