diff options
| author | Braden Shepherdson <Braden.Shepherdson@gmail.com> | 2008-07-06 18:10:27 +0200 |
|---|---|---|
| committer | Braden Shepherdson <Braden.Shepherdson@gmail.com> | 2008-07-06 18:10:27 +0200 |
| commit | 31792191ed369fa550a63c1719dae117830739a9 (patch) | |
| tree | 4b53267071df277e838a3ce083297de1d0a9180a /XMonad | |
| parent | a48bb7af70d633b3d9b88f7e8e812dcbf14cfd4a (diff) | |
| download | XMonadContrib-31792191ed369fa550a63c1719dae117830739a9.tar.gz XMonadContrib-31792191ed369fa550a63c1719dae117830739a9.tar.xz XMonadContrib-31792191ed369fa550a63c1719dae117830739a9.zip | |
Added function to filter out scratchpad workspace for use with ewmhLogHookCustom.
darcs-hash:20080706161027-d53a8-b788e5a27c8f95fcd50f6fb052f4d5ed621dd785.gz
Diffstat (limited to 'XMonad')
| -rw-r--r-- | XMonad/Util/Scratchpad.hs | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/XMonad/Util/Scratchpad.hs b/XMonad/Util/Scratchpad.hs index 2f29dc4..cbdd66c 100644 --- a/XMonad/Util/Scratchpad.hs +++ b/XMonad/Util/Scratchpad.hs @@ -19,6 +19,7 @@ module XMonad.Util.Scratchpad ( ,scratchpadSpawnActionTerminal ,scratchpadManageHookDefault ,scratchpadManageHook + ,scratchpadFilterOutWorkspace ) where import XMonad @@ -132,6 +133,12 @@ scratchpadManageHook :: W.RationalRect -- ^ User-specified screen rectangle. scratchpadManageHook rect = scratchpadQuery --> doRectFloat rect +-- | Transforms a workspace list containing the SP workspace into one that +-- doesn't contain it. Intended for use with logHooks. +scratchpadFilterOutWorkspace :: [WindowSpace] -> [WindowSpace] +scratchpadFilterOutWorkspace = filter (\(W.Workspace tag _ _) -> tag /= scratchpadWorkspaceTag) + + scratchpadDefaultRect :: W.RationalRect scratchpadDefaultRect = W.RationalRect 0.25 0.375 0.5 0.25 |