Add prompt2 style.
authorOleksandr Gavenko <gavenkoa@gmail.com>
Fri, 30 Aug 2013 00:31:19 +0300
changeset 635 799341bb0ea7
parent 634 89a1a77ad559
child 636 5be69ec2aa59
Add prompt2 style.
.tclshrc
--- a/.tclshrc	Fri Aug 30 00:28:47 2013 +0300
+++ b/.tclshrc	Fri Aug 30 00:31:19 2013 +0300
@@ -6,8 +6,10 @@
         namespace eval tclreadline {
             if ([regexp "^(xterm|eterm-color)" "$::env(TERM)"]) {
                 proc prompt1 {} { return "\[0;31m\[1mtcl>\[0m " }
+                proc prompt2 {} { return "\[0;31m...> \[0m" }
             } {
                 proc prompt1 {} { return "tcl> " }
+                proc prompt2 {} { return "...> " }
             }
         }
         ::tclreadline::Loop