diff options
-rw-r--r-- | jterm.hs | 7 |
1 files changed, 6 insertions, 1 deletions
@@ -339,6 +339,12 @@ handleEvent display win bgcolour fgcolour linecolour selcolour font event = do put $ b {cursor = (min p q, max p q)} _ -> do case (mod, keysym) of + (4, 117) -> + -- ctrl-u (delete content before cursor) + put $ b {content = R.splitAt start (content b) & snd, cursor = (0, end-start), pos = 0} + (4, 105) -> + -- ctrl-i (delete content after cursor) + put $ b {content = R.splitAt end (content b) & fst} (4, 108) -> -- ctrl-l (restrip buffer of ansi codes) put $ b {content = content b & R.toText & stripAnsiEscapeCodes & R.fromText} @@ -353,7 +359,6 @@ handleEvent display win bgcolour fgcolour linecolour selcolour font event = do put $ b {content = delins start end (content b) "", cursor = (start + 1, start + 1)} (4, 118) -> lift $ do -- ctrl-v (paste) - -- win <- xGetSelectionOwner display pRIMARY prop <- internAtom display "JTERM_CLIPBOARD" True xConvertSelection display pRIMARY xUtf8String prop win time (4, 113) -> lift $ do |