← Back to branch summary

~ubuntu-branches/ubuntu/maverick/uim/maverick

« back to all changes in this revision

Viewing changes to scm/prime-key-custom.scm

  • Committer: Bazaar Package Importer
  • Author(s): Masahito Omote
  • Date: 2006-11-23 15:10:53 UTC
  • mfrom: (3.1.8 edgy)
  • Revision ID: james.westby@ubuntu.com-20061123151053-q42sk1lvks41xpfx
Tags: 1:1.2.1-9
http://bugs.debian.org/398530
uim-gtk2.0.postinst: Don't call update-gtk-immodules on purge.
(closes: Bug#398530)

Show diffs side-by-side

added added

removed removed

Lines of Context:
scm/prime-key-custom.scm
 
1
;;; prime-key-custom.scm: Customization variables for PRIME key bindings
 
2
;;;
 
3
;;; Copyright (c) 2003-2006 uim Project http://uim.freedesktop.org/
 
4
;;;
 
5
;;; All rights reserved.
 
6
;;;
 
7
;;; Redistribution and use in source and binary forms, with or without
 
8
;;; modification, are permitted provided that the following conditions
 
9
;;; are met:
 
10
;;; 1. Redistributions of source code must retain the above copyright
 
11
;;;    notice, this list of conditions and the following disclaimer.
 
12
;;; 2. Redistributions in binary form must reproduce the above copyright
 
13
;;;    notice, this list of conditions and the following disclaimer in the
 
14
;;;    documentation and/or other materials provided with the distribution.
 
15
;;; 3. Neither the name of authors nor the names of its contributors
 
16
;;;    may be used to endorse or promote products derived from this software
 
17
;;;    without specific prior written permission.
 
18
;;;
 
19
;;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS IS'' AND
 
20
;;; ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 
21
;;; IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 
22
;;; ARE DISCLAIMED.  IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR CONTRIBUTORS BE LIABLE
 
23
;;; FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 
24
;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 
25
;;; OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 
26
;;; HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 
27
;;; LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 
28
;;; OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 
29
;;; SUCH DAMAGE.
 
30
;;;;
 
31
 
 
32
(require "i18n.scm")
 
33
 
 
34
;; original key definitions
 
35
 
 
36
;;(define-key prime-latin-key?          '("<Control>l" generic-off-key?))
 
37
;;(define-key prime-wide-latin-key?     "<Control>L")
 
38
;;(define-key prime-begin-conv-key?     'generic-begin-conv-key?)
 
39
;;(define-key prime-on-key?         '("<Control>j" "<Control>J" generic-on-key?))
 
40
;;(define-key prime-commit-key?         'generic-commit-key?)
 
41
;;(define-key prime-next-candidate-key? 'generic-next-candidate-key?)
 
42
;;(define-key prime-prev-candidate-key? 'generic-prev-candidate-key?)
 
43
;;(define-key prime-next-page-key?      'generic-next-page-key?)
 
44
;;(define-key prime-prev-page-key?      'generic-prev-page-key?)
 
45
;;(define-key prime-cancel-key?         'generic-cancel-key?)
 
46
;;(define-key prime-backspace-key?      'generic-backspace-key?)
 
47
;;(define-key prime-delete-key?         'generic-delete-key?)
 
48
;;(define-key prime-go-left-key?        'generic-go-left-key?)
 
49
;;(define-key prime-go-right-key?       'generic-go-right-key?)
 
50
;;(define-key prime-go-left-edge-key?   '("<Control>a" "<Control>left"))
 
51
;;(define-key prime-go-right-edge-key?  '("<Control>e" "<Control>right"))
 
52
;;(define-key prime-register-key?       '("<Control>w"))
 
53
;;(define-key prime-typing-mode-hiragana-key?   "F6")
 
54
;;(define-key prime-typing-mode-katakana-key?   "F7")
 
55
;;(define-key prime-typing-mode-hankana-key?    "F8")
 
56
;;(define-key prime-typing-mode-wideascii-key?  "F9")
 
57
;;(define-key prime-typing-mode-ascii-key?      "F10")
 
58
;;(define-key prime-expand-segment-key? '("<Control>o" "<Shift>right"))
 
59
;;(define-key prime-shrink-segment-key? '("<Control>i" "<Shift>left"))
 
60
;;(define-key prime-english-next-candidate-key? '("<Control>i" "tab" generic-next-candidate-key?))
 
61
;;(define-key prime-english-direct-key? '("." "," ":" ";" "(" ")" "\"" "'" "!" "?"))
 
62
 
 
63
(define-custom-group 'prime-keys1
 
64
                     (_ "PRIME key bindings 1")
 
65
                     (_ "long description will be here."))
 
66
 
 
67
(define-custom-group 'prime-keys2
 
68
                     (_ "PRIME key bindings 2")
 
69
                     (_ "long description will be here."))
 
70
 
 
71
(define-custom-group 'prime-keys3
 
72
                     (_ "PRIME key bindings 3")
 
73
                     (_ "long description will be here."))
 
74
 
 
75
 
 
76
(define-custom 'prime-register-key '("<Control>w")
 
77
               '(prime-keys1)
 
78
               '(key)
 
79
               (_ "[PRIME] prime-register-key")
 
80
               (_ "long description will be here"))
 
81
 
 
82
(define-custom 'prime-typing-mode-hiragana-key '("F6")
 
83
               '(prime-keys1 mode-transition)
 
84
               '(key)
 
85
               (_ "[PRIME] prime-typing-mode-hiragana-key")
 
86
               (_ "long description will be here"))
 
87
 
 
88
(define-custom 'prime-typing-mode-katakana-key '("F7")
 
89
               '(prime-keys1 mode-transition)
 
90
               '(key)
 
91
               (_ "[PRIME] prime-typing-mode-katakana-key")
 
92
               (_ "long description will be here"))
 
93
 
 
94
(define-custom 'prime-typing-mode-hankana-key '("F8")
 
95
               '(prime-keys1 mode-transition)
 
96
               '(key)
 
97
               (_ "[PRIME] prime-typing-mode-hankana-key")
 
98
               (_ "long description will be here"))
 
99
 
 
100
(define-custom 'prime-typing-mode-wideascii-key '("F9")
 
101
               '(prime-keys1 mode-transition)
 
102
               '(key)
 
103
               (_ "[PRIME] prime-typing-mode-wideascii-key")
 
104
               (_ "long description will be here"))
 
105
 
 
106
(define-custom 'prime-typing-mode-ascii-key '("F10")
 
107
               '(prime-keys1 mode-transition)
 
108
               '(key)
 
109
               (_ "[PRIME] prime-typing-mode-ascii-key")
 
110
               (_ "long description will be here"))
 
111
 
 
112
;;
 
113
;; advanced 1
 
114
;;
 
115
(define-custom 'prime-on-key '("<IgnoreCase><Control>j" generic-on-key)
 
116
               '(prime-keys2 mode-transition)
 
117
               '(key)
 
118
               (_ "[PRIME] on")
 
119
               (_ "long description will be here"))
 
120
 
 
121
(define-custom 'prime-latin-key '("<Control>l" generic-off-key)
 
122
               '(prime-keys2 mode-transition)
 
123
               '(key)
 
124
               (_ "[PRIME] off")
 
125
               (_ "long description will be here"))
 
126
 
 
127
(define-custom 'prime-wide-latin-key '("<Control>L")
 
128
               '(prime-keys2 mode-transition)
 
129
               '(key)
 
130
               (_ "[PRIME] fullwidth alphanumeric mode")
 
131
               (_ "long description will be here"))
 
132
 
 
133
(define-custom 'prime-begin-conv-key '(generic-begin-conv-key)
 
134
               '(prime-keys2)
 
135
               '(key)
 
136
               (_ "[PRIME] begin conversion")
 
137
               (_ "long description will be here"))
 
138
 
 
139
(define-custom 'prime-commit-key '(generic-commit-key)
 
140
               '(prime-keys2)
 
141
               '(key)
 
142
               (_ "[PRIME] commit")
 
143
               (_ "long description will be here"))
 
144
 
 
145
(define-custom 'prime-cancel-key '(generic-cancel-key)
 
146
               '(prime-keys2)
 
147
               '(key)
 
148
               (_ "[PRIME] cancel")
 
149
               (_ "long description will be here"))
 
150
 
 
151
(define-custom 'prime-next-candidate-key '(generic-next-candidate-key)
 
152
               '(prime-keys2)
 
153
               '(key)
 
154
               (_ "[PRIME] next candidate")
 
155
               (_ "long description will be here"))
 
156
 
 
157
(define-custom 'prime-prev-candidate-key '(generic-prev-candidate-key)
 
158
               '(prime-keys2)
 
159
               '(key)
 
160
               (_ "[PRIME] previous candidate")
 
161
               (_ "long description will be here"))
 
162
 
 
163
(define-custom 'prime-next-page-key '(generic-next-page-key)
 
164
               '(prime-keys2)
 
165
               '(key)
 
166
               (_ "[PRIME] next page of candidate window")
 
167
               (_ "long description will be here"))
 
168
 
 
169
(define-custom 'prime-prev-page-key '(generic-prev-page-key)
 
170
               '(prime-keys2)
 
171
               '(key)
 
172
               (_ "[PRIME] previous page of candidate window")
 
173
               (_ "long description will be here"))
 
174
 
 
175
;;
 
176
;; advanced 2
 
177
;;
 
178
(define-custom 'prime-go-left-edge-key '("<IgnoreCase><Control>a" "<Control>left")
 
179
               '(prime-keys3)
 
180
               '(key)
 
181
               (_ "[PRIME] beginning of preedit")
 
182
               (_ "long description will be here"))
 
183
 
 
184
(define-custom 'prime-go-right-edge-key '("<IgnoreCase><Control>e" "<Control>right")
 
185
               '(prime-keys3)
 
186
               '(key)
 
187
               (_ "[PRIME] end of preedit")
 
188
               (_ "long description will be here"))
 
189
 
 
190
(define-custom 'prime-backspace-key '(generic-backspace-key)
 
191
               '(prime-keys3)
 
192
               '(key)
 
193
               (_ "[PRIME] backspace")
 
194
               (_ "long description will be here"))
 
195
 
 
196
(define-custom 'prime-delete-key '(generic-delete-key)
 
197
               '(prime-keys3)
 
198
               '(key)
 
199
               (_ "[PRIME] delete")
 
200
               (_ "long description will be here"))
 
201
 
 
202
(define-custom 'prime-go-left-key '(generic-go-left-key)
 
203
               '(prime-keys3)
 
204
               '(key)
 
205
               (_ "[PRIME] go left")
 
206
               (_ "long description will be here"))
 
207
 
 
208
(define-custom 'prime-go-right-key '(generic-go-right-key)
 
209
               '(prime-keys3)
 
210
               '(key)
 
211
               (_ "[PRIME] go right")
 
212
               (_ "long description will be here"))
 
213
 
 
214
(define-custom 'prime-shrink-segment-key '("<IgnoreCase><Control>i" "<Shift>left")
 
215
               '(prime-keys3)
 
216
               '(key)
 
217
               (_ "[PRIME] shrink segment")
 
218
               (_ "long description will be here"))
 
219
 
 
220
(define-custom 'prime-expand-segment-key '("<IgnoreCase><Control>o" "<Shift>right")
 
221
               '(prime-keys3)
 
222
               '(key)
 
223
               (_ "[PRIME] extend segment")
 
224
               (_ "long description will be here"))
 
225
 
 
226
(define-custom 'prime-english-next-candidate-key '("<IgnoreCase><Control>i" "tab" generic-next-candidate-key)
 
227
               '(prime-keys3 english)
 
228
               '(key)
 
229
               (_ "[PRIME] next candidate in English mode")
 
230
               (_ "long description will be here"))
 
231
 
 
232
(define-custom 'prime-english-direct-key '("." "," ":" ";" "(" ")" "\"" "'" "!" "?")
 
233
               '(prime-keys3 english)
 
234
               '(key)
 
235
               (_ "[PRIME] Direct key in English mode")
 
236
               (_ "long description will be here"))