twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-07-31 20:21:51 -07:00
Code Issues Packages Projects Releases Wiki Activity

XPrompt.hs: add a pasteString function and keybinding

Browse Source
This commit is contained in:
gwern0
2007-10-26 03:49:20 +00:00
parent 630166f9fa
commit 89ffbc20a1
1 changed files with 6 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
XPrompt.hs
View File

@@ -47,6 +47,7 @@ import XMonad hiding (io)
import Operations (initColor) import Operations (initColor)
import qualified StackSet as W import qualified StackSet as W
import XMonadContrib.XUtils import XMonadContrib.XUtils
import XMonadContrib.XSelection (getSelection)
import Control.Arrow ((***),(&&&)) import Control.Arrow ((***),(&&&))
import Control.Monad.Reader import Control.Monad.Reader
@@ -273,6 +274,7 @@ keyPressHandle mask (ks,_)
| ks == xK_k -> killAfter >> go | ks == xK_k -> killAfter >> go
| ks == xK_a -> startOfLine >> go | ks == xK_a -> startOfLine >> go
| ks == xK_e -> endOfLine >> go | ks == xK_e -> endOfLine >> go
| ks == xK_y -> pasteString >> go
| ks == xK_g || ks == xK_c -> quit | ks == xK_g || ks == xK_c -> quit
| otherwise -> eventLoop handle -- unhandled control sequence | otherwise -> eventLoop handle -- unhandled control sequence
| ks == xK_Return = historyPush >> return () | ks == xK_Return = historyPush >> return ()
@@ -330,6 +332,10 @@ insertString str =
| otherwise = f ++ str ++ ss | otherwise = f ++ str ++ ss
where (f,ss) = splitAt oo oc where (f,ss) = splitAt oo oc
-- | Insert the current X selection string at the cursor position.
pasteString :: XP ()
pasteString = join $ io $ liftM insertString $ getSelection
-- | Remove a character at the cursor position -- | Remove a character at the cursor position
deleteString :: Direction -> XP () deleteString :: Direction -> XP ()
deleteString d = deleteString d =