Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!usc!julius.cs.uiuc.edu!apple!agate!shelby!morrow.stanford.edu!morrow!drapeau
From: drapeau@sioux.Stanford.EDU (George Drapeau)
Newsgroups: comp.windows.x
Subject: Re: Dvorak keyboard with OpenWindows1.0 on SS1
Message-ID: <DRAPEAU.90Sep17164717@sioux.Stanford.EDU>
Date: 17 Sep 90 23:47:17 GMT
References: <1990Sep13.210407.1828@bpdsun1.uucp>
Sender: news@morrow.stanford.edu (USENET News System)
Reply-To: drapeau@sioux.stanford.edu
Organization: Interactive Classroom Experiment, Stanford University
Lines: 142
In-Reply-To: rmf@bpdsun1.uucp's message of 13 Sep 90 21:04:07 GMT

In article <1990Sep13.210407.1828@bpdsun1.uucp> rmf@bpdsun1.uucp (Rob Finley) writes:

   Has anyone successfully gotten Sun OpenWindows 1.0.1 to change the
   keyboard mapping over to the Dvorak layout?  Do you have an .xmodmap(?)
   that you wouldn't mind sharing?  

   Can I do this so that it only affects my login and not everyone elses?  
   Does anyone make a real dvorak keyboard for the Sparc Station?  
   Keytronics makes the original type-4.  Keytronics, are you listening?

   quintro!bpdsun1!rmf@lll-winken.llnl.gov    uunet!tiamat!quintro!bpdsun1!rmf

Here's a partial Dvorak mapping for xterm and for emacs, so it's done
at the application level, not the server level.

Control keys are still Qwerty style; in other words, pressing the "j"
key produces "h", but pressing Control-J still produces Control-J (not
Control-H).

I hope this helps more than it confuses.

	George

-------------------------- put in your .emacs file --------------------------
(defun Dvorak ()
  "Written by George Drapeau, uses a translation table that turns your keyboard
into a Dvorak keyboard.  Try it, you'll like it."
  (interactive)
  (setq keyboard-translate-table "\C-@\C-a\C-b\C-c\C-d\C-e\C-f\C-g\C-h\C-i\C-j\C-k\C-l\C-m\C-n\C-o\C-p\C-q\C-r\C-s\C-t\C-u\C-v\C-w\C-x\C-y\C-z\033\034\035\036\037 !_#$%&-()*+w`vz0123456789SsW=VZ@AXJE>UIDCHTNMBRL\"POYGK<QF:[\\]^~/axje.uidchtnmbrl'poygk,qf;{|}?")
  )								    ;end defun Dvorak

(defun Qwerty ()
  "Written by George Drapeau, returns your keyboard to its original, Qwerty-like state."
  (interactive)
  (setq keyboard-translate-table nil)
  )								    ;end defun Qwerty


-------------------------- put in your .Xdefaults file --------------------------
*VT100.Translations:#override	\
<Key>F1:	keymap(Dvorak)	\n\
<Key>F2:	keymap(None)


*DvorakKeymap.translations:#override\
:Ctrl<Key>a:		string(0x01)	\n\
:Ctrl<Key>b:		string(0x02)	\n\
:Ctrl<Key>c:		string(0x03)	\n\
:Ctrl<Key>d:		string(0x04)	\n\
:Ctrl<Key>e:		string(0x05)	\n\
:Ctrl<Key>f:		string(0x06)	\n\
:Ctrl<Key>g:		string(0x07)	\n\
:Ctrl<Key>h:		string(0x08)	\n\
:Ctrl<Key>i:		string(0x09)	\n\
:Ctrl<Key>j:		string(0x0a)	\n\
:Ctrl<Key>k:		string(0x0b)	\n\
:Ctrl<Key>l:		string(0x0c)	\n\
:Ctrl<Key>m:		string(0x0d)	\n\
:Ctrl<Key>n:		string(0x0e)	\n\
:Ctrl<Key>o:		string(0x0f)	\n\
:Ctrl<Key>p:		string(0x10)	\n\
:Ctrl<Key>q:		string(0x11)	\n\
:Ctrl<Key>r:		string(0x12)	\n\
:Ctrl<Key>s:		string(0x13)	\n\
:Ctrl<Key>t:		string(0x14)	\n\
:Ctrl<Key>u:		string(0x15)	\n\
:Ctrl<Key>v:		string(0x16)	\n\
:Ctrl<Key>w:		string(0x17)	\n\
:Ctrl<Key>x:		string(0x18)	\n\
:Ctrl<Key>y:		string(0x19)	\n\
:Ctrl<Key>z:		string(0x1a)	\n\
:<Key>a:		string(a)	\n\
:<Key>b:		string(x)	\n\
:<Key>c:		string(j)	\n\
:<Key>d:		string(e)	\n\
:<Key>e:		string(".")	\n\
:<Key>f:		string(u)	\n\
:<Key>g:		string(i)	\n\
:<Key>h:		string(d)	\n\
:<Key>i:		string(c)	\n\
:<Key>j:		string(h)	\n\
:<Key>k:		string(t)	\n\
:<Key>l:		string(n)	\n\
:<Key>m:		string(m)	\n\
:<Key>n:		string(b)	\n\
:<Key>o:		string(r)	\n\
:<Key>p:		string(l)	\n\
:<Key>q:		string("'")	\n\
:<Key>r:		string(p)	\n\
:<Key>s:		string(o)	\n\
:<Key>t:		string(y)	\n\
:<Key>u:		string(g)	\n\
:<Key>v:		string(k)	\n\
:<Key>w:		string(",")	\n\
:<Key>x:		string(q)	\n\
:<Key>y:		string(f)	\n\
:<Key>z:		string(";")	\n\
:<Key>minus:		string("`")	\n\
:<Key>semicolon:	string(s)	\n\
:<Key>grave:		string("/")	\n\
:<Key>apostrophe:	string("-")	\n\
:<Key>comma:		string(w)	\n\
:<Key>period:		string(v)	\n\
:<Key>slash:		string(z)	\n\
:<Key>quotedbl:		string("_")	\n\
:<Key>underscore:	string("~")	\n\
:<Key>asciitilde:	string("?")	\n\
:<Key>A:		string(A)	\n\
:<Key>B:		string(X)	\n\
:<Key>C:		string(J)	\n\
:<Key>D:		string(E)	\n\
:<Key>E:		string(">")	\n\
:<Key>F:		string(U)	\n\
:<Key>G:		string(I)	\n\
:<Key>H:		string(D)	\n\
:<Key>I:		string(C)	\n\
:<Key>J:		string(H)	\n\
:<Key>K:		string(T)	\n\
:<Key>L:		string(N)	\n\
:<Key>M:		string(M)	\n\
:<Key>N:		string(B)	\n\
:<Key>O:		string(R)	\n\
:<Key>P:		string(L)	\n\
:<Key>Q:		string(0x22)	\n\
:<Key>R:		string(P)	\n\
:<Key>S:		string(O)	\n\
:<Key>T:		string(Y)	\n\
:<Key>U:		string(G)	\n\
:<Key>V:		string(K)	\n\
:<Key>W:		string("<")	\n\
:<Key>X:		string(Q)	\n\
:<Key>Y:		string(F)	\n\
:<Key>Z:		string(":")	\n\
:<Key>less:		string(W)	\n\
:<Key>greater:		string(V)	\n\
:<Key>question:		string(Z)	\n\
:<Key>colon:		string(S)
--
______________________________________________________________________________
George D. Drapeau			Internet: drapeau@jessica.stanford.edu
Academic Information Resources
Stanford University