ref: 8b4713bd6f278c9d899f76f82b825437887e04fe
parent: 47235546ec225eb4885bb9793b84d2f2df73dc45
author: Lennart Augustsson <lennart.augustsson@epicgames.com>
date: Thu Sep 21 20:06:47 EDT 2023
Add ^K
--- a/lib/System/Console/SimpleReadline.hs
+++ b/lib/System/Console/SimpleReadline.hs
@@ -106,6 +106,10 @@
eraseLine
loop hist "" ""
noop = loop hist before after
+ kill = do
+ putStr after
+ putStr $ concat $ replicate (length after) "\b \b"
+ loop hist before ""
next =
case hist of
@@ -141,6 +145,7 @@
14 -> next -- CTL-N, next line
15 -> previous -- CTL-P, previous line
21 -> erase -- CTL-U, erase line
+ 11 -> kill -- CTL-K, kill to eol
27 -> do -- ESC
b <- getRaw
if b /= ord '[' then
--
⑨