UX400S keyboard question.

[Kimberle Koile <KKoile%arris.arris.com@RELAY.CS.NET>]

    Date: Thu, 25 Jan 90 11:39 PST
    From: Robert D. Pfeiffer <RDP@ALAN.kahuna.decnet.lockheed.com>
    Subject: UX400S keyboard question.
    To: SLUG@ALAN.kahuna.decnet.lockheed.com
    Message-ID: <19900125193908.5.RDP@THOMAS.kahuna.decnet.lockheed.com>

    Is it possible to configure a Sun with a UX400S to have a "genuine"
    Symbolics keyboard.  If not, just how awkward is it to use in practice
    for "real" software development.

We set the keyboard bindings using a .xmodmap file that gets read when
the X clients start up.  Setting the bindings this way keeps your
bindings in all X windows, not just the Genera one.  (See an example
file below).  You can easily move keys around; I also opted for taping
the Alt_L and Meta_L keys together to get a wider Control_L key.  (Duct
tape to the rescue once again.  I'll install a wider key at some point.)

Specific Symbolics keys can be set in the Keyboard Control Activity; you
can get the function calls off the kill ring (but on the Sun-4 I can't
get them to work outside the Keyboard Control program yet).

A keyboard thus configured is not awkward (except for the other people
around who come in to use my machine).

 Kimberle Koile
 ARRIS Pharmaceutical Corp.
 26 Landsdowne St.
 Cambridge, MA 02139
 (617) 494-0055
 
---------------------------------------------------------------------

! Sample .xmodmap file

! Delete modifier maps  (see xmodmap command)
remove Control = Control_L
remove Lock = Caps_Lock
remove Mod1 = Meta_L Meta_R

! Reassign key symbols

! Control becomes Delete
keysym Control_L = Delete

! Caps_Lock, Compose become Meta_*
keysym Caps_Lock = Meta_L
keysym Multi_key = Meta_R
keysym L9 = Caps_Lock

! Original Alt_L, Meta_R become Control_*
keysym Meta_R = Control_R

!make Control_L 2 keys wide 
keysym Alt_L = Control_L
keysym Meta_L = Control_L

keysym L10 = Super_L

! Map new keysyms to modifiers
add Control = Control_L Control_R
add Mod1 = Meta_L Meta_R
add Lock = Caps_Lock

! Balanced parens for lisp entry
keysym bracketleft = parenleft braceleft
keysym bracketright = parenright braceright
keysym 9 = 9 bracketleft
keysym 0 = 0 bracketright