dot/mykermrc.in: Various tweaks:
authorMark Wooding <mdw@distorted.org.uk>
Tue, 21 Feb 2012 01:12:04 +0000 (01:12 +0000)
committerMark Wooding <mdw@distorted.org.uk>
Tue, 21 Feb 2012 01:12:04 +0000 (01:12 +0000)
  * 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.

dot/mykermrc.in

index b02503a..ad03dc0 100644 (file)
@@ -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
@@ -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.
+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) {