From 13f607e2f4917d2d5a65e737a8cad5a8944c1592 Mon Sep 17 00:00:00 2001 From: Justin Bedo Date: Fri, 8 Nov 2024 11:03:44 +1100 Subject: fix pty cursor positioning after restripping buffer --- jterm.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'jterm.hs') diff --git a/jterm.hs b/jterm.hs index 904dbfe..9382faf 100644 --- a/jterm.hs +++ b/jterm.hs @@ -351,7 +351,7 @@ handleEvent display win bgcolour fgcolour linecolour selcolour font event = do delins end (R.length (content b)) "" (4, 108) -> -- ctrl-l (restrip buffer of ansi codes) - delins 0 (R.length (content b)) (content b & R.toText & stripAnsiEscapeCodes & R.fromText) + delins' True 0 (R.length (content b)) (content b & R.toText & stripAnsiEscapeCodes & R.fromText) (4, 99) -> lift $ do -- ctrl-c (copy) storeBuffer display (R.toText selstr & T.unpack) 0 -- cgit v1.2.3