From 31792191ed369fa550a63c1719dae117830739a9 Mon Sep 17 00:00:00 2001
From: Braden Shepherdson <Braden.Shepherdson@gmail.com>
Date: Sun, 6 Jul 2008 18:10:27 +0200
Subject: Added function to filter out scratchpad workspace for use with
 ewmhLogHookCustom.

darcs-hash:20080706161027-d53a8-b788e5a27c8f95fcd50f6fb052f4d5ed621dd785.gz
---
 XMonad/Util/Scratchpad.hs | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'XMonad/Util/Scratchpad.hs')

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
 
-- 
cgit v1.2.3