diff options
| -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 |