← Back to branch summary

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

« back to all changes in this revision

Viewing changes to scm/skk-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/skk-custom.scm
1
1
;;; skk-custom.scm: Customization variables for skk.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
;;;
36
36
(define skk-im-short-desc (N_ "uim version of SKK input method"))
37
37
 
38
38
(define-custom-group 'skk
39
 
                     (ugettext skk-im-name-label)
40
 
                     (ugettext skk-im-short-desc))
 
39
                     skk-im-name-label
 
40
                     skk-im-short-desc)
41
41
 
42
42
(define-custom-group 'skk-dict
43
 
                     (_ "SKK dictionaries")
44
 
                     (_ "Dictionary settings for SKK"))
 
43
                     (N_ "SKK dictionaries")
 
44
                     (N_ "Dictionary settings for SKK"))
45
45
 
46
46
(define-custom-group 'skk-advanced
47
 
                     (_ "SKK (advanced)")
48
 
                     (_ "Advanced settings for SKK"))
 
47
                     (N_ "SKK (advanced)")
 
48
                     (N_ "Advanced settings for SKK"))
 
49
 
 
50
;; subgroup
 
51
(define-custom-group 'skkserv
 
52
                     (N_ "SKK server")
 
53
                     (N_ "long description will be here."))
 
54
 
 
55
;; subgroup
 
56
(define-custom-group 'dict-files
 
57
                     (N_ "Dictionary files")
 
58
                     (N_ "long description will be here."))
49
59
 
50
60
 
51
61
;;
55
65
(define-custom 'skk-use-candidate-window? #t
56
66
  '(skk candwin)
57
67
  '(boolean)
58
 
  (_ "Use candidate window")
59
 
  (_ "long description will be here."))
 
68
  (N_ "Use candidate window")
 
69
  (N_ "long description will be here."))
60
70
 
61
71
(define-custom 'skk-commit-candidate-by-label-key? #t
62
72
  '(skk candwin)
63
73
  '(boolean)
64
 
  (_ "Commit candidate by heading label keys")
65
 
  (_ "long description will be here."))
 
74
  (N_ "Commit candidate by heading label keys")
 
75
  (N_ "long description will be here."))
66
76
 
67
77
(define-custom 'skk-candidate-selection-style 'ddskk-like
68
78
  '(skk candwin)
69
79
  (list 'choice
70
 
        (list 'uim (_ "uim") (_ "uim native"))
71
 
        (list 'ddskk-like (_ "ddskk-like") (_ "Similar to ddskk")))
72
 
  (_ "Candidate selection style")
73
 
  (_ "long description will be here."))
 
80
        (list 'uim (N_ "uim") (N_ "uim native"))
 
81
        (list 'ddskk-like (N_ "ddskk-like") (N_ "Similar to ddskk")))
 
82
  (N_ "Candidate selection style")
 
83
  (N_ "long description will be here."))
74
84
 
75
85
(define-custom 'skk-use-manual-candwin-setting? #f
76
86
  '(skk candwin)
77
87
  '(boolean)
78
 
  (_ "Set candidate window behavior manually")
79
 
  (_ "long description will be here."))
 
88
  (N_ "Set candidate window behavior manually")
 
89
  (N_ "long description will be here."))
80
90
 
81
91
(define-custom 'skk-candidate-op-count 5
82
92
  '(skk candwin)
83
93
  '(integer 0 99)
84
 
  (_ "Conversion key press count to show candidate window")
85
 
  (_ "long description will be here."))
 
94
  (N_ "Conversion key press count to show candidate window")
 
95
  (N_ "long description will be here."))
86
96
 
87
97
(define-custom 'skk-nr-candidate-max 7
88
98
  '(skk candwin)
89
99
  '(integer 1 20)
90
 
  (_ "Number of candidates in candidate window at a time")
91
 
  (_ "long description will be here."))
 
100
  (N_ "Number of candidates in candidate window at a time")
 
101
  (N_ "long description will be here."))
92
102
 
93
103
;; activity dependency
94
104
(custom-add-hook 'skk-commit-candidate-by-label-key?
133
143
                 'custom-activity-hooks
134
144
                 (lambda ()
135
145
                   skk-use-manual-candwin-setting?))
136
 
                   
 
146
 
137
147
(custom-add-hook 'skk-candidate-selection-style
138
148
                 'custom-set-hooks
139
149
                 (lambda ()
208
218
  '(skk toolbar)
209
219
  (list 'ordered-list
210
220
        (list 'widget_skk_input_mode
211
 
              (_ "Input mode")
212
 
              (_ "Input mode"))
 
221
              (N_ "Input mode")
 
222
              (N_ "Input mode"))
213
223
        (list 'widget_skk_kana_input_method
214
 
              (_ "Kana input method")
215
 
              (_ "Kana input method")))
216
 
  (_ "Enabled toolbar buttons")
217
 
  (_ "long description will be here."))
 
224
              (N_ "Kana input method")
 
225
              (N_ "Kana input method")))
 
226
  (N_ "Enabled toolbar buttons")
 
227
  (N_ "long description will be here."))
218
228
 
219
229
;; dynamic reconfiguration
220
230
;; skk-configure-widgets is not defined at this point. So wrapping
232
242
  (cons 'choice
233
243
        (map indication-alist-entry-extract-choice
234
244
             skk-input-mode-indication-alist))
235
 
  (_ "Default input mode")
236
 
  (_ "long description will be here."))
 
245
  (N_ "Default input mode")
 
246
  (N_ "long description will be here."))
237
247
 
238
248
(define-custom 'skk-input-mode-actions
239
249
               (map car skk-input-mode-indication-alist)
241
251
  (cons 'ordered-list
242
252
        (map indication-alist-entry-extract-choice
243
253
             skk-input-mode-indication-alist))
244
 
  (_ "Input mode menu items")
245
 
  (_ "long description will be here."))
 
254
  (N_ "Input mode menu items")
 
255
  (N_ "long description will be here."))
246
256
 
247
257
;; value dependency
248
258
(if custom-full-featured?
272
282
  (cons 'choice
273
283
        (map indication-alist-entry-extract-choice
274
284
             skk-kana-input-method-indication-alist))
275
 
  (_ "Default kana input method")
276
 
  (_ "long description will be here."))
 
285
  (N_ "Default kana input method")
 
286
  (N_ "long description will be here."))
277
287
 
278
288
(define-custom 'skk-kana-input-method-actions
279
289
               (map car skk-kana-input-method-indication-alist)
281
291
  (cons 'ordered-list
282
292
        (map indication-alist-entry-extract-choice
283
293
             skk-kana-input-method-indication-alist))
284
 
  (_ "Kana input method menu items")
285
 
  (_ "long description will be here."))
 
294
  (N_ "Kana input method menu items")
 
295
  (N_ "long description will be here."))
286
296
 
287
297
;; value dependency
288
298
(if custom-full-featured?
322
332
;;
323
333
 
324
334
(define-custom 'skk-use-skkserv? #f
325
 
  '(skk-dict)
326
 
  '(boolean)
327
 
  (_ "Use skkserv instead of SKK-JISYO")
328
 
  (_ "long description will be here."))
 
335
  '(skk-dict skkserv)
 
336
  '(boolean)
 
337
  (N_ "Use skkserv instead of SKK-JISYO")
 
338
  (N_ "long description will be here."))
 
339
 
 
340
(define-custom 'skk-skkserv-use-env? #t
 
341
  '(skk-dict skkserv)
 
342
  '(boolean)
 
343
  (N_ "Use value of environment variable SKKSERVER")
 
344
  (N_ "long description will be here."))
 
345
 
 
346
(custom-add-hook 'skk-skkserv-use-env?
 
347
                 'custom-activity-hooks
 
348
                 (lambda ()
 
349
                   skk-use-skkserv?))
 
350
 
 
351
(define-custom 'skk-skkserv-hostname "localhost"
 
352
  '(skk-dict skkserv)
 
353
  '(string ".*")
 
354
  (N_ "Hostname of skkserv")
 
355
  (N_ "long description will be here."))
 
356
 
 
357
(custom-add-hook 'skk-skkserv-hostname
 
358
                 'custom-activity-hooks
 
359
                 (lambda ()
 
360
                   (not skk-skkserv-use-env?)))
329
361
 
330
362
(define-custom 'skk-skkserv-portnum 1178
331
 
  '(skk-dict)
 
363
  '(skk-dict skkserv)
332
364
  '(integer 0 65535)
333
 
  (_ "Port number of skkserv")
334
 
  (_ "long description will be here."))
 
365
  (N_ "Port number of skkserv")
 
366
  (N_ "long description will be here."))
335
367
 
336
368
(custom-add-hook 'skk-skkserv-portnum
337
369
                 'custom-activity-hooks
338
370
                 (lambda ()
339
371
                   skk-use-skkserv?))
340
372
 
 
373
(define-custom 'skk-skkserv-address-family 'unspecified
 
374
  '(skk-dict skkserv)
 
375
  (list 'choice
 
376
        (list 'unspecified (N_ "Auto") (N_ "Auto"))
 
377
        (list 'inet  (N_ "IPv4")
 
378
              (N_ "Forces skkserv to use IPv4 addresses only"))
 
379
        (list 'inet6 (N_ "IPv6")
 
380
              (N_ "Forces skkserv to use IPv6 addresses only")))
 
381
  (N_ "Address family of skkserv")
 
382
  (N_ "long description will be here."))
 
383
 
 
384
(custom-add-hook 'skk-skkserv-address-family
 
385
         'custom-activity-hooks
 
386
         (lambda ()
 
387
           skk-use-skkserv?))
 
388
 
341
389
(define-custom 'skk-dic-file-name (string-append (sys-datadir)
342
390
                                                 "/skk/SKK-JISYO.L")
343
 
  '(skk-dict)
 
391
  '(skk-dict dict-files)
344
392
  '(pathname regular-file)
345
 
  (_ "Dictionary file")
346
 
  (_ "long description will be here."))
 
393
  (N_ "System dictionary file")
 
394
  (N_ "long description will be here."))
347
395
 
348
396
(define-custom 'skk-personal-dic-filename
349
 
  (string-append (getenv "HOME") "/.skk-jisyo")
350
 
  '(skk-dict)
 
397
  (string-append (or (home-directory (user-name)) "") "/.skk-jisyo")
 
398
  '(skk-dict dict-files)
351
399
  '(pathname regular-file)
352
 
  (_ "Personal dictionary file")
353
 
  (_ "long description will be here."))
 
400
  (N_ "Personal dictionary file")
 
401
  (N_ "long description will be here."))
354
402
 
355
403
(define-custom 'skk-uim-personal-dic-filename
356
 
  (string-append (getenv "HOME") "/.skk-uim-jisyo")
357
 
  '(skk-dict)
 
404
  (string-append (or (home-directory (user-name)) "") "/.skk-uim-jisyo")
 
405
  '(skk-dict dict-files)
358
406
  '(pathname regular-file)
359
 
  (_ "Personal dictionary file (dedicated to uim)")
360
 
  (_ "long description will be here."))
 
407
  (N_ "Personal dictionary file (dedicated to uim)")
 
408
  (N_ "long description will be here."))
361
409
 
362
410
(custom-add-hook 'skk-dic-file-name
363
411
                 'custom-activity-hooks
371
419
(define-custom 'skk-style 'skk-style-ddskk-like
372
420
  '(skk-advanced)
373
421
  (list 'choice
374
 
        (list 'skk-style-ddskk-like (_ "ddskk") (_ "Similar to ddskk"))
375
 
        (list 'skk-style-uim (_ "uim") (_ "uim native")))
376
 
  (_ "Visual style")
377
 
  (_ "long description will be here."))
 
422
        (list 'skk-style-ddskk-like (N_ "ddskk") (N_ "Similar to ddskk"))
 
423
        (list 'skk-style-uim (N_ "uim") (N_ "uim native")))
 
424
  (N_ "Visual style")
 
425
  (N_ "long description will be here."))
378
426
 
379
427
(define-custom 'skk-use-recursive-learning? #t
380
428
  '(skk-advanced)
381
429
  '(boolean)
382
 
  (_ "Use recursive learning")
383
 
  (_ "long description will be here."))
 
430
  (N_ "Use recursive learning")
 
431
  (N_ "long description will be here."))
384
432
 
385
433
(define-custom 'skk-use-numeric-conversion? #t
386
434
  '(skk-advanced)
387
435
  '(boolean)
388
 
  (_ "Use numeric conversion")
389
 
  (_ "long description will be here."))
 
436
  (N_ "Use numeric conversion")
 
437
  (N_ "long description will be here."))
390
438
 
391
439
(define-custom 'skk-auto-start-henkan? #t
392
440
  '(skk-advanced)
393
441
  '(boolean)
394
 
  (_ "Enable auto conversion with punctuation marks")
395
 
  (_ "long description will be here."))
 
442
  (N_ "Enable auto conversion with punctuation marks")
 
443
  (N_ "long description will be here."))
396
444
 
397
445
(define-custom 'skk-dcomp-activate? #f
398
446
  '(skk-advanced)
399
447
  '(boolean)
400
 
  (_ "Enable dynamic completion")
401
 
  (_ "long description will be here."))
 
448
  (N_ "Enable dynamic completion")
 
449
  (N_ "long description will be here."))
402
450
 
403
451
(define-custom 'skk-use-look? #f
404
452
  '(skk-advanced)
405
453
  '(boolean)
406
 
  (_ "Use UNIX look command for completion")
407
 
  (_ "long description will be here."))
 
454
  (N_ "Use UNIX look command for completion")
 
455
  (N_ "long description will be here."))
 
456
 
 
457
(define-custom 'skk-look-dict "/usr/share/dict/words"
 
458
  '(skk-advanced)
 
459
  '(pathname regular-file)
 
460
  (N_ "Use UNIX look dictionary file")
 
461
  (N_ "long description will be here."))
 
462
 
 
463
(custom-add-hook 'skk-look-dict
 
464
                 'custom-activity-hooks
 
465
                 (lambda ()
 
466
                   skk-use-look?))
 
467
 
408
468
;;
409
469
;; annotation
410
470
;;
412
472
(define-custom 'skk-show-annotation? #t
413
473
  '(skk-advanced annotation)
414
474
  '(boolean)
415
 
  (_ "Show annotation of candidate word")
416
 
  (_ "long description will be here."))
 
475
  (N_ "Show annotation of candidate word")
 
476
  (N_ "long description will be here."))
417
477
 
418
478
(define-custom 'skk-show-annotation-in-preedit? #f
419
479
  '(skk-advanced annotation)
420
480
  '(boolean)
421
 
  (_ "Show annotation also in preedit area")
422
 
  (_ "long description will be here."))
 
481
  (N_ "Show annotation also in preedit area")
 
482
  (N_ "long description will be here."))
423
483
 
424
484
(custom-add-hook 'skk-show-annotation-in-preedit?
425
485
                 'custom-activity-hooks
439
499
(define-custom 'skk-use-with-vi? #f
440
500
  '(skk-advanced special-op)
441
501
  '(boolean)
442
 
  (_ "Enable vi-cooperative mode")
443
 
  (_ "long description will be here."))
 
502
  (N_ "Enable vi-cooperative mode")
 
503
  (N_ "long description will be here."))
444
504
 
445
505
(define-custom 'skk-egg-like-newline? #f
446
506
  '(skk-advanced special-op)
447
507
  '(boolean)
448
 
  (_ "Use Enter key as just committing (egg-like operation)")
449
 
  (_ "long description will be here."))
 
508
  (N_ "Use Enter key as just committing (egg-like operation)")
 
509
  (N_ "long description will be here."))
450
510
 
451
511
;; should be removed if there is no usage
452
512
(define-custom 'skk-commit-newline-explicitly? #f
453
513
  '(skk-advanced special-op)
454
514
  '(boolean)
455
 
  (_ "Commit newline as ASCII string instead of native key-event")
456
 
  (_ "long description will be here."))
 
515
  (N_ "Commit newline as ASCII string instead of native key-event")
 
516
  (N_ "long description will be here."))