diff options
author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-10-01 19:52:46 +0200 |
---|---|---|
committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-10-01 19:52:46 +0200 |
commit | 75c02d646e82a2ec17c4766361b678415db62d7e (patch) | |
tree | dec6ab2db805fd21a8117e883e0dee089e629d91 /Config.hs | |
parent | d4a93abae6e1e07b855cb156cdec21bd404ce477 (diff) | |
download | metatile-75c02d646e82a2ec17c4766361b678415db62d7e.tar metatile-75c02d646e82a2ec17c4766361b678415db62d7e.zip |
Send ClassHints to manageHook
darcs-hash:20071001175246-a5988-008bb0123ca85784c32884ea5e6452747e1df0fb
Diffstat (limited to 'Config.hs')
-rw-r--r-- | Config.hs | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -28,6 +28,7 @@ import Data.Bits ((.|.)) import qualified Data.Map as M import System.Exit import Graphics.X11.Xlib +import Graphics.X11.Xlib.Extras (ClassHint(..)) -- Extension-provided imports @@ -62,8 +63,8 @@ modMask = mod1Mask defaultGaps :: [(Int,Int,Int,Int)] defaultGaps = [(0,0,0,0)] -- 15 for default dzen -manageHook :: Window -> X (WindowSet -> WindowSet) -manageHook _ = return id +manageHook :: Window -> ClassHint -> X (WindowSet -> WindowSet) +manageHook _ _ = return id -- | -- numlock handling: |