[profile] / dot / kermrc

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

set escape-character ^]
set terminal trigger KERMIT READY TO SERVE...

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

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

;; Synchronize remote terminal size with local window.
def syncwinsz output stty rows \v(rows) columns \v(cols)\13
Commit	Line	Data
73bb9001 MW	1	;;; ---kermit---
	2	;;;
	3	;;; Configuration and definitions for Kermit.
	4
	5	set escape-character ^]
	6	set terminal trigger KERMIT READY TO SERVE...
	7
	8	;; If my terminal is UTF8 then try to use that consistently. This may not
	9	;; work, but in my world as it is it's quite likely to.
	10	local _lc_ctype
	11	if not def _lc_ctype if def \$(LC_ALL) assign _lc_ctype \$(LC_ALL)
	12	if not def _lc_ctype if def \$(LC_CTYPE) assign _lc_ctype \$(LC_CTYPE)
	13	if not def _lc_ctype if def \$(LANG) assign _lc_ctype \$(LANG)
	14	if match \m(_lc_ctype) *.utf8 {
	15	set file character-set utf8
	16	set terminal character-set utf8
	17	}
	18
	19	;; Guest virtual consoles are frequently presented as Unix-domain sockets.
	20	def UNIX {
	21	if < \v(argc) 1 -
	22	end 1 Usage: UNIX socket
	23	pipe nc -U \%1
	24	}
	25
	26	;; Synchronize remote terminal size with local window.
	27	def syncwinsz output stty rows \v(rows) columns \v(cols)\13