🚀 go-pugleaf

In article <1990Sep6.132819.26831@warwick.ac.uk> cudcv@warwick.ac.uk (Rob McMahon) writes:
> In article <9009051757.AA20732@life.ai.mit.edu> gildea@ALEXANDER.BBN.COM (Stephen Gildea) writes:
> >  The basic movement commands are difficult to master because they involve
> >  control characters, and the keys are widely separated on the keyboard, ...
> >
> >Use the arrow keys.  I rebind my left and right arrows to move by
> >words, and thus I can use just the arrow keys to move quickly to within a
> >word of where I want to be.

> This is one of the commonest complaints I get when I try to persuade
> people to use emacs-style editors round here: "But the arrow keys
> don't work...".  Most of our dumb terminals are TeleVideos (or Wyse's
> emulating TeleVideos) that send ^H, ^V, ^K, and ^L for the arrow keys.
> What am I supposed to do with the previous uses of these control keys?
> Particularly ^V and ^K which are pretty fundamental.  I don't want
> to use a different keymap on every terminal round here.

At our lab, we use WYSE-50's which use ^H, ^J, ^K, and ^L, which are
ALL horrible keys for arrow keys.  I'll post my fix, which is a real
kludge, and maybe someone else will have a better idea.  My solution
is to toggle the numeric keypad (of course, some terminals won't have
one) to give you cursor control instead of numbers.  DON'T FORGET to
switch these off when you are trying to type numbers, because it
changes the bindings of the numbers across the top of the keyboard
too!

------------------------------------------------------------------------
; Keypad will be set up like an IBM-PC:
; HOME (beginning-of-line)	UP (previous-line)	PAGE-UP (scroll-down)  
; LEFT (backward-char)		(goto-line)		RIGHT (forward-char)
; END (end-of-line)		DOWN (next-line)	PAGE-DN (scroll-up)

(defvar *keypad-mode* 'numeric)
(defun toggle-wyse-keypad-mode ()
  "Invoking this function remaps the number keys to movement functions, and
back again."
  (interactive nil)
  (cond ((eq *keypad-mode* 'numeric)
	 (setq *keypad-mode* 'movement)
	 (wysetell "movement")
	 (global-set-key "1" 'end-of-line)
	 (global-set-key "2" 'next-line)
	 (global-set-key "3" 'scroll-up)
	 (global-set-key "4" 'backward-char)
	 (global-set-key "5" 'goto-line)
	 (global-set-key "6" 'forward-char)
	 (global-set-key "7" 'beginning-of-line)
	 (global-set-key "8" 'previous-line)
	 (global-set-key "9" 'scroll-down)
	)
	(t
	 (setq *keypad-mode* 'numeric)
	 (echo-keypad-mode)
	 (let ((ccode 48))
	   (while (< ccode 58)
	     (global-set-key (char-to-string ccode) 'self-insert-command)
	     (setq ccode (1+ ccode))
	   )
         )
	)
  )
)

(defun echo-keypad-mode ()
  "Print mode wyse keypad is in."
  (interactive nil)
  (prin1 *keypad-mode* t)
)

; These key sequences are the Ins/Repl key of they WY-50, at the
; corner of the keypad, used to toggle the keypad between numeric and
; cursor control, and inform you of the current state.
(global-set-key "\er" 'toggle-wyse-keypad-mode)
(global-set-key "\eq" 'echo-keypad-mode)