From 50e88f8a240779d4b1706ad087ad3cf6519dd098 Mon Sep 17 00:00:00 2001 From: Justin Bedo Date: Wed, 23 Oct 2024 07:39:18 +1100 Subject: add shortcuts for deleting before/after cursor to beginning/end of buffer --- jterm.hs | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/jterm.hs b/jterm.hs index 50e4555..d11a965 100644 --- a/jterm.hs +++ b/jterm.hs @@ -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 -- cgit v1.2.3