From 5589ff7b642c0bfb204c0fa0d6a3fcb2f3b7d777 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Mon, 1 Oct 2007 19:52:46 +0200 Subject: Send ClassHints to manageHook darcs-hash:20071001175246-a5988-008bb0123ca85784c32884ea5e6452747e1df0fb.gz --- Config.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'Config.hs') diff --git a/Config.hs b/Config.hs index 3f403c1..1bf6445 100644 --- a/Config.hs +++ b/Config.hs @@ -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: -- cgit v1.2.3