[xmonad] Ratpoison key emulation

[Spencer Janssen]

On Fri, Sep 19, 2008 at 02:33:00PM -0400, Gwern Branwen wrote:
> Ah, I see. I was searching for the wrong type signature after all.
> 
> So I've been working up a basic XPaste module, and here's what I have thus far"
> 
> --------------------------------
> sendSelection :: KeyMask -> X ()
> sendSelection m = getSelection >>= (sendString m)
> 
> sendString :: KeyMask -> String -> X ()
> sendString mo = mapM_ (sendChar mo)
> 
> sendChar :: KeyMask -> Char -> X ()
> sendChar modm c = sendKeyScreen modm (stringToKeysym [c])
> 
> sendKeyScreen :: KeyMask -> KeySym -> X ()
> sendKeyScreen modmk key = withFocused (sendKeysym modmk key)
> 
> sendKeysym :: KeyMask -> KeySym -> Window -> X ()
> sendKeysym mods key w = 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
> --------------------------------

If I might suggest a few name changes:
    - change sendKeyScreen to sendKey
    - change sendKeysym to sendKeyWindow


> My first question is, is there any way to scrap all the KeyMask plumbing? I looked at the X11 docs, but there doesn't seem to be any null modmask - mod1Mask is Alt, Shift is Shift, and so on.

KeyMask is a bitmask, so 0 is the no modifiers pressed state.  I'd also leave
the KeyMask argument on sendKeysym and sendKeyscreen -- some users want to send
keys with modifiers (eg. the person that started this thread).

> My second question is, why does 'keysymToKeycode' take a String? I manually played around with it in GHCi and it seems every String which isn't a Char always gets evaluated to '0'.

I assume you mean stringToKeysym.  Try: stringToKeysym "F1".  You should
probably filter out the 0 results when sending a string, or perhaps throw an
error.


Cheers,
Spencer Janssen