summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authortv <tv@shackspace.de>2014-07-28 00:22:53 +0200
committertv <tv@shackspace.de>2014-07-28 00:22:53 +0200
commit196532977cf0ffd17538c1968bd097b4008bea6d (patch)
treefd5b10a75b2044955e3562c4d6864a18eaa412c5
parent210222f0e2dc0a9443d86ae1037a8a199ad30760 (diff)
change prompt string in "normal" mode
-rw-r--r--Main.hs7
1 files changed, 6 insertions, 1 deletions
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