On 2008.07.04 01:46:12 +0200, Jérémy Bobbio
On Sun, Jun 29, 2008 at 08:38:57AM -0400, Gwern Branwen wrote:
Hiya everyone. So as I've long mused about, I've gotten around to seeing how difficult it'd be to do a Ratpoison style keymap for XMonad. It went reasonably well, but I've run into a number of Ratpoison commands where I can't see what to bind them to (or whether the functionality is implemented in XMC somewhere I just don't know about), so I thought I'd demonstrate what I have and see whether anyone has any suggestions.
The code is as follows:
{- Not implemented: […] C-t t Sometimes you need to send a C-t to the current window. This keystroke does just that.
If you ever want to implement this, here's a function that might be useful:
sendKey :: Window -> KeyMask -> KeySym -> X () sendKey w mods key = withDisplay $ \d -> do rootw <- asks theRoot keycode <- io $ keysymToKeycode d key io $ allocaXEvent $ \ev -> do setEventType ev keyPress setKeyEvent ev w rootw none mods keycode True sendEvent d w True keyPressMask ev setEventType ev keyRelease sendEvent d w True keyReleaseMask ev
It works fine in my own xmonad.hs (which I unfortunately never found the time to turn into a proper extension).
Cheers, -- Jérémy Bobbio .''`.
Thanks for the code, Jeremy; I've long wanted a function to send keys to windows. I was thinking of adding it to XSelection, but what limits does this function have, do you know? X is often difficult to deal with. Does it handle odd characters? -- gwern Undercover burhop World 757 William BECCA Psyops veggie 3M Treasury