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

ManageHelpers: add isDialog

Browse Source
This commit is contained in:
johanngiwer
2009-01-08 23:25:05 +00:00
parent f885e942e9
commit 021298cb34
1 changed files with 12 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
XMonad/Hooks/ManageHelpers.hs
View File

@@ -30,6 +30,7 @@ module XMonad.Hooks.ManageHelpers (
(-?>), (/=?), (<==?), (</=?), (-->>), (-?>>), (-?>), (/=?), (<==?), (</=?), (-->>), (-?>>),
isKDETrayWindow, isKDETrayWindow,
isFullscreen, isFullscreen,
isDialog,
transientTo, transientTo,
maybeToDefinite, maybeToDefinite,
MaybeManageHook, MaybeManageHook,
@@ -132,6 +133,17 @@ isFullscreen = ask >>= \w -> liftX $ do
Just xs -> fromIntegral full `elem` xs Just xs -> fromIntegral full `elem` xs
_ -> False _ -> False
-- | A predicate to check whether a window is a dialog.
isDialog :: Query Bool
isDialog = ask >>= \w -> liftX $ do
dpy <- asks display
w_type <- getAtom "_NET_WM_WINDOW_TYPE"
w_dialog <- getAtom "_NET_WM_WINDOW_TYPE_DIALOG"
r <- io $ getWindowProperty32 dpy w_type w
return $ case r of
Just xs -> fromIntegral w_dialog `elem` xs
_ -> False
-- | A predicate to check whether a window is Transient. -- | A predicate to check whether a window is Transient.
-- It holds the result which might be the window it is transient to -- It holds the result which might be the window it is transient to
-- or it might be 'Nothing'. -- or it might be 'Nothing'.