twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-01 12:41:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

Run gnomeRegister from startupHook

Browse Source
This commit is contained in:
Spencer Janssen
2009-09-18 02:34:10 +00:00
parent 832ea65e75
commit 857bf537b5
1 changed files with 5 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
XMonad/Config/Gnome.hs
View File

@@ -33,13 +33,12 @@ import System.Environment (getEnvironment)
-- > import XMonad -- > import XMonad
-- > import XMonad.Config.Gnome -- > import XMonad.Config.Gnome
-- > -- >
-- > main = do -- > main = xmonad gnomeConfig
-- > gnomeRegister
-- > xmonad gnomeConfig
gnomeConfig = desktopConfig gnomeConfig = desktopConfig
{ terminal = "gnome-terminal" { 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 $ gnomeKeys (XConfig {modMask = modm}) = M.fromList $
[ ((modm, xK_p), gnomeRun) [ ((modm, xK_p), gnomeRun)
@@ -66,8 +65,8 @@ gnomeRun = withDisplay $ \dpy -> do
-- gnome-session>=2.26: to start xmonad with a command as such: -- gnome-session>=2.26: to start xmonad with a command as such:
-- --
-- > 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 :: MonadIO m => m ()
gnomeRegister = do gnomeRegister = io $ do
x <- lookup "DESKTOP_AUTOSTART_ID" `fmap` getEnvironment x <- lookup "DESKTOP_AUTOSTART_ID" `fmap` getEnvironment
whenJust x $ \sessionId -> safeSpawn "dbus-send" whenJust x $ \sessionId -> safeSpawn "dbus-send"
["--session" ["--session"