pfeiffer@irit.fr (Daniel Pfeiffer) (04/09/91)
Sorry folks if this comes late, last time I sent it, our local news
installation was in a mess.
Richard L. Goerwitz <goer@quads.uchicago.edu> has gone to some length
to make a terminal mode for wyse 50. What a pity, I had one all done,
which uses the appropriate terminal setup functions from keypad.
This uses as far as possible the Emacs standard meanings for all
special keys, though quite a few don't have one.
I have submitted it to RMS and signed a disclaimer for it.
This is valid until version 19 when terminal handling will change
somewhat.
-- Daniel
============================== snip, snip ==============================
; Terminal mode for Wyse 50
; should work well for Televideo Tvi 925 though it's an overkill
; Author Daniel Pfeiffer <pfeiffer@cix.cict.fr, @irit.fr> january 1991
(require 'keypad)
; at least some of these should be transferred to keypad.el
(keypad-default "A" '(lambda () (interactive)
; actually insert an empty line
(beginning-of-line)
(open-line 1)))
(keypad-default "E" 'kill-line)
; (keypad-default "h" 'execute-extended-command)
(define-key function-keymap "h" 'execute-extended-command) ; bad, bad !!
(keypad-default "H" 'shell-command)
(keypad-default "I" '(lambda () (interactive)
(insert ? ))) ; works even in overwrite-mode
(keypad-default "L" '(lambda () (interactive)
; delete the whole line
(beginning-of-line)
(kill-line 1)))
(keypad-default "M" 'overwrite-mode)
(keypad-default "\^e" 'shell) ; F5
(keypad-default "\^f" 'dired) ; F6
(keypad-default "\^g" 'rnews) ; F7
(keypad-default "\^h" 'rmail) ; F8
(keypad-default "\^i" 'delete-other-windows) ; F9
(keypad-default "\^j" 'other-window) ; F10
(keypad-default "\^k" 'split-window-vertically) ; F11
(keypad-default "\^m" 'help-for-help) ; F13
(keypad-default "\^n" 'toggle-screen-width) ; F14
(keypad-default "\^o" 'set-function-key) ; F15
; Keys that don't conflict with Emacs defaults
; I write \M-x and \C-x for what the user types, \ex and \^x for key sequences
(setup-terminal-keymap global-map
'(("\M-?" . ?\?) ; Esc ?
("\eI" . ?T) ; Shift Tab
("\eJ" . ?P) ; Shift Prev PAGE
("\eK" . ?N) ; PAGE Next
("\eY" . ?C) ; Shift Scrn CLR
("\eT" . ?E) ; CLR Line
("\^^" . ?h) ; Home
("\M-\^^" . ?H) ; Esc Home
("\eQ" . ?I) ; INS Char
("\eE" . ?A) ; Shift Line INS
("\eW" . ?D) ; DEL Char
("\eR" . ?L))) ; Shift Line DEL
; Print -- put in some extra security
(global-set-key "\eP" '(lambda () (interactive)
(if (y-or-n-p
(concat "Print buffer "
(buffer-name) "? "))
(print-buffer))))
; this is an ugly hack for a nasty problem:
; Wyse 50 takes one character cell to store video attributes (which seems to
; explain width 79 rather than 80, column 1 is not used!!!).
; On killing (C-x C-c) the end inverse code (on column 1 of line 24)
; of the mode line is overwritten AFTER all the y-or-n questions.
; This causes the attribute to remain in effect until the mode line has
; scrolled of the screen. Suspending (C-z) does not cause this problem.
; On such terminals, Emacs should sacrifice the first and last character of
; each mode line, rather than a whole screen column!
(setq kill-emacs-hook '(lambda () (interactive)
(send-string-to-terminal
(concat "\ea23R" (1+ (screen-width)) "C\eG0"))))
; This function does more than its name which was copied from term/vt100.el
; Some more neutral name should be used thru-out term/*.el to simplify
; programming term-setup-hook
(defun enable-arrow-keys ()
"To be called by term-setup-hook. Overrides 6 Emacs standard keys
whose functions are then typed as follows:
C-a Funct left-arrow, C-a C-a
C-h M-?
LFD Funct Return, some modes override down-arrow via LFD
C-k CLR Line
C-l Shift Scrn CLR
M-r M-x move-to-window-line, Funct up-arrow or down-arrow are similar
All special keys except Send, Shift Ins, Shift Home and shifted functions keys
are assigned some hopefully useful meaning."
(interactive)
; Function keys
(define-key global-map "\^a" (define-prefix-command 'Funct-prefix))
; Arrow keys
(setup-terminal-keymap global-map
'(("\C-a\C-a" . beginning-of-line) ; for auld lang syne
("\^a\^m\^m" . newline-and-indent)
("\^k" . ?u) ; up-arrow
("\^j" . ?d) ; down-arrow
("\^l" . ?r) ; right-arrow
("\^h" . ?l) ; left-arrow
; Terminal needs both Ins and Repl but Emacs knows how to toggle
; with just one key. No need to override Ins which is "\eq".
("\er" . ?M) ; Repl
("\^a\^i\^m" . ?t) ; Funct Tab
; Function keys F1 thru F16 (we don't define shifted function keys,
; they send the same code with the middle character in lowercase.
; eg. "Shift F2" is the same as "Funct a" which is more mnemonic but
; keypad.el doesn't provide enough codes to accomodate all these)
("\^a@\^m" . 1) ("\^aH\^m" . 9)
("\^aA\^m" . 2) ("\^aI\^m" . 10)
("\^aB\^m" . 3) ("\^aJ\^m" . 11)
("\^aC\^m" . 4) ("\^aK\^m" . 12)
("\^aD\^m" . 5) ("\^aL\^m" . 13)
("\^aE\^m" . 6) ("\^aM\^m" . 14)
("\^aF\^m" . 7) ("\^aN\^m" . 15)
("\^aG\^m" . 8) ("\^aO\^m" . 16)
; Funct Arrow keys
("\^a\^k\^m" . (lambda (n) (interactive "p")
(move-to-window-line (1- n))))
("\^a\^j\^m" . (lambda (n) (interactive "p")
(move-to-window-line (- n))))
("\^a\^h\^m" . beginning-of-line)
("\^a\^l\^m" . end-of-line)))
; forget self to put memory to some serious use
(fmakunbound 'enable-arrow-keys))
(defun toggle-screen-width ()
"Alternate between 80 and 132 columns."
(interactive)
(if (<= (screen-width) 80)
(progn
(send-string-to-terminal "\e`;")
(set-screen-width 131))
(send-string-to-terminal "\e`:")
(set-screen-width 79)))
;-----------------------------------------------------------------------------
; this function is completely independent of wyse, it should be auto-loadable
; (presumably from keypad.el) for use in ~/emacs. It should be the only thing
; users need to know about all this unintelligible "forwarding" gibberish.
; This paves the way for a save-function-keys (some day or sleepless night)
; that will edit calls like (set-function-key ?x 'do-whatever) in ~/.emacs.
(defun set-function-key (key &optional def)
"Prompt for a function or other special key and assign it a meaning.
The key must have been \"forwarded\" to a character by term/*.el.
As a function takes two args CHAR and DEF, with DEF as in define-key.
If your terminals term/*.el forwards a physical key to CHAR (before or after
calling this function), then that key will mean DEF, else it is ignored.
CHAR is one of the following:
For numbered function keys
0, 1, ..., 24 (or ?\\^@, ?\\^a, ..., ?\\^x which is the same)
For keypad keys in application mode
?0, ?1, ..., ?9 -- keypad key labelled with that digit,
but only if that key is not an arrow key (see ?u, ?d, ?r, ?l).
?- -- keypad key labelled `-'.
?. -- keypad key labelled `.'.
?, -- keypad key labelled `,'.
?e -- key labelled enter.
For keys labelled with some words or a symbol
?a -- clear all tabs key.
?A -- insert line key.
?C -- clear screen key.
?c -- erase key.
?D -- delete character key.
?d -- down-arrow.
?E -- clear to end of line key.
?e -- key labelled enter.
?f -- find key or search key.
?F -- scroll forward key.
?H -- home-down.
?h -- home-position key.
?I -- insert character key
If there is just an \"insert\" key, it should be this.
?k -- delete key or remove key.
?L -- delete line key.
?l -- left-arrow.
?M -- exit insert mode key.
?N -- next page key.
?p -- portrait mode.
?P -- previous page key.
?q -- landscape mode.
?r -- right-arrow.
?R -- scroll reverse key.
?S -- clear to end of screen key.
?s -- select key.
?t -- clear tab this column key.
?T -- set tab this column key.
?u -- up-arrow.
?x -- do key.
?\\? -- help."
(interactive "kHit key to redefine")
(let ((map function-keymap))
(if (integerp key)
()
; reinvent lookup-key to get (map . char) instead of def of char in map
(setq map (or (lookup-key global-map
(substring key 0 (1- (length key))))
global-map)
key (string-to-char (substring key (1- (length key)))))
(while (symbolp map)
(setq map (symbol-function map)))
(setq map (if (listp map)
(cdr (assq key (cdr map)))
(aref map key)))
(if (and (consp map)
(integerp (cdr map)))
(setq key (cdr map)
map (car map)) ; function-keymap usually
(error "Key is not a \"forwarded\" definition.")))
(if def
()
(setq def (read-command "command (default last keyboard macro): "))
(if (string-equal (symbol-name def) "")
(setq def last-kbd-macro))
(setq command-history ; nonsense really, since you don't see
(cons ; key as in a function call (?char)
(list 'set-function-key key
(if (stringp def) def (list 'quote def)))
command-history)))
; all we do when called as a function
(define-key map (char-to-string key) def)))