chiark - git - mdw - profile/blob - dot/kermrc

   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