From e8444eff07a089aeae588b5b4dccbf1f499db786 Mon Sep 17 00:00:00 2001
From: Justin Bedo <cu@cua0.org>
Date: Tue, 15 Oct 2024 07:23:37 +1100
Subject: add shortcut for restripping buffer of ansi codes

---
 jterm.hs | 3 +++
 1 file changed, 3 insertions(+)

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)
-- 
cgit v1.2.3