From 7ae3e41a9ed34432336c02030eebf4a9460dc4eb Mon Sep 17 00:00:00 2001
From: Spencer Janssen <spencerjanssen@gmail.com>
Date: Fri, 18 Sep 2009 04:34:10 +0200
Subject: Run gnomeRegister from startupHook

Ignore-this: 419959a33840264674d2c8034882b689

darcs-hash:20090918023410-25a6b-ea5372b3612373a50448d817d554256eea0a3e6a.gz
---
 XMonad/Config/Gnome.hs | 11 +++++------
 1 file changed, 5 insertions(+), 6 deletions(-)

diff --git a/XMonad/Config/Gnome.hs b/XMonad/Config/Gnome.hs
index 32fe81f..aead151 100644
--- a/XMonad/Config/Gnome.hs
+++ b/XMonad/Config/Gnome.hs
@@ -33,13 +33,12 @@ import System.Environment (getEnvironment)
 -- > import XMonad
 -- > import XMonad.Config.Gnome
 -- >
--- > main = do
--- >    gnomeRegister
--- >    xmonad gnomeConfig
+-- > main = xmonad gnomeConfig
 
 gnomeConfig = desktopConfig
     { terminal = "gnome-terminal"
-    , keys     = \c -> gnomeKeys c `M.union` keys desktopConfig c }
+    , keys     = \c -> gnomeKeys c `M.union` keys desktopConfig c
+    , startupHook = gnomeRegister }
 
 gnomeKeys (XConfig {modMask = modm}) = M.fromList $
     [ ((modm, xK_p), gnomeRun)
@@ -66,8 +65,8 @@ gnomeRun = withDisplay $ \dpy -> do
 -- gnome-session>=2.26: to start xmonad with a command as such:
 --
 -- > gconftool-2 -s /desktop/gnome/session/required_components/windowmanager xmonad --type string
-gnomeRegister :: IO ()
-gnomeRegister = do
+gnomeRegister :: MonadIO m => m ()
+gnomeRegister = io $ do
     x <- lookup "DESKTOP_AUTOSTART_ID" `fmap` getEnvironment
     whenJust x $ \sessionId -> safeSpawn "dbus-send"
             ["--session"
-- 
cgit v1.2.3