From 196532977cf0ffd17538c1968bd097b4008bea6d Mon Sep 17 00:00:00 2001 From: tv Date: Mon, 28 Jul 2014 00:22:53 +0200 Subject: change prompt string in "normal" mode --- Main.hs | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'Main.hs') diff --git a/Main.hs b/Main.hs index ca76529..101ec89 100644 --- a/Main.hs +++ b/Main.hs @@ -292,7 +292,12 @@ renderInputLine m (lhs, rhs) = do moveCursorLeft (length (show m) - 1) putStr $ "\x1b[1;30m" ++ show m ++ "\x1b[m" unsaveCursor - putStr $ "> " ++ pp lhs ++ pp rhs + + let promptString = case m of + NormalMode -> "\x1b[33;1m@\x1b[m " + InsertMode -> "> " + + putStr $ promptString ++ pp lhs ++ pp rhs moveCursorLeft (length $ ppVis rhs) where pp = concat . map reform -- cgit v1.2.3