X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/c7413c0dc7f1534e2ee345054650d34ed91b74b6..2351081f90923e4a56176caf8b35256ac5328658:/dot/mykermrc.in?ds=sidebyside

diff --git a/dot/mykermrc.in b/dot/mykermrc.in
index 9baf517..b02503a 100644
--- a/dot/mykermrc.in
+++ b/dot/mykermrc.in
@@ -23,31 +23,28 @@ set dial ld-prefix 0
 set dial intl-prefix 00
 
 ;; Directories.
-def _dir_exist {
-	undef _dir
-	for \%i 1 \fdim(&v) 1 {
-		if exist \&v[\%i] {
-			if def _dir assign _dir \m(_dir) \&v[\%i]
-			else assign _dir \&v[\%i]
+def _set_dir {
+	local what list awful
+	assign what \%1
+	undef list
+	shift
+
+	for \%i 1 \v(argc)-1 1 {
+		if exist \%1 {
+			if def list assign list \m(list) \%1
+			else assign list \%1
 		}
+		shift
 	}
+	assign awful { set \m(what) directory \m(list) }
+	do awful
 }
-
-local \&v
-local \%n
-array dcl v = -
+_set_dir network -
 	\m(_profile)kermit/net.shared -
 	\m(_dot)net.local
-local _dir
-_dir_exist
-set network directory \m(_dir)
-
-array dcl v = -
+_set_dir dial -
 	\m(_profile)kermit/dial.shared -
 	\m(_dot)dial.local
-local _dir
-_dir_exist
-set dial directory \m(_dir)
 
 ;; If my terminal is UTF8 then try to use that consistently.  This may not
 ;; work, but in my world as it is it's quite likely to.