From: Mike Frysinger <vapier@gentoo.org>
Date: Tue, 10 Nov 2015 06:36:48 +0000 (-0800)
Subject: tclshrc: add
X-Git-Url: https://git.wh0rd.org/?a=commitdiff_plain;h=c224d2ef62c0a9781ac9cab0a097cc1a37a07ef7;p=home.git

tclshrc: add
---

diff --git a/.tclshrc b/.tclshrc
new file mode 100644
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 "
\[0;31mtclsh>
\[0m "
+		}
+	}
+	namespace import tclreadline::ls
+	::tclreadline::Loop
+}