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

Move workspace fetching logic from Config.hs to Operations.hs

Browse Source
This commit is contained in:
Spencer Janssen
2007-04-10 06:47:14 +00:00
parent 0c95f0c143
commit be223c35f4
2 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Config.hs
View File

@@ -136,7 +136,7 @@ keys = M.fromList $
-- Keybindings to each screen : -- Keybindings to each screen :
-- mod-wer (underneath 123) switches to physical/Xinerama screens 1 2 and 3 -- mod-wer (underneath 123) switches to physical/Xinerama screens 1 2 and 3
++ ++
[((m .|. modMask, key), gets workspace >>= f . (+1) . fromMaybe 0 . W.workspace sc) [((m .|. modMask, key), screenWorkspace sc >>= f)
| (key, sc) <- zip [xK_s, xK_d, xK_f] [0..] | (key, sc) <- zip [xK_s, xK_d, xK_f] [0..]
, (f, m) <- [(view, 0), (tag, shiftMask)]] , (f, m) <- [(view, 0), (tag, shiftMask)]]

4
Operations.hs
View File

@@ -238,6 +238,10 @@ view o = do
setTopFocus setTopFocus
where n = o-1 where n = o-1
-- | 'screenWorkspace sc' returns the workspace number viewed by 'sc'.
screenWorkspace :: Int -> X Int
screenWorkspace sc = fmap (succ . fromMaybe 0 . W.workspace sc) (gets workspace)
-- | True if window is under management by us -- | True if window is under management by us
isClient :: Window -> X Bool isClient :: Window -> X Bool
isClient w = liftM (W.member w) (gets workspace) isClient w = liftM (W.member w) (gets workspace)