diff options
| -rw-r--r-- | XMonad/Config/Gnome.hs | 11 |
1 files 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" |