From 59b7d6df4ecc006ffb19fe4dd6eb7523875617ce Mon Sep 17 00:00:00 2001
From: Brent Yorgey <byorgey@gmail.com>
Date: Mon, 4 Feb 2008 20:24:45 +0100
Subject: Add a startupHook.

The only thing I am not sure about here is at what exact point the
startupHook should get run.  I picked a place that seems to make sense:
as late as possible, right before entering the main loop.  That way all
the layouts/workspaces/other state are set up and the startupHook can
manipulate them.

darcs-hash:20080204192445-bd4d7-218d69dcf3cd5c5f2962859cf847595527399807.gz
---
 XMonad/Main.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'XMonad/Main.hs')

diff --git a/XMonad/Main.hs b/XMonad/Main.hs
index 7557ad6..405caec 100644
--- a/XMonad/Main.hs
+++ b/XMonad/Main.hs
@@ -116,6 +116,8 @@ xmonad initxmc = do
             -- manage the as-yet-unmanaged windows
             mapM_ manage (ws \\ W.allWindows winset)
 
+            startupHook initxmc
+
             -- main loop, for all you HOF/recursion fans out there.
             forever_ $ handle =<< io (nextEvent dpy e >> getEvent e)
 
-- 
cgit v1.2.3