diff options
| author | gwern0 <gwern0@gmail.com> | 2011-11-29 17:03:35 +0100 |
|---|---|---|
| committer | gwern0 <gwern0@gmail.com> | 2011-11-29 17:03:35 +0100 |
| commit | 2f083b5750b265972491a6782fdb7ca94acd7444 (patch) | |
| tree | 17a93e25ad92433cf69ffc176bab1c4fe144f7d0 /XMonad/Util/Paste.hs | |
| parent | e697c0a7085cc5abd1d51b2d463a4705a8e7e11c (diff) | |
| download | XMonadContrib-2f083b5750b265972491a6782fdb7ca94acd7444.tar.gz XMonadContrib-2f083b5750b265972491a6782fdb7ca94acd7444.tar.xz XMonadContrib-2f083b5750b265972491a6782fdb7ca94acd7444.zip | |
Paste: 3 more escaped characters from alistra
Ignore-this: 46f5b86a25bcd2b26d2e07ed33ffad68
darcs-hash:20111129160335-f7719-1efa503dad26b44e2601ce27d23c9cc8ad1e2e0a.gz
Diffstat (limited to 'XMonad/Util/Paste.hs')
| -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 dc9551b..9cb1df3 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. |