summaryrefslogtreecommitdiff
path: root/desktop/xmonad
diff options
context:
space:
mode:
authorDaniel Silverstone <dsilvers@digital-scurf.org>2016-12-30 16:08:53 +0000
committerDaniel Silverstone <dsilvers@digital-scurf.org>2016-12-30 16:08:53 +0000
commit2ebfffcd4090fb89036b92967548be2d4bde3d76 (patch)
treecd6fe64f038f81d61527a1799f270fd5c586cf5b /desktop/xmonad
parent5bc02a56289fcb66d78052ba5e88b05d967309d9 (diff)
downloadresources-2ebfffcd4090fb89036b92967548be2d4bde3d76.tar.bz2
IRC and swapping in xmonad
Diffstat (limited to 'desktop/xmonad')
-rw-r--r--desktop/xmonad/xmonad.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/desktop/xmonad/xmonad.hs b/desktop/xmonad/xmonad.hs
index bac9874..bbff8dd 100644
--- a/desktop/xmonad/xmonad.hs
+++ b/desktop/xmonad/xmonad.hs
@@ -119,6 +119,8 @@ main = do
, ("<XF86Forward>", DO.moveTo Next HiddenWS)
-- , ("M1-<Left>", DO.moveTo Prev HiddenWS)
-- , ("M1-<Right>", DO.moveTo Next HiddenWS)
+ , ("M-C-<Right>", DO.swapWith Next NonEmptyWS)
+ , ("M-C-<Left>", DO.swapWith Prev NonEmptyWS)
, ("M1-C-S-<Left>", DO.shiftTo Prev HiddenWS >> DO.moveTo Prev HiddenWS)
, ("M1-C-S-<Right>", DO.shiftTo Next HiddenWS >> DO.moveTo Next HiddenWS)
, ("M1-C-<Up>", prevScreen)
@@ -146,7 +148,7 @@ main = do
`EZ.additionalKeys` extraKeyMappings mod4Mask
defaultWorkSpaces :: [String]
-defaultWorkSpaces = ["mail", "term", "www", "emacs"]
+defaultWorkSpaces = ["mail", "irc", "www", "emacs"]
extraKeyMappings :: ButtonMask -> [((ButtonMask, KeySym), X ())]
extraKeyMappings modm =