← Back to branch summary

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

« back to all changes in this revision

Viewing changes to scm/prime-custom.scm

  • Committer: Bazaar Package Importer
  • Author(s): Masahito Omote
  • Date: 2008-06-25 19:56:33 UTC
  • mfrom: (3.1.18 intrepid)
  • Revision ID: james.westby@ubuntu.com-20080625195633-8jljph4rfq00l8o7
Tags: 1:1.5.1-2
http://bugs.debian.org/482659
http://bugs.debian.org/483078
* uim-tcode: provide tutcode-custom.scm, tutcode-bushudic.scm
  and tutcode-rule.scm (Closes: #482659)
* Fix FTBFS: segv during compile (Closes: #483078).
  I personally think this bug is not specific for uim but is a optimization
  problem on gcc-4.3.1. (https://bugs.freedesktop.org/show_bug.cgi?id=16477)

Show diffs side-by-side

added added

removed removed

Lines of Context:
scm/prime-custom.scm
1
1
;;; prime-custom.scm: Customization variables for prime.scm
2
2
;;;
3
 
;;; Copyright (c) 2003-2006 uim Project http://uim.freedesktop.org/
 
3
;;; Copyright (c) 2003-2008 uim Project http://code.google.com/p/uim/
4
4
;;;
5
5
;;; All rights reserved.
6
6
;;;
35
35
(define prime-im-short-desc (N_ "Japanese predictive input method"))
36
36
 
37
37
(define-custom-group 'prime
38
 
  (ugettext prime-im-name-label)
39
 
  (ugettext prime-im-short-desc))
 
38
  prime-im-name-label
 
39
  prime-im-short-desc)
40
40
 
41
41
(define-custom-group 'prime-advanced
42
 
  (_ "PRIME (advanced)")
43
 
  (_ "Advanced settings for PRIME"))
 
42
  (N_ "PRIME (advanced)")
 
43
  (N_ "Advanced settings for PRIME"))
44
44
 
45
45
(define-custom-group 'language
46
 
  (_ "Language choice")
47
 
  (_ "Language settings"))
 
46
  (N_ "Language choice")
 
47
  (N_ "Language settings"))
48
48
 
49
49
(define-custom-group 'japanese
50
 
  (_ "Japanese")
51
 
  (_ "Japanese specific settings"))
 
50
  (N_ "Japanese")
 
51
  (N_ "Japanese specific settings"))
52
52
 
53
53
(define-custom-group 'english
54
 
  (_ "English")
55
 
  (_ "English specific settings"))
 
54
  (N_ "English")
 
55
  (N_ "English specific settings"))
56
56
 
57
57
 
58
58
(define-custom 'prime-custom-default-language 'Japanese
59
59
  '(prime language)
60
60
  (list 'choice
61
 
        (list 'Japanese (_ "Japanese") (_ "Japanese"))
62
 
        (list 'English  (_ "English")  (_ "English")))
63
 
  (_ "Default language")
64
 
  (_ "long description will be here."))
 
61
        (list 'Japanese (N_ "Japanese") (N_ "Japanese"))
 
62
        (list 'English  (N_ "English")  (N_ "English")))
 
63
  (N_ "Default language")
 
64
  (N_ "long description will be here."))
65
65
 
66
66
(define-custom 'prime-language-toggle-key '("F11")
67
67
  '(prime language)
68
68
  '(key)
69
 
  (_ "Language toggle key")
70
 
  (_ "long description will be here."))
 
69
  (N_ "Language toggle key")
 
70
  (N_ "long description will be here."))
71
71
 
72
72
(define-custom 'prime-auto-register-mode? #t
73
73
  '(prime)
74
74
  '(boolean)
75
 
  (_ "Enable auto register mode")
76
 
  (_ "long description will be here."))
 
75
  (N_ "Enable auto register mode")
 
76
  (N_ "long description will be here."))
77
77
 
78
78
(define-custom 'prime-custom-japanese-space 'wide
79
79
  '(prime japanese)
80
80
  (list 'choice
81
 
        (list 'wide (_ "Wide width (Zenkaku)") (_ "Wide width (Zenkaku)"))
82
 
        (list 'half (_ "Half width (Hankaku)") (_ "Half width (Hankaku)")))
83
 
  (_ "Space character")
84
 
  (_ "long description will be here."))
 
81
        (list 'wide (N_ "Wide width (Zenkaku)") (N_ "Wide width (Zenkaku)"))
 
82
        (list 'half (N_ "Half width (Hankaku)") (N_ "Half width (Hankaku)")))
 
83
  (N_ "Space character")
 
84
  (N_ "long description will be here."))
85
85
 
86
86
(define-custom 'prime-altspace-key '("<Control> " "<Alt> ")
87
87
  '(prime japanese)
88
88
  '(key)
89
 
  (_ "Alternative space character key")
90
 
  (_ "long description will be here."))
 
89
  (N_ "Alternative space character key")
 
90
  (N_ "long description will be here."))
91
91
 
92
92
(define-custom 'prime-use-unixdomain? #t
93
93
  '(prime advanced)
94
94
  '(boolean)
95
 
  (_ "Use UNIX domain socket to communicate with PRIME")
96
 
  (_ "long description will be here."))
 
95
  (N_ "Use UNIX domain socket to communicate with PRIME")
 
96
  (N_ "long description will be here."))
97
97
 
98
98
;(define-custom 'prime-use-candidate-window? #t
99
99
;  '(prime candwin)
110
110
(define-custom 'prime-nr-candidate-max 10
111
111
  '(prime-advanced candwin)
112
112
  '(integer 1 20)
113
 
  (_ "Number of candidates in candidate window at a time")
114
 
  (_ "long description will be here."))
 
113
  (N_ "Number of candidates in candidate window at a time")
 
114
  (N_ "long description will be here."))
115
115
 
116
116
(define-custom 'prime-always-show-window? #t
117
117
  '(prime-advanced candwin)
118
118
  '(boolean)
119
 
  (_ "Always showing candidate window")
120
 
  (_ "long description will be here."))
 
119
  (N_ "Always showing candidate window")
 
120
  (N_ "long description will be here."))
121
121
 
122
122
;; If #t a candidate window displays usage examples of candidate words.
123
123
(define-custom 'prime-custom-display-usage? #t
124
124
  '(prime-advanced annotation)
125
125
  '(boolean)
126
 
  (_ "Show usage examples of candidate words")
127
 
  (_ "long description will be here."))
 
126
  (N_ "Show usage examples of candidate words")
 
127
  (N_ "long description will be here."))
128
128
 
129
129
;; If #t a candidate window displays comments of candidate words.
130
130
(define-custom 'prime-custom-display-comment? #t
131
131
  '(prime-advanced annotation)
132
132
  '(boolean)
133
 
  (_ "Show candidate annotations")
134
 
  (_ "long description will be here."))
 
133
  (N_ "Show candidate annotations")
 
134
  (N_ "long description will be here."))
135
135
 
136
136
;; If #t a candidate window displays forms of candidate words such as
137
137
;; 'l (small L)', 'I (large i)'.
138
138
(define-custom 'prime-custom-display-form? #t
139
139
  '(prime-advanced annotation)
140
140
  '(boolean)
141
 
  (_ "Show candidate forms")
142
 
  (_ "long description will be here."))
 
141
  (N_ "Show candidate forms")
 
142
  (N_ "long description will be here."))
143
143
 
144
144
;; ------------------------------------------------------------
145
145
 
146
146
(define-custom 'prime-custom-number-selection? #f
147
147
  '(prime-advanced special-op)
148
148
  '(boolean)
149
 
  (_ "Select candidate by numeral keys")
150
 
  (_ "long description will be here."))
 
149
  (N_ "Select candidate by numeral keys")
 
150
  (N_ "long description will be here."))
151
151
 
152
152
(define-custom 'prime-custom-app-mode-vi? #f
153
153
  '(prime-advanced special-op)
154
154
  '(boolean)
155
 
  (_ "Enable vi-cooperative mode")
156
 
  (_ "long description will be here."))
 
155
  (N_ "Enable vi-cooperative mode")
 
156
  (N_ "long description will be here."))
 
157
 
 
158
(custom-add-hook 'prime-custom-app-mode-vi?
 
159
  'custom-set-hooks
 
160
  (lambda ()
 
161
    (prime-configure-app-mode-vi)))
157
162
 
158
163
(define-custom 'prime-pseudo-mode-cursor? #f
159
164
  '(prime-advanced special-op)
160
165
  '(boolean)
161
 
  (_ "Enable pseudo mode cursor")
162
 
  (_ "long description will be here."))
 
166
  (N_ "Enable pseudo mode cursor")
 
167
  (N_ "long description will be here."))
163
168
 
164
169
;(define-custom 'prime-mask-pending-preedit? #f
165
170
;  '(prime)
166
171
;  '(boolean)
167
 
;  (_ "Mask preedit strings (For T-Code users)")
168
 
;  (_ "long description will be here."))
 
172
;  (N_ "Mask preedit strings (For T-Code users)")
 
173
;  (N_ "long description will be here."))
169
174
 
170
175
;;
171
176
;; toolbar
185
190
         "��"
186
191
         (N_ "Japanese")
187
192
         (N_ "PRIME on"))
 
193
   (list 'action_prime_mode_english
 
194
         'ja_halfwidth_alnum
 
195
         "A"
 
196
         (N_ "English")
 
197
         (N_ "PRIME on"))
188
198
   (list 'action_prime_mode_wide_latin
189
199
         'ja_fullwidth_alnum
190
200
         "��"
208
218
;  (cons 'choice
209
219
;       (map indication-alist-entry-extract-choice
210
220
;            prime-input-mode-indication-alist))
211
 
;  (_ "Default input mode")
212
 
;  (_ "long description will be here."))
 
221
;  (N_ "Default input mode")
 
222
;  (N_ "long description will be here."))
213
223
 
214
224
(define prime-input-mode-actions (map car prime-input-mode-indication-alist))
215
225
;; Users don't care this option.
220
230
;  (cons 'ordered-list
221
231
;       (map indication-alist-entry-extract-choice
222
232
;            prime-input-mode-indication-alist))
223
 
;  (_ "Input mode menu items")
224
 
;  (_ "long description will be here."))
 
233
;  (N_ "Input mode menu items")
 
234
;  (N_ "long description will be here."))
225
235
 
226
236
;; value dependency
227
237
;(if custom-full-featured?