http://dump.bitcheese.net/files/imydake/xmonad.tar.xz плюс --- /var/lib/distfiles/darcs-src/xmonadXMonad/Core.hs 2010-09-05 05:11:42.000000000 +0400 +++ xmonadXMonad/Core.hs 2010-09-18 07:59:14.000000000 +0400 @@ -65,6 +65,7 @@ , waitingUnmap :: !(M.Map Window Int) -- ^ the number of expected UnmapEvents , dragging :: !(Maybe (Position -> Position -> X (), X ())) , numberlockMask :: !KeyMask -- ^ The numlock modifier + , keyPressed :: !KeyCode -- ^ keycode of the key being pressed if any , extensibleState :: !(M.Map String (Either String StateExtension)) -- ^ stores custom state information. -- diff -ur /var/lib/distfiles/darcs-src/xmonadXMonad/Main.hsc xmonadXMonad/Main.hsc --- /var/lib/distfiles/darcs-src/xmonadXMonad/Main.hsc 2010-09-05 05:11:42.000000000 +0400 +++ xmonadXMonad/Main.hsc 2010-09-18 08:03:11.000000000 +0400 @@ -129,6 +129,7 @@ , mapped = S.empty , waitingUnmap = M.empty , dragging = Nothing + , keyPressed = 0 , extensibleState = extState } allocaXEvent $ \e -> @@ -190,10 +191,15 @@ -- run window manager command handle (KeyEvent {ev_event_type = t, ev_state = m, ev_keycode = code}) | t == keyPress = withDisplay $ \dpy -> do - s <- io $ keycodeToKeysym dpy code 0 - mClean <- cleanMask m - ks <- asks keyActions - userCodeDef () $ whenJust (M.lookup (mClean, s) ks) id + kp <- gets keyPressed + if kp /= code then do + modify $ \s -> s { keyPressed = code } + s <- io $ keycodeToKeysym dpy code 0 + mClean <- cleanMask m + ks <- asks keyActions + userCodeDef () $ whenJust (M.lookup (mClean, s) ks) id + else return () + | t == keyRelease = modify $ \s -> s { keyPressed = 0 } -- manage a new window handle (MapRequestEvent {ev_window = w}) = withDisplay $ \dpy -> do

@l29ah Не работают хоткеи с sendMessage $ {Go,Swap} {R,L,U,D}. Как это можно пофиксить?

@rynffoll УМВР. Спроси в рассылке.

@l29ah Уже разобрался. Я пытался с помощью этих клавиш перемещаться по табам.