diff options
Diffstat (limited to 'XMonad/Hooks')
| -rw-r--r-- | XMonad/Hooks/ManageHelpers.hs | 5 |
1 files changed, 5 insertions, 0 deletions
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 |