diff options
| author | Daniel Wagner <daniel@wagner-home.com> | 2011-11-29 04:23:31 +0100 |
|---|---|---|
| committer | Daniel Wagner <daniel@wagner-home.com> | 2011-11-29 04:23:31 +0100 |
| commit | e697c0a7085cc5abd1d51b2d463a4705a8e7e11c (patch) | |
| tree | 3363066fd52688f79b635b8ba1aa99d4aeba608c /XMonad/Util | |
| parent | 87fd92f7375aaea975d1e89a50c7b86a7710f433 (diff) | |
| download | XMonadContrib-e697c0a7085cc5abd1d51b2d463a4705a8e7e11c.tar.gz XMonadContrib-e697c0a7085cc5abd1d51b2d463a4705a8e7e11c.tar.xz XMonadContrib-e697c0a7085cc5abd1d51b2d463a4705a8e7e11c.zip | |
unfuck X.U.Paste
Ignore-this: d450e23ca026143bb6ca9d744dcdd906
darcs-hash:20111129032331-76d51-a1431be2861220ae264e515bd562f8aab877924e.gz
Diffstat (limited to 'XMonad/Util')
| -rw-r--r-- | XMonad/Util/Paste.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/XMonad/Util/Paste.hs b/XMonad/Util/Paste.hs index 666d62b..dc9551b 100644 --- a/XMonad/Util/Paste.hs +++ b/XMonad/Util/Paste.hs @@ -56,7 +56,7 @@ pasteSelection = getSelection >>= pasteString -- | Send a string to the window which is currently focused. This function correctly -- handles capitalization. Warning: in dealing with capitalized characters, this assumes a QWERTY layout. pasteString :: String -> X () -pasteString = mapM_ (\x -> if isUpper x || || x `elem` "!@#$%^&*()_+{}:<>?\"" then pasteChar shiftMask x else pasteChar noModMask x) +pasteString = mapM_ (\x -> if isUpper x || x `elem` "!@#$%^&*()_+{}:<>?\"" then pasteChar shiftMask x else pasteChar noModMask x) {- | Send a character to the current window. This is more low-level. Remember that you must handle the case of capitalization appropriately. |