neocturne/xmonad-conf
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Clean up dialog window Query

Browse source
This commit is contained in:
Matthias Schiffer 2011-02-23 17:45:27 +01:00
parent 0bafbe18d9
commit 894e8b41d3
1 changed files with 20 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
xmonad.hs
View file

@ -75,6 +75,11 @@ myStartupHook = do
startupHook gnomeConfig startupHook gnomeConfig
setWMName "LG3D" setWMName "LG3D"
isDialogWindow :: Query Bool
isDialogWindow = do
atom__NET_WM_WINDOW_TYPE_DIALOG <- liftX $ getAtom "_NET_WM_WINDOW_TYPE_DIALOG"
atomProperty "_NET_WM_WINDOW_TYPE" =? atom__NET_WM_WINDOW_TYPE_DIALOG
atomProperty :: String -> Query Atom atomProperty :: String -> Query Atom
atomProperty p = ask >>= (\w -> liftX $ withDisplay $ \d -> fmap (fromMaybe 0) $ getAtomProperty d w p) atomProperty p = ask >>= (\w -> liftX $ withDisplay $ \d -> fmap (fromMaybe 0) $ getAtomProperty d w p)
@ -86,11 +91,9 @@ getAtomProperty d w p = do
myManageHook :: ManageHook myManageHook :: ManageHook
myManageHook = do myManageHook = composeAll
atom__NET_WM_WINDOW_TYPE_DIALOG <- liftX $ getAtom "_NET_WM_WINDOW_TYPE_DIALOG"
composeAll
[ composeOne [ composeOne
[ atomProperty "_NET_WM_WINDOW_TYPE" =? atom__NET_WM_WINDOW_TYPE_DIALOG -?> doFloat [ isDialogWindow -?> doFloat
, className =? "Guake.py" -?> doFloatMaybeFullscreen -- <+> doConfigBorderOff) , className =? "Guake.py" -?> doFloatMaybeFullscreen -- <+> doConfigBorderOff)
--, className =? "Do" -?> (doFloat <+> doConfigBorderOff) --, className =? "Do" -?> (doFloat <+> doConfigBorderOff)
, className =? "MPlayer" -?> doCenterFloat , className =? "MPlayer" -?> doCenterFloat