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

Added function to filter out scratchpad workspace for use with ewmhLogHookCustom.

Browse Source
This commit is contained in:
Braden Shepherdson
2008-07-06 16:10:27 +00:00
parent afb54c64b0
commit ae1010882a
1 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
XMonad/Util/Scratchpad.hs
View File

@@ -19,6 +19,7 @@ module XMonad.Util.Scratchpad (
,scratchpadSpawnActionTerminal ,scratchpadSpawnActionTerminal
,scratchpadManageHookDefault ,scratchpadManageHookDefault
,scratchpadManageHook ,scratchpadManageHook
,scratchpadFilterOutWorkspace
) where ) where
import XMonad import XMonad
@@ -132,6 +133,12 @@ scratchpadManageHook :: W.RationalRect -- ^ User-specified screen rectangle.
scratchpadManageHook rect = scratchpadQuery --> doRectFloat rect 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
scratchpadDefaultRect = W.RationalRect 0.25 0.375 0.5 0.25 scratchpadDefaultRect = W.RationalRect 0.25 0.375 0.5 0.25