diff options
-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) |