rmf@bpdsun1.uucp (Rob Finley) (09/14/90)
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? BTW I cannot upgrade to 2.0 OpenWindows until the CAD applications get rewritten. I am running 4.1 BSD. I do want to upgrade B-). Thanks for the bandwidth! ----- "Lets go kick some Earthling butt!" -- Spaced Invaders quintro!bpdsun1!rmf@lll-winken.llnl.gov uunet!tiamat!quintro!bpdsun1!rmf
drapeau@sioux.Stanford.EDU (George Drapeau) (09/18/90)
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