diff options
author | Justin Bedo <cu@cua0.org> | 2024-10-23 07:39:18 +1100 |
---|---|---|
committer | Justin Bedo <cu@cua0.org> | 2024-10-23 07:39:40 +1100 |
commit | 50e88f8a240779d4b1706ad087ad3cf6519dd098 (patch) | |
tree | 10694ccf2ba14902b2b527f7d5e121c2c60da411 | |
parent | bd2565141d13173ba19534a245227d1164e23355 (diff) |
-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 |