add shortcut for restripping buffer of ansi codes

1 files changed, 3 insertions, 0 deletions

diff --git a/jterm.hs b/jterm.hs
index 25bda76..e492959 100644
--- a/jterm.hs
+++ b/jterm.hs
@@ -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)