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

fix selectWorkspace to work with new config.

Browse Source
This commit is contained in:
David Roundy
2007-11-01 18:35:46 +00:00
parent cd1884466a
commit c2a4c05faf
1 changed files with 9 additions and 7 deletions

10
XMonad/Actions/DynamicWorkspaces.hs

@@ -21,10 +21,11 @@ module XMonad.Actions.DynamicWorkspaces (
toNthWorkspace, withNthWorkspace toNthWorkspace, withNthWorkspace
) where ) where
import Control.Monad.Reader ( asks )
import Control.Monad.State ( gets ) import Control.Monad.State ( gets )
import Data.List ( sort ) import Data.List ( sort )
import XMonad ( X, XState(..), Layout, WorkspaceId, WindowSet ) import XMonad ( X, XState(..), Layout, WorkspaceId, WindowSet, config, layoutHook )
import XMonad.Operations import XMonad.Operations
import XMonad.StackSet hiding (filter, modify, delete) import XMonad.StackSet hiding (filter, modify, delete)
import Graphics.X11.Xlib ( Window ) import Graphics.X11.Xlib ( Window )
@@ -36,7 +37,7 @@ import XMonad.Prompt ( XPConfig )
-- --
-- > import XMonad.Actions.DynamicWorkspaces -- > import XMonad.Actions.DynamicWorkspaces
-- --
-- > , ((modMask .|. shiftMask, xK_n), selectWorkspace defaultXPConfig layoutHook) -- > , ((modMask .|. shiftMask, xK_n), selectWorkspace defaultXPConfig)
-- > , ((modMask .|. shiftMask, xK_BackSpace), removeWorkspace) -- > , ((modMask .|. shiftMask, xK_BackSpace), removeWorkspace)
-- > , ((modMask .|. shiftMask .|. controlMask, xK_r), renameWorkspace defaultXPConfig) -- > , ((modMask .|. shiftMask .|. controlMask, xK_r), renameWorkspace defaultXPConfig)
-- --
@@ -69,8 +70,9 @@ withNthWorkspace job wnum = do ws <- gets (sort . map tag . workspaces . windows
(w:_) -> windows $ job w (w:_) -> windows $ job w
[] -> return () [] -> return ()
selectWorkspace :: XPConfig -> Layout Window -> X () selectWorkspace :: XPConfig -> X ()
selectWorkspace conf l = workspacePrompt conf $ \w -> selectWorkspace conf = workspacePrompt conf $ \w ->
do l <- asks (layoutHook . config)
windows $ \s -> if tagMember w s windows $ \s -> if tagMember w s
then greedyView w s then greedyView w s
else addWorkspace' w l s else addWorkspace' w l s