diff options
| author | Spencer Janssen <spencerjanssen@gmail.com> | 2009-10-30 23:43:54 +0100 |
|---|---|---|
| committer | Spencer Janssen <spencerjanssen@gmail.com> | 2009-10-30 23:43:54 +0100 |
| commit | bd31860cd1fad8745e74702e286aec59c3fd498a (patch) | |
| tree | 9e11bfbb6a7b0f6e5d8744d2df6a39b290711bde /XMonad/Prompt.hs | |
| parent | ce0ff30b24219380b3c963bf5c22bc5696665f39 (diff) | |
| download | XMonadContrib-bd31860cd1fad8745e74702e286aec59c3fd498a.tar.gz XMonadContrib-bd31860cd1fad8745e74702e286aec59c3fd498a.tar.xz XMonadContrib-bd31860cd1fad8745e74702e286aec59c3fd498a.zip | |
Remove putSelection, fixes #317
Ignore-this: 6cfd6d92e1d133bc9e3cbb7c8339f735
darcs-hash:20091030224354-25a6b-1181861af8f4783783d875491a8d67cd26538ca3.gz
Diffstat (limited to '')
| -rw-r--r-- | XMonad/Prompt.hs | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs index 6abb4d0..90e8685 100644 --- a/XMonad/Prompt.hs +++ b/XMonad/Prompt.hs @@ -29,7 +29,7 @@ module XMonad.Prompt , defaultXPKeymap , quit , killBefore, killAfter, startOfLine, endOfLine - , pasteString, copyString, moveCursor + , pasteString, moveCursor , moveWord, killWord, deleteString , moveHistory, setSuccess, setDone , Direction1D(..) @@ -67,7 +67,7 @@ import qualified XMonad as X (numlockMask,config) import qualified XMonad.StackSet as W import XMonad.Util.Font import XMonad.Util.Types -import XMonad.Util.XSelection (getSelection, putSelection) +import XMonad.Util.XSelection (getSelection) import Control.Arrow ((&&&),first) import Control.Concurrent (threadDelay) @@ -403,7 +403,6 @@ defaultXPKeymap = M.fromList $ , (xK_a, startOfLine) , (xK_e, endOfLine) , (xK_y, pasteString) - , (xK_c, copyString) , (xK_Right, moveWord Next) , (xK_Left, moveWord Prev) , (xK_Delete, killWord Next) @@ -505,10 +504,6 @@ insertString str = pasteString :: XP () pasteString = join $ io $ liftM insertString getSelection --- | Copy the currently entered string into the X selection. -copyString :: XP () -copyString = gets command >>= io . putSelection - -- | Remove a character at the cursor position deleteString :: Direction1D -> XP () deleteString d = |