dot/mykermrc.in: More awful hacking to set directories.

[profile] / dot / mykermrc.in

;;; ---kermit---
;;;
;;; Configuration and definitions for Kermit.

assign _profile @profile@/
assign _dot \v(home).kermit/

;; General stuff.
set escape-character ^]
set flow-control /direct-serial rts/cts
set flow-control /modem rts/cts
set locus local
set options directory /brief
set terminal trigger KERMIT READY TO SERVE...
set transfer pipes on

;; Dialling parameters.
set dial country-code 44
set dial area-code 1223
set dial display on
set dial toll-free-area-code 800
set dial ld-prefix 0
set dial intl-prefix 00

;; Directories.
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
}
_set_dir network -
	\m(_profile)kermit/net.shared -
	\m(_dot)net.local
_set_dir dial -
	\m(_profile)kermit/dial.shared -
	\m(_dot)dial.local

;; 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.
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
}

;; Set the HTTP proxy from the environment.
if def \$(http_proxy) {
	assign \%n \fsplit(\$(http_proxy),&v,/)
	set tcp http-proxy \&v[2]
}

;; Guest virtual consoles are frequently presented as Unix-domain sockets.
def UNIX {
	if <= \v(argc) 1 -
		end 1 Usage: UNIX socket
	pipe nc -U \%1
}

;; Connect to a kermit SSH subsystem.
def KERMSSH {
	if <= \v(argc) 1 -
		end 1 Usage: KERMSSH [options] [user@]host
	set clear-channel on
	pty ssh -enone -st \%* kermit
}

;; Console over null-modem cable.
def CONSOLE {
	if > \v(argc) 1 set speed \%1
	if > \v(argc) 2 set serial \%2
	else set serial 8n1
	set modem type none
	set carrier-watch off
	set clear-channel on
	connect
}

;; Synchronize remote terminal size with local window.
def syncwinsz output stty rows \v(rows) columns \v(cols)\13

;; Local configuration.
if exist \m(_dot)config take \m(_dot)config