dot/mykermrc.in: Various tweaks:

  * Increase the command history size.

  * Build a more useful prompt string using unpleasant subterfuge.

  * Set the default file character set to UTF-8 independent of the
    locale -- which should determine the terminal character set but not
    files, which I decree ought to be UTF-8 regardless.  Emacs ought to
    sort this mess out for me.

diff --git a/dot/mykermrc.in b/dot/mykermrc.in
index b02503aa3c5aa39e29fd14a1c2b66413b55d816c..ad03dc016b594279a89375879aed1cfe7bd5963f 100644 (file)
--- a/dot/mykermrc.in
+++ b/dot/mykermrc.in
@@ -6,6 +6,7 @@ assign _profile @profile@/
 assign _dot \v(home).kermit/
 
 ;; General stuff.
 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
 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 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
 ;; Dialling parameters.
 set dial country-code 44
 set dial area-code 1223


@@ -48,14 +56,12 @@ _set_dir dial -
 
 ;; 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.
 
 ;; 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)
 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) {
 
 ;; Set the HTTP proxy from the environment.
 if def \$(http_proxy) {