X-Git-Url: https://git.distorted.org.uk/~mdw/profile/blobdiff_plain/8508a859c33a0e52e44fefc30c0d0983f8c32212..eb221c17dce1d6e29ac98a834c9bcf40ddbbf50b:/dot/mykermrc.in

diff --git a/dot/mykermrc.in b/dot/mykermrc.in
index 9baf517..029dd3a 100644
--- a/dot/mykermrc.in
+++ b/dot/mykermrc.in
@@ -6,6 +6,7 @@ assign _profile @profile@/
 assign _dot \v(home).kermit/
 
 ;; General stuff.
+set command recall-buffer-size 100
 set escape-character ^]
 set flow-control /direct-serial rts/cts
 set flow-control /modem rts/cts
@@ -14,6 +15,13 @@ set options directory /brief
 set terminal trigger KERMIT READY TO SERVE...
 set transfer pipes on
 
+;; Set the prompt string.
+def _host \fword(\v(host),1,.)
+def _pwd \freplace(\freplace(//\v(dir)/,//\v(home),~/),//,)
+local _hack
+asg _hack set prompt {C-Kermit \v(user)@\m(_host) \m(_pwd)>}
+do _hack
+
 ;; Dialling parameters.
 set dial country-code 44
 set dial area-code 1223
@@ -23,42 +31,37 @@ 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.
+set file character-set utf8
 local _lc_ctype
 if not def _lc_ctype if def \$(LC_ALL) assign _lc_ctype \$(LC_ALL)
 if not def _lc_ctype if def \$(LC_CTYPE) assign _lc_ctype \$(LC_CTYPE)
 if not def _lc_ctype if def \$(LANG) assign _lc_ctype \$(LANG)
-if match \m(_lc_ctype) *.utf8 {
-	set file character-set utf8
-	set terminal character-set utf8
-}
+if match \m(_lc_ctype) *.utf8 set terminal character-set utf8
 
 ;; Set the HTTP proxy from the environment.
 if def \$(http_proxy) {
@@ -93,7 +96,44 @@ def CONSOLE {
 }
 
 ;; Synchronize remote terminal size with local window.
-def syncwinsz output stty rows \v(rows) columns \v(cols)\13
+def SYNCWINSZ output stty rows \v(rows) columns \v(cols)\13
+
+;; Special cases for particular target hosts.
+def GUVNOR {
+	set key 127 \8
+	telnet guvnor.distorted.org.uk
+}
+def JUMPTS {
+	local pass
+	set host /network-type:pty ssh -enone -t \%1
+	while true {
+		input 15 \fpattern({{{password:,exit}}})
+		if fail end 1 failed to connect
+		if equal \v(inmatch) exit break
+		if equal \v(inmatch) password: {
+			if ! def pass askq pass {password: }
+			output \m(pass)\13
+		}
+	}
+}
+def FENDERCON {
+	set input echo off
+	jumpts mdw@ts-tfm8.jump.net.uk
+	output 1\13
+	set control prefixed 30
+	connect
+}
+def ARDUINO {
+	set terminal lf-display crlf
+	set line \%1
+	set speed 9600
+	set serial 8n1
+	set modem type none
+	set carrier-watch off
+	set clear-channel on
+	connect
+	set line
+}
 
 ;; Local configuration.
 if exist \m(_dot)config take \m(_dot)config