twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-15 20:23:55 -07:00
Code Issues Packages Projects Releases Wiki Activity

Use U.Run.safeSpawn in C.Gnome

Browse Source
This commit is contained in:
Adam Vogt
2009-09-17 23:39:53 +00:00
parent c4cae4839d
commit 832ea65e75
1 changed files with 2 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
XMonad/Config/Gnome.hs
View File

@@ -21,13 +21,11 @@ module XMonad.Config.Gnome (
import XMonad import XMonad
import XMonad.Config.Desktop import XMonad.Config.Desktop
import XMonad.Util.Run (safeSpawn)
import qualified Data.Map as M import qualified Data.Map as M
import System.Environment (getEnvironment) import System.Environment (getEnvironment)
import System.Cmd (rawSystem)
import Control.Concurrent (forkIO)
-- $usage -- $usage
-- To use this module, start with the following @~\/.xmonad\/xmonad.hs@: -- 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 -- > gconftool-2 -s /desktop/gnome/session/required_components/windowmanager xmonad --type string
gnomeRegister :: IO () gnomeRegister :: IO ()
gnomeRegister = do gnomeRegister = do
let void_ = fmap (const ())
x <- lookup "DESKTOP_AUTOSTART_ID" `fmap` getEnvironment x <- lookup "DESKTOP_AUTOSTART_ID" `fmap` getEnvironment
whenJust x $ \sessionId -> void_ $ forkIO $ void_ $ whenJust x $ \sessionId -> safeSpawn "dbus-send"
rawSystem "dbus-send"
["--session" ["--session"
,"--print-reply=string" ,"--print-reply=string"
,"--dest=org.gnome.SessionManager" ,"--dest=org.gnome.SessionManager"