diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-04-10 08:47:14 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-04-10 08:47:14 +0200 |
| commit | 6e231ff7825e1d8120a6f3896418b3840024a040 (patch) | |
| tree | 70e5fc8c8ba8726da33fade7dea922ad3e867a53 /Operations.hs | |
| parent | fabdf6a026b61e0602c86a7402dfafa47a9c2154 (diff) | |
| download | metatile-6e231ff7825e1d8120a6f3896418b3840024a040.tar metatile-6e231ff7825e1d8120a6f3896418b3840024a040.zip | |
Move workspace fetching logic from Config.hs to Operations.hs
darcs-hash:20070410064714-a5988-e9b1fac201a546d1722db41213efc81223007e43
Diffstat (limited to 'Operations.hs')
| -rw-r--r-- | Operations.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/Operations.hs b/Operations.hs index 86d6da1..01585e4 100644 --- a/Operations.hs +++ b/Operations.hs @@ -238,6 +238,10 @@ view o = do setTopFocus 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 isClient :: Window -> X Bool isClient w = liftM (W.member w) (gets workspace) |