From 5771f5a83ee464be38a834b2ed7dc1b56122c9c0 Mon Sep 17 00:00:00 2001 From: Spencer Janssen Date: Sun, 21 Sep 2008 08:20:16 +0200 Subject: Rename pasteKey functions to sendKey darcs-hash:20080921062016-25a6b-aaaf3d0a43b9c1d0e677cc4df64bed7f8f62f59c.gz --- XMonad/Util/Paste.hs | 10 +++++----- 1 file 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 -- cgit v1.2.3