diff options
| author | Spencer Janssen <spencerjanssen@gmail.com> | 2008-09-21 08:20:16 +0200 |
|---|---|---|
| committer | Spencer Janssen <spencerjanssen@gmail.com> | 2008-09-21 08:20:16 +0200 |
| commit | 5771f5a83ee464be38a834b2ed7dc1b56122c9c0 (patch) | |
| tree | 0c0e05671eebdf681db48cb4ce6343dbc735d722 | |
| parent | ccc3521e6985b2f60d24c32835ad0ef835683aa9 (diff) | |
| download | XMonadContrib-5771f5a83ee464be38a834b2ed7dc1b56122c9c0.tar.gz XMonadContrib-5771f5a83ee464be38a834b2ed7dc1b56122c9c0.tar.xz XMonadContrib-5771f5a83ee464be38a834b2ed7dc1b56122c9c0.zip | |
Rename pasteKey functions to sendKey
darcs-hash:20080921062016-25a6b-aaaf3d0a43b9c1d0e677cc4df64bed7f8f62f59c.gz
Diffstat (limited to '')
| -rw-r--r-- | XMonad/Util/Paste.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/XMonad/Util/Paste.hs b/XMonad/Util/Paste.hs index 98ccd98..2bc4381 100644 --- a/XMonad/Util/Paste.hs +++ b/XMonad/Util/Paste.hs @@ -57,13 +57,13 @@ pasteString = mapM_ (\x -> if isUpper x then pasteChar shiftMask x else pasteCha > pasteChar shiftMask 'F' -} pasteChar :: KeyMask -> Char -> X () -pasteChar m c = pasteKey m $ stringToKeysym [c] +pasteChar m c = sendKey m $ stringToKeysym [c] -pasteKey :: KeyMask -> KeySym -> X () -pasteKey = (withFocused .) . pasteKeyWindow +sendKey :: KeyMask -> KeySym -> X () +sendKey = (withFocused .) . sendKeyWindow -pasteKeyWindow :: KeyMask -> KeySym -> Window -> X () -pasteKeyWindow mods key w = withDisplay $ \d -> do +sendKeyWindow :: KeyMask -> KeySym -> Window -> X () +sendKeyWindow mods key w = withDisplay $ \d -> do rootw <- asks theRoot keycode <- io $ keysymToKeycode d key io $ allocaXEvent $ \ev -> do |