From 490218a8dce6ae0fc4022fc33ba6a72b87b25205 Mon Sep 17 00:00:00 2001
From: Ismael Carnales <icarnales@gmail.com>
Date: Wed, 28 Oct 2009 20:35:19 +0100
Subject: X.H.ManageHelpers: added currentWs that returns the current workspace

Ignore-this: dcd3dac6bd741d26747807691f125637

darcs-hash:20091028193519-6553f-b668fcfb822718a48caea74d21860de505a467c1.gz
---
 XMonad/Hooks/ManageHelpers.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'XMonad/Hooks')

diff --git a/XMonad/Hooks/ManageHelpers.hs b/XMonad/Hooks/ManageHelpers.hs
index f2444a0..0584b85 100644
--- a/XMonad/Hooks/ManageHelpers.hs
+++ b/XMonad/Hooks/ManageHelpers.hs
@@ -28,6 +28,7 @@ module XMonad.Hooks.ManageHelpers (
     Side(..),
     composeOne,
     (-?>), (/=?), (<==?), (</=?), (-->>), (-?>>),
+    currentWs,
     isInProperty,
     isKDETrayWindow,
     isFullscreen,
@@ -118,6 +119,10 @@ p -?>> f = do
     Match b m <- p
     if b then fmap  Just (f m) else return Nothing
 
+-- | Return the current workspace
+currentWs :: Query WorkspaceId
+currentWs = liftX (withWindowSet $ return . W.currentTag)
+
 -- | A predicate to check whether a window is a KDE system tray icon.
 isKDETrayWindow :: Query Bool
 isKDETrayWindow = ask >>= \w -> liftX $ do
-- 
cgit v1.2.3