twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-05 14:41:54 -07:00
Code Issues Packages Projects Releases Wiki Activity

Paste: 3 more escaped characters from alistra

Browse Source
This commit is contained in:
gwern0
2011-11-29 16:03:35 +00:00
parent c809ae6f5f
commit 9209e96234
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
XMonad/Util/Paste.hs
View File

@@ -56,7 +56,7 @@ pasteSelection = getSelection >>= pasteString
-- | Send a string to the window which is currently focused. This function correctly -- | 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. -- handles capitalization. Warning: in dealing with capitalized characters, this assumes a QWERTY layout.
pasteString :: String -> X () 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. {- | Send a character to the current window. This is more low-level.
Remember that you must handle the case of capitalization appropriately. Remember that you must handle the case of capitalization appropriately.