diff options
| -rw-r--r-- | src/Main.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/Main.hs b/src/Main.hs index ddb5e31..4d8ba5c 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -269,8 +269,8 @@ execCommand ExecuteInputBuffer = do liftIO ringBell s -> do let s' = SGR [32] $ gaudySpecial [1] s - tell [ pp $ "input: <" <> s' <> ">" - , pp $ SGR [35,1] $ Plain $ init $ tail $ show $ pp s' + tell [ pp $ "input: " <> s' + , pp $ SGR [35] $ gaudySpecial [1] $ pp s' ] modifyBuffer (const emptyBuffer) @@ -397,7 +397,9 @@ gaudySpecial c = gaudySpans c (not . isPrint) lit :: String -> String -lit = (>>= flip showLitChar "") +lit = (>>= f) + where f '\ESC' = "^[" + f c = showLitChar c "" clearLine :: IO () |