为什么 xmonad 键盘有时候失去响应？

linuxier

知道 arch 中用平铺的比较多，在这里问一下。

好像没有采用什么特别的操作，有人遇到这样的问题没有？

zhou3345

什么版本？
以前经常遇到键盘不响应的问题，但最近一次转到xmonad，用到现在快3个月了，再也没出现此问题。下面是我做过的改变：
1. 更新了xmonad到0.9。
2. 更新了ghc到6.10.4。
3. 采用了新版xmonad中的默认配置。

linuxier

可惜我用的是 debian stable, 软件包没那么新，试了好几个平铺的，就觉得 xmonad 操作起来方便，

zhou3345

应该是配置的问题。

我现在也只用着默认配置。xmonad的配置文件让人看的云里雾里的，反正我到现在还没有搞清楚如何设置状态栏，以及控制置顶窗口。
不过尽管有这些不习惯，我还是忍了，毕竟速度一流，平铺也确实很方便。

sw2wolf

Post by zhou3345;2058711
应该是配置的问题。

我现在也只用着默认配置。xmonad的配置文件让人看的云里雾里的，反正我到现在还没有搞清楚如何设置状态栏，以及控制置顶窗口。
不过尽管有这些不习惯，我还是忍了，毕竟速度一流，平铺也确实很方便。

用xmonad+lxpanel很久了, 没什么问题!

%xmonad --version
xmonad 0.9

%ghc --version
The Glorious Glasgow Haskell Compilation System, version 6.10.4

%cat ~/.xmonad/xmonad.hs

1. 
   
2. import XMonad
   
3. import XMonad.Hooks.ManageDocks
   
4. import XMonad.Hooks.EwmhDesktops
   
5. import XMonad.Hooks.DynamicLog
   
6. import XMonad.Hooks.ManageHelpers
   
7. 
   
8. import XMonad.Util.Run(spawnPipe)
   
9. --import XMonad.Util.EZConfig(additionalKeys)
   
10. 
    
11. import XMonad.Layout.TwoPane
    
12. import XMonad.Layout.WindowNavigation
    
13. 
    
14. import qualified XMonad.StackSet as W
    
15. import qualified Data.Map as M
    
16. 
    
17. main = do
    
18.     xmonad $ defaultConfig
    
19.             { borderWidth                = 1
    
20.             , focusedBorderColor         = "#ff6666"
    
21.             , normalBorderColor         = "#2222aa"
    
22.             , manageHook           = manageHook defaultConfig <+> myManageHook
    
23.             , workspaces           = map show [1 .. 10 :: Int]
    
24.             , terminal                = "roxterm"
    
25.             , modMask              = mod4Mask
    
26.             , focusFollowsMouse  = True
    
27.             , startupHook          = myStartupHook
    
28.             , logHook = myLogHook
    
29.             , layoutHook          = windowNavigation $ avoidStruts $ (Mirror tall ||| tall ||| Full)
    
30.             --, layoutHook    = ewmhDesktopsLayout $ windowNavigation $ avoidStruts $ (Mirror tall ||| tall ||| Full)
    
31.             , keys                         = \c -> myKeys c `M.union` keys defaultConfig c
    
32.             --, mouseBindings = \c -> myMouse c `M.union` mouseBindings defaultConfig c
    
33.             }
    
34.         where
    
35.         tall         = Tall 1 (3/100) (1/2)
    
36.         
    
37.         myStartupHook :: X ()
    
38.         myStartupHook = do
    
39.             spawn "fcitx"
    
40.             spawn "roxterm"
    
41.             spawn "lxpanel"
    
42.             spawn "/home/sw2wolf/bin/kvm.sh"
    
43. 
    
44.         myLogHook :: X ()
    
45.         myLogHook = ewmhDesktopsLogHook
    
46. 
    
47.         myManageHook :: ManageHook
    
48.         myManageHook = composeAll . concat $
    
49.                         [ [ className =? c --> doFloat | c <- myCFloats]
    
50.                          ,[ className =? c --> doIgnore | c <- myIgnores]
    
51.                          ,[ className =? "Audacious" --> doShift "3" ]
    
52.                          ,[ className =? "Firefox" --> doF W.swapDown]
    
53.                          ,[ resource  =? r --> doFloat | r <- myRFloats]
    
54.                          ,[ title     =? t --> doFloat | t <- myTFloats]
    
55.                          ,[(role =? "gimp-toolbox" <||> role =? "gimp-image-window") --> (ask >>= doF . W.sink)]
    
56.                          ,[name  =? n  --> doCenterFloat | n <- myNames]
    
57.                          ,[isFullscreen --> doFullFloat]]
    
58.                          --,[ title >>= \t -> liftX (io $ writeFile "/tmp/lastWindowTitle" t) >> idHook ]
    
59.                     where myCFloats = ["Shredder", "GQview", "MPlayer", "Gimp","Vncviewer","Xmessage","Google","Pidgin"]
    
60.                           myRFloats = ["Dialog", "Download", "Places"]
    
61.                           myTFloats  = ["Firefox Preferences", "Element Properties", "VLC"]
    
62.                           myIgnores = ["trayer"]
    
63.                           myNames   = ["bashrun","Google Chrome Options","R Graphics: Device 2 (ACTIVE)"]
    
64.                           role = stringProperty "WM_WINDOW_ROLE"
    
65.                           name = stringProperty "WM_NAME"
    
66. 
    
67.         myKeys (XConfig {modMask = modm}) = M.fromList $
    
68.             -- Apps and tools
    
69.             [ ((modm, xK_F2), spawn "gmrun")
    
70.             , ((modm, xK_f), spawn "/home/firefox/firefox")
    
71.             , ((modm, xK_t), spawn "thunderbird")
    
72.             --, ((modm, xK_p), spawn "exe=`dmenu_path | dmenu -b` && eval "exec $exe"")
    
73.             , ((modm, xK_F11), spawn "sudo shutdown -r now")
    
74.             , ((modm, xK_F12), spawn "sudo shutdown -h now")
    
75.             , ((modm .|. controlMask, xK_Print), spawn "sleep 0.2; scrot -s")
    
76.             , ((modm, xK_Print), spawn "scrot '/tmp/%Y-%m-%d_%H:%M:%S_$wx$h_scrot.png' -e 'mv $f ~'")
    
77.             , ((modm, xK_c), kill)
    
78.             -- Window Navigation
    
79.             , ((modm, xK_Right), sendMessage $ Go R)
    
80.             , ((modm, xK_Left ), sendMessage $ Go L)
    
81.             , ((modm, xK_Up   ), sendMessage $ Go U)
    
82.             , ((modm, xK_Down ), sendMessage $ Go D)
    
83.             -- swap...
    
84.             , ((modm .|. controlMask, xK_Right), sendMessage $ Swap R)
    
85.             , ((modm .|. controlMask, xK_Left ), sendMessage $ Swap L)
    
86.             , ((modm .|. controlMask, xK_Up   ), sendMessage $ Swap U)
    
87.             , ((modm .|. controlMask, xK_Down ), sendMessage $ Swap D)
    
88.             ]
    

复制代码

linuxier

Post by sw2wolf;2058737
用xmonad+lxpanel很久了, 没什么问题!

%xmonad --version
xmonad 0.9

%ghc --version
The Glorious Glasgow Haskell Compilation System, version 6.10.4

我机器上的：
$xmonad --version
xmonad 0.7

$ghc --version
The Glorious Glasgow Haskell Compilation System, version 6.8.2