tclshrc: add

diff --git a/.tclshrc b/.tclshrc
new file mode 100644 (file)
index 0000000..b5cfe8b
--- /dev/null
+++ b/.tclshrc
@@ -0,0 +1,12 @@
+# Get less sucky interactive behavior.
+# http://tclreadline.sourceforge.net/
+if {$tcl_interactive} {
+       package require tclreadline
+       namespace eval tclreadline {
+               proc prompt1 {} {
+                       return "\ 1\e\[0;31m\ 2tclsh>\ 1\e\[0m\ 2 "
+               }
+       }
+       namespace import tclreadline::ls
+       ::tclreadline::Loop
+}