diff options
| author | Spencer Janssen <spencerjanssen@gmail.com> | 2009-09-18 04:34:10 +0200 |
|---|---|---|
| committer | Spencer Janssen <spencerjanssen@gmail.com> | 2009-09-18 04:34:10 +0200 |
| commit | 7ae3e41a9ed34432336c02030eebf4a9460dc4eb (patch) | |
| tree | 0630f136bb867eb2a006dd5d8060c9a6bfeb3266 /XMonad/Config/Gnome.hs | |
| parent | fa696f56510ee41831c3f025f36aab4d9f113949 (diff) | |
| download | XMonadContrib-7ae3e41a9ed34432336c02030eebf4a9460dc4eb.tar.gz XMonadContrib-7ae3e41a9ed34432336c02030eebf4a9460dc4eb.tar.xz XMonadContrib-7ae3e41a9ed34432336c02030eebf4a9460dc4eb.zip | |
Run gnomeRegister from startupHook
Ignore-this: 419959a33840264674d2c8034882b689
darcs-hash:20090918023410-25a6b-ea5372b3612373a50448d817d554256eea0a3e6a.gz
Diffstat (limited to 'XMonad/Config/Gnome.hs')
| -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" |