From fa696f56510ee41831c3f025f36aab4d9f113949 Mon Sep 17 00:00:00 2001 From: Adam Vogt Date: Fri, 18 Sep 2009 01:39:53 +0200 Subject: Use U.Run.safeSpawn in C.Gnome Ignore-this: b2476a239089a3fd3fe9001cf48e8f09 darcs-hash:20090917233953-1499c-ed27da33089b4e656eefcb95e39063144850717f.gz --- XMonad/Config/Gnome.hs | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) (limited to 'XMonad/Config/Gnome.hs') diff --git a/XMonad/Config/Gnome.hs b/XMonad/Config/Gnome.hs index 6b1e94f..32fe81f 100644 --- a/XMonad/Config/Gnome.hs +++ b/XMonad/Config/Gnome.hs @@ -21,13 +21,11 @@ module XMonad.Config.Gnome ( import XMonad import XMonad.Config.Desktop +import XMonad.Util.Run (safeSpawn) import qualified Data.Map as M import System.Environment (getEnvironment) -import System.Cmd (rawSystem) - -import Control.Concurrent (forkIO) -- $usage -- To use this module, start with the following @~\/.xmonad\/xmonad.hs@: @@ -70,10 +68,8 @@ gnomeRun = withDisplay $ \dpy -> do -- > gconftool-2 -s /desktop/gnome/session/required_components/windowmanager xmonad --type string gnomeRegister :: IO () gnomeRegister = do - let void_ = fmap (const ()) x <- lookup "DESKTOP_AUTOSTART_ID" `fmap` getEnvironment - whenJust x $ \sessionId -> void_ $ forkIO $ void_ $ - rawSystem "dbus-send" + whenJust x $ \sessionId -> safeSpawn "dbus-send" ["--session" ,"--print-reply=string" ,"--dest=org.gnome.SessionManager" -- cgit v1.2.3