|
70
|
1 (require 'quail)
|
|
|
2 ;; # !Id: Punct.tit,v 1.1 1991/10/27 06:21:16 ygz Exp !
|
|
|
3 ;; # HANZI input table for cxterm
|
|
|
4 ;; # To be used by cxterm, convert me to .cit format first
|
|
|
5 ;; # .cit version 1
|
|
|
6 ;; ENCODE: GB
|
|
|
7 ;; MULTICHOICE: YES
|
|
|
8 ;; PROMPT: $A::WVJdHk!K1j5c7{:E!K# (B
|
|
|
9 ;; #
|
|
|
10 ;; COMMENT Copyright 1991 by Yongguang Zhang.
|
|
|
11 ;; COMMENT Permission to use/modify/copy for any purpose is hereby granted.
|
|
|
12 ;; COMMENT Absolutely no fee and no warranties.
|
|
|
13 ;; COMMENT
|
|
|
14 ;; COMMENT use <CTRL-f> to move to the right
|
|
|
15 ;; COMMENT use <CTRL-b> to move to the left
|
|
|
16 ;; # define keys
|
|
|
17 ;; VALIDINPUTKEY: "\043$%&'()*+,-./0123456789:;<=>?@[\134]^_`abcdefghijklm
|
|
|
18 ;; VALIDINPUTKEY: nopqrstuvwxyz|~
|
|
|
19 ;; SELECTKEY: 1\040
|
|
|
20 ;; SELECTKEY: 2
|
|
|
21 ;; SELECTKEY: 3
|
|
|
22 ;; SELECTKEY: 4
|
|
|
23 ;; SELECTKEY: 5
|
|
|
24 ;; SELECTKEY: 6
|
|
|
25 ;; SELECTKEY: 7
|
|
|
26 ;; SELECTKEY: 8
|
|
|
27 ;; SELECTKEY: 9
|
|
|
28 ;; SELECTKEY: 0
|
|
|
29 ;; BACKSPACE: \010\177
|
|
|
30 ;; DELETEALL: \015\025
|
|
|
31 ;; MOVERIGHT: \006
|
|
|
32 ;; MOVELEFT: \002
|
|
|
33 ;; REPEATKEY: \020\022
|
|
|
34 ;; # the following line must not be removed
|
|
|
35 ;; BEGINDICTIONARY
|
|
|
36 (quail-define-package "punct" "$A1j5c7{:E(B"
|
|
|
37 t
|
|
|
38 "$A::WVJdHk!K1j5c7{:E!K# (B
|
|
|
39 Copyright 1991 by Yongguang Zhang.
|
|
|
40 Permission to use/modify/copy for any purpose is hereby granted.
|
|
|
41 Absolutely no fee and no warranties.
|
|
|
42
|
|
|
43 use <CTRL-f> to move to the right
|
|
|
44 use <CTRL-b> to move to the left"
|
|
|
45 '(
|
|
|
46 (" " . quail-select-current)
|
|
|
47 )
|
|
|
48 nil nil)
|
|
|
49
|
|
|
50 ;; #
|
|
|
51 (qdv "\"" "$A#"!0!1!e(B")
|
|
|
52 (qd "\043" "$A##(B")
|
|
|
53 (qdv "$" "$A#$!g!i!j(B")
|
|
|
54 (qdv "%" "$A#%!k(B")
|
|
|
55 (qdv "'" "$A#'!.!/!d(B")
|
|
|
56 (qdv "(" "$A#(!8!:(B")
|
|
|
57 (qdv ")" "$A#)!9!;(B")
|
|
|
58 (qdv "*" "$A#*!A!G!D!I(B")
|
|
|
59 (qdv "+" "$A#+!@!F!E!H(B")
|
|
|
60 (qdv "," "$A#,!"(B")
|
|
|
61 (qdv "-" "$A#-!%!*!+(B")
|
|
|
62 (qdv "." "$A#.!#!$!'!-!_!`!c!Q(B")
|
|
|
63 (qdv "/" "$A#/!B!L#\(B")
|
|
|
64 (qdv "0" "$A#0":"D"N"X"b"n"z(B")
|
|
|
65 (qdv "1" "$A#1"1";"E"O"Y"e"q(B")
|
|
|
66 (qdv "2" "$A#2"2"<"F"P"Z"f"r(B")
|
|
|
67 (qdv "3" "$A#3"3"="G"Q"["g"s(B")
|
|
|
68 (qdv "4" "$A#4"4">"H"R"\"h"t(B")
|
|
|
69 (qdv "5" "$A#5"5"?"I"S"]"i"u(B")
|
|
|
70 (qdv "6" "$A#6"6"@"J"T"^"j"v(B")
|
|
|
71 (qdv "7" "$A#7"7"A"K"U"_"k"w(B")
|
|
|
72 (qdv "8" "$A#8"8"B"L"V"`"l"x(B")
|
|
|
73 (qdv "9" "$A#9"9"C"M"W"a"m"y(B")
|
|
|
74 (qdv ":" "$A#:!K(B")
|
|
|
75 (qdv "<" "$A#<!4!6!Z!\(B")
|
|
|
76 (qdv "=" "$A#=!Y!V!T!U(B")
|
|
|
77 (qdv ">" "$A#>!5!7![!](B")
|
|
|
78 (qdv "@" "$A#@!Q(B")
|
|
|
79 (qdv "[" "$A#[!2!<!>#{(B")
|
|
|
80 (qdv "\134" "$A#\#/(B")
|
|
|
81 (qdv "]" "$A#]!3!=!?#}(B")
|
|
|
82 (qdv "^" "$A#^!&!P(B")
|
|
|
83 (qdv "_" "$A#_!M(B")
|
|
|
84 (qdv "`" "$A#`!.!/(B")
|
|
|
85 (qdv "logo" "$A!n!o!p!q!r!s!t!u!v!w!x!y!z!{!|!}!~(B")
|
|
|
86 (qdv "math" "$A!@!A!B!C!D!E!F!G!H!I!J!K!L!M!N!O!P!Q!R!S!T!U!V!W!X!Y!Z![!\!]!^!_!`(B")
|
|
|
87 (qdv "punct" "$A!!!"!#!$!%!&!'!(!)!*!+!,!-!.!/!0!1!2!3!4!5!6!7!8!9!:!;!<!=!>!?(B")
|
|
|
88 (qdv "symbol" "$A!a!b!c!d!e!f!g!h!i!j!k!l!m(B")
|
|
|
89 (qdv "|" "$A#|!,!N(B")
|
|
|
90 (qdv "~" "$A#~!+!W!X!^(B")
|
|
|
91
|
|
|
92 (quail-setup-current-package)
|
