XMonad按键绑定优化：实现按键按下仅触发一次布局切换

1. 系统按键重复机制干扰 #

长按按键时，X11会默认发送重复的KeyPress事件（系统级按键重复功能），原代码每次收到KeyPress就触发切换到mySpecialLayout，若释放事件处理不及时或误判，就会导致布局在两个状态间快速切换闪烁。

2. 按键匹配逻辑错误 #

调试时key == s从未返回True，核心原因是按键标识类型不匹配：

• 可能混淆了KeySym（如xK_space）和KeyCode的存储与判断；
• 未考虑修饰键（Shift/Ctrl等）状态，导致两次获取的按键标识不一致。

3. 状态切换的幂等性缺失 #

原状态逻辑未做幂等判断：当已处于按键按下状态时，再次收到KeyPress仍会重复执行布局切换，加剧了闪烁问题。

第一步：禁用目标按键的重复事件 #

针对目标按键（比如空格键）临时禁用系统按键重复，避免重复触发KeyPress：

import XMonad
import qualified XMonad.Util.EZConfig as EZ
import XMonad.Util.Run (safeSpawn)
import Graphics.X11.Xlib (setAutoRepeat)

main = xmonad $ def
  { -- 其他原有配置
  } `EZ.additionalKeysP`
  [ -- 绑定按键按下事件
    ("<Space>", do
      -- 临时禁用空格键重复（两个False分别对应左/右按键，这里统一禁用）
      io $ setAutoRepeat False False
      -- 切换到特殊布局
      setLayout mySpecialLayout
    ),
    -- 绑定按键释放事件
    ("<Release-Space>", do
      -- 恢复全局按键重复
      io $ setAutoRepeat True True
      -- 切回常规布局
      setLayout myRegularLayout
    )
  ]

第二步：修复按键状态匹配逻辑 #

如果坚持用ExtensibleState维护状态，统一用KeyCode作为判断标准（用xev命令可查看目标键的KeyCode）：

import XMonad.Util.ExtensibleState
import Graphics.X11.Xlib (KeyCode, keyPress, keyRelease)

-- 定义状态类型，存储当前按下的按键KeyCode
newtype HeldKey = HeldKey (Maybe KeyCode) deriving (Eq, Show)

instance ExtensionClass HeldKey where
  initialValue = HeldKey Nothing

-- 处理KeyPress事件的钩子
handleKeyPress :: Event -> X All
handleKeyPress (KeyEvent { ev_event_type = t, ev_keycode = k })
  | t == keyPress = do
      HeldKey mk <- get
      -- 仅当按键未被标记为按下时执行操作
      if mk /= Just k
        then do
          put $ HeldKey (Just k)
          -- 替换成你的空格键KeyCode（比如xev查到的65）
          when (k == 65) $ setLayout mySpecialLayout
          return (All True)
        else return (All True)
  | otherwise = return (All True)

-- 处理KeyRelease事件的钩子
handleKeyRelease :: Event -> X All
handleKeyRelease (KeyEvent { ev_event_type = t, ev_keycode = k })
  | t == keyRelease = do
      HeldKey mk <- get
      when (mk == Just k) $ do
        put $ HeldKey Nothing
        when (k == 65) $ setLayout myRegularLayout
      return (All True)
  | otherwise = return (All True)

-- 在配置中挂载钩子
main = xmonad $ def
  { handleEventHook = handleKeyPress <+> handleKeyRelease <+> handleEventHook def
  -- 其他原有配置
  }

第三步：确保布局切换的幂等性 #

添加布局判断，避免重复切换相同布局：

import XMonad.Layout.LayoutModifier (currentLayout)

-- 自定义幂等布局切换函数
switchToLayout :: LayoutClass l Window => l Window -> X ()
switchToLayout target = do
  currLayoutDesc <- currentLayout
  when (currLayoutDesc /= description target) $ setLayout target

-- 替换原有setLayout调用：
-- 按下时用 switchToLayout mySpecialLayout
-- 释放时用 switchToLayout myRegularLayout

• 若使用带修饰键的组合键（如Mod4-Space），需在状态中同时存储修饰键状态，避免误判；
• <Release-*>语法需要较新版本的XMonad支持，若版本过低可改用事件钩子处理释放逻辑。

内容的提问来源于stack exchange，提问作者Oh Fiveight