twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

mate-comment-fixup

Browse Source 
Correct the docstrings / comments in X.C.Mate, which still referenced
gnomeConfig. Also update the session manager configuration to use
dconf and a current (on Mint at least) path for the session config.
This commit is contained in:
allbery.b 2015-03-30 16:05:23 +00:00
parent c2f00b8e61
commit b5b8558acc
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
XMonad/Config/Mate.hs
View File

@ -37,9 +37,9 @@ import System.Environment (getEnvironment)
-- > import XMonad -- > import XMonad
-- > import XMonad.Config.Mate -- > import XMonad.Config.Mate
-- > -- >
-- > main = xmonad gnomeConfig -- > main = xmonad mateConfig
-- --
-- For examples of how to further customize @gnomeConfig@ see "XMonad.Config.Desktop". -- For examples of how to further customize @mateConfig@ see "XMonad.Config.Desktop".
mateConfig = desktopConfig mateConfig = desktopConfig
{ terminal = "mate-terminal" { terminal = "mate-terminal"
@ -50,7 +50,7 @@ mateKeys (XConfig {modMask = modm}) = M.fromList $
[ ((modm, xK_p), mateRun) [ ((modm, xK_p), mateRun)
, ((modm .|. shiftMask, xK_q), spawn "mate-session-save --logout-dialog") ] , ((modm .|. shiftMask, xK_q), spawn "mate-session-save --logout-dialog") ]
-- | Launch the "Run Application" dialog. gnome-panel must be running for this -- | Launch the "Run Application" dialog. mate-panel must be running for this
-- to work. -- to work.
mateRun :: X () mateRun :: X ()
mateRun = withDisplay $ \dpy -> do mateRun = withDisplay $ \dpy -> do
@ -68,10 +68,10 @@ mateRun = withDisplay $ \dpy -> do
-- xmonad is started. -- xmonad is started.
-- --
-- This action reduces a delay on startup only only if you have configured -- This action reduces a delay on startup only only if you have configured
-- mate-session to start xmonad with a command such as (check local -- mate-session to start xmonad with a command such as (check local
-- documentation): -- > dconf write /org/mate/desktop/session/required_components/windowmanager "'xmonad'"
-- --
-- > gconftool-2 -s /desktop/gnome/session/required_components/windowmanager xmonad --type string -- (the extra quotes are required by dconf)
mateRegister :: MonadIO m => m () mateRegister :: MonadIO m => m ()
mateRegister = io $ do mateRegister = io $ do
x <- lookup "DESKTOP_AUTOSTART_ID" `fmap` getEnvironment x <- lookup "DESKTOP_AUTOSTART_ID" `fmap` getEnvironment