diff options
| author | Brent Yorgey <byorgey@gmail.com> | 2008-02-04 20:24:45 +0100 |
|---|---|---|
| committer | Brent Yorgey <byorgey@gmail.com> | 2008-02-04 20:24:45 +0100 |
| commit | 59b7d6df4ecc006ffb19fe4dd6eb7523875617ce (patch) | |
| tree | fc7aa74ccbcb47b52a2811da0ef88235637cae2b /XMonad/Main.hs | |
| parent | bf1034609caf8b353fe0d05a3773e24de0cb33ec (diff) | |
| download | xmonad-59b7d6df4ecc006ffb19fe4dd6eb7523875617ce.tar.gz xmonad-59b7d6df4ecc006ffb19fe4dd6eb7523875617ce.tar.xz xmonad-59b7d6df4ecc006ffb19fe4dd6eb7523875617ce.zip | |
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
Diffstat (limited to '')
| -rw-r--r-- | XMonad/Main.hs | 2 |
1 files changed, 2 insertions, 0 deletions
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) |