From 35b193f98ed16da44b34e9e1827ee0e8cea7f802 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Fri, 9 Nov 2007 03:47:22 +0100 Subject: New ManageHook system darcs-hash:20071109024722-a5988-c499d006a8a4a48dd7c8cbaf4e4ea9635ceb1ec4 --- XMonad/Core.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'XMonad/Core.hs') diff --git a/XMonad/Core.hs b/XMonad/Core.hs index 3f96592..56700c0 100644 --- a/XMonad/Core.hs +++ b/XMonad/Core.hs @@ -67,7 +67,7 @@ data XConfig = XConfig , focusedBorderColor :: !String , terminal :: !String , layoutHook :: !(Layout Window) - , manageHook :: Window -> String -> String -> String -> X (WindowSet -> WindowSet) + , manageHook :: Window -> X (WindowSet -> WindowSet) , workspaces :: [String] , defaultGaps :: [(Int,Int,Int,Int)] , numlockMask :: !KeyMask @@ -78,6 +78,7 @@ data XConfig = XConfig , logHook :: X () } + type WindowSet = StackSet WorkspaceId (Layout Window) Window ScreenId ScreenDetail type WindowSpace = Workspace WorkspaceId (Layout Window) Window -- cgit v1.2.3