Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1691598
  • 博文数量: 410
  • 博客积分: 9563
  • 博客等级: 中将
  • 技术积分: 4517
  • 用 户 组: 普通用户
  • 注册时间: 2010-07-03 19:59
个人简介

文章分类

全部博文(410)

文章存档

2017年(6)

2016年(1)

2015年(3)

2014年(4)

2013年(32)

2012年(45)

2011年(179)

2010年(140)

分类: LINUX

2011-01-22 20:01:03

今天把2个屏幕换了个位置,mod+w 和mod+e的位置反了
添加以下蓝色的部分,$vim xmonad --recompile mod+q生效
  1. import XMonad
  2. import XMonad.Config.Gnome
  3. import XMonad.ManageHook
  4. import qualified XMonad.StackSet as W
  5. import XMonad.Hooks.SetWMName
  6. import XMonad.Config.Desktop
  7. import XMonad.Layout.IM
  8. import XMonad.Layout.PerWorkspace
  9. import XMonad.Layout.Reflect
  10. import XMonad.Util.EZConfig
  11. myWorkspaces = ["1:main","2:web","3:gvim","4:media","5:graph","6:browse","7:dev","8:office","9:other"]
  12. myManageHook = composeAll [ (className =? "Firefox" <&&> resource=? "Download") --> doFloat
  13. , (className =? "Firefox" <&&> resource =? "DTA") --> doFloat
  14. , (className =? "Vmplayer" <&&> title=? "new of Windows XP office - VMware Player") --> doF (W.shift "8:office")
  15. , (className =? "Rhythmbox" ) --> doF (W.shift "4:media")
  16. , className =? "Gimp-2.6" --> doShift "5:graph"
  17. , className =? "MyPaint" --> doShift "9:other"
  18. ]
  19. myKeys =
  20. [
  21. -- other additional keys
  22. ]
  23. ++
  24. [ (mask ++ "M-" ++ [key], screenWorkspace scr >>= flip whenJust (windows . action))
  25. | (key, scr) <- zip "wer" [1,0,2] -- was [0..] *** change to match your screen order ***
  26. , (action, mask) <- [ (W.view, "") , (W.shift, "S-")]
  27. ]
  28. main = do
  29. xmonad $ gnomeConfig
  30. {
  31. modMask = mod4Mask
  32. -- set the mod key to the windows key
  33. , XMonad.focusFollowsMouse = False
  34. --不设置鼠标跟随
  35. ,layoutHook = desktopLayoutModifiers $ gimp
  36. , workspaces = myWorkspaces
  37. , manageHook = myManageHook <+> manageHook gnomeConfig
  38. , startupHook = setWMName "LG3D"
  39. } `additionalKeysP` myKeys
  40. where
  41. gimp = withIM (0.11) (Role "gimp-toolbox") $ reflectHoriz $
  42. withIM (0.15) (Role "gimp-dock") $ reflectHoriz $
  43. layoutHook gnomeConfig
阅读(1287) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~