diff options
author | Justin Bedo <cu@cua0.org> | 2024-10-15 07:23:37 +1100 |
---|---|---|
committer | Justin Bedo <cu@cua0.org> | 2024-10-15 07:24:33 +1100 |
commit | e8444eff07a089aeae588b5b4dccbf1f499db786 (patch) | |
tree | cf26def99d829d4a956e8eae4cf5834378036bd1 /jterm.hs | |
parent | 578ccd89c5cdbd89a89b1a13e53821b3e55446b9 (diff) |
add shortcut for restripping buffer of ansi codes
Diffstat (limited to 'jterm.hs')
-rw-r--r-- | jterm.hs | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -272,6 +272,9 @@ 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, 108) -> + -- ctrl-l (restrip buffer of ansi codes) + put $ b {content = content b & R.toText & stripAnsiEscapeCodes & R.fromText} (4, 99) -> lift $ do -- ctrl-c (copy) let (R.splitAt start -> (_, sel), _) = R.splitAt end (content b) |