summaryrefslogtreecommitdiff
path: root/desktop/xmonad
diff options
context:
space:
mode:
authorDaniel Silverstone <dsilvers@digital-scurf.org>2015-05-29 11:13:13 +0100
committerDaniel Silverstone <dsilvers@digital-scurf.org>2015-05-29 11:13:13 +0100
commitf373ab7863e80085a9283949392d9ad1712a02aa (patch)
treedfee14c74b0eb203b2e3f9e6f8a7a2b7a6f33ad9 /desktop/xmonad
parent389f1be840054bfc370a0f2e0410dde584a2f90b (diff)
downloadresources-f373ab7863e80085a9283949392d9ad1712a02aa.tar.bz2
Put in changes ready for mate/jessie
Diffstat (limited to 'desktop/xmonad')
-rw-r--r--desktop/xmonad/xmonad.hs10
1 files changed, 5 insertions, 5 deletions
diff --git a/desktop/xmonad/xmonad.hs b/desktop/xmonad/xmonad.hs
index d3a077d..19ec472 100644
--- a/desktop/xmonad/xmonad.hs
+++ b/desktop/xmonad/xmonad.hs
@@ -29,7 +29,7 @@ import XMonad.Hooks.SetWMName
launchInSpeshulTerminal :: String -> String -> X ()
launchInSpeshulTerminal roleTitle cmd = do
- safeSpawn "gnome-terminal" [ "--role"
+ safeSpawn "mate-terminal" [ "--role"
, roleTitle
, "--title"
, roleTitle
@@ -81,7 +81,7 @@ myScreenChangeHook = do
XS.put $ st { stScreenCount = nowCount }
liftIO $ putStrLn $ "Changed from " ++ (show count) ++ " to " ++ (show nowCount)
if (nowCount > 1)
- then safeSpawn "gnome-control-center" ["display"]
+ then safeSpawn "mate-display-properties" []
else liftIO $ putStrLn "Not doing anything, nowCount < 2"
liftIO $ putStrLn "Screen count examined."
@@ -97,7 +97,7 @@ main = do
let pp = taffybarDefaultPP { ppSort = DO.getSortByOrder }
xmonad $ gnomeConfig
{ modMask = mod4Mask
- , logHook = myLogHook client pp
+ , logHook = myLogHook client pp >> setWMName "LG3D"
, manageHook = myManageHook <+> manageHook gnomeConfig
, workspaces = defaultWorkSpaces
, handleEventHook = myEventHandler fullscreenEventHook
@@ -109,7 +109,7 @@ main = do
, startupHook = startupHook gnomeConfig >> setWMName "LG3D"
} `EZ.additionalKeysP`
[ -- General keys
- ("M-x", spawn "gnome-terminal")
+ ("M-x", spawn "mate-terminal")
, ("M-M1-C-m", launchOrRaiseEmail)
, ("M1-<F2>", shellPrompt defaultXPConfig)
-- Screens, Workspaces and Windows
@@ -147,6 +147,6 @@ defaultWorkSpaces = ["mail", "term", "www", "emacs"]
extraKeyMappings :: ButtonMask -> [((ButtonMask, KeySym), X ())]
extraKeyMappings modm =
- [ ((modm, xK_Menu), spawn "dmenu_shutdown")
+ [ ((modm, xK_Menu), spawn "/home/dsilvers/bin/dmenu_shutdown")
]