From 00535832a7b0ae956c48b73be67624b20b29d7b0 Mon Sep 17 00:00:00 2001
Message-Id: <00535832a7b0ae956c48b73be67624b20b29d7b0.1714830992.git.mdw@distorted.org.uk>
From: Mark Wooding <mdw@chiark.greenend.org.uk>
Date: Sat, 1 Sep 2012 18:31:42 +0100
Subject: [PATCH] blight-startup.tcl: Take personality config name as argument.
Organization: Straylight/Edgeware

From: Mark Wooding <mdw@distorted.org.uk>

---
 blight-startup.tcl | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/blight-startup.tcl b/blight-startup.tcl
index 16c3aa0..59d9e2e 100755
--- a/blight-startup.tcl
+++ b/blight-startup.tcl
@@ -1,6 +1,12 @@
 #!/usr/bin/tclsh8.4
 package require Tclx
-source blight.tcl
+if {[llength $argv] > 0} {
+  set script [lindex $argv 0]
+  set argv [lrange $argv 1 end]
+} else {
+  set script blight.tcl
+}
+source $script.tcl
 set tcl_prompt1 { puts -nonewline "% " }
 set tcl_prompt2 { puts -nonewline "> " }
 commandloop -async -interactive on
-- 
[mdw]