← Back to branch summary

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

« back to all changes in this revision

Viewing changes to scm/look-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/look-custom.scm
 
1
;;;
 
2
;;; Copyright (c) 2003-2008 uim Project http://code.google.com/p/uim/
 
3
;;;
 
4
;;; All rights reserved.
 
5
;;;
 
6
;;; Redistribution and use in source and binary forms, with or without
 
7
;;; modification, are permitted provided that the following conditions
 
8
;;; are met:
 
9
;;; 1. Redistributions of source code must retain the above copyright
 
10
;;;    notice, this list of conditions and the following disclaimer.
 
11
;;; 2. Redistributions in binary form must reproduce the above copyright
 
12
;;;    notice, this list of conditions and the following disclaimer in the
 
13
;;;    documentation and/or other materials provided with the distribution.
 
14
;;; 3. Neither the name of authors nor the names of its contributors
 
15
;;;    may be used to endorse or promote products derived from this software
 
16
;;;    without specific prior written permission.
 
17
;;;
 
18
;;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS IS'' AND
 
19
;;; ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 
20
;;; IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 
21
;;; ARE DISCLAIMED.  IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR CONTRIBUTORS BE LIABLE
 
22
;;; FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 
23
;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 
24
;;; OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 
25
;;; HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 
26
;;; LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 
27
;;; OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 
28
;;; SUCH DAMAGE.
 
29
;;;;
 
30
 
 
31
(define look-im-name-label (N_ "Look"))
 
32
(define look-im-short-desc (N_ "Tiny predictive input method"))
 
33
 
 
34
(define-custom-group 'look
 
35
  look-im-name-label
 
36
  look-im-short-desc)
 
37
 
 
38
(define-custom-group 'look-keys
 
39
  (N_ "Look key bindings")
 
40
  (N_ "long description will be here."))
 
41
 
 
42
 
 
43
(define-custom 'look-dict "/usr/share/dict/words"
 
44
  '(look)
 
45
  '(pathname regular-file)
 
46
  (N_ "[Look] Use UNIX look dictionary file")
 
47
  (N_ "long description will be here."))
 
48
 
 
49
(define-custom 'look-personal-dict-filename
 
50
  (string-append (or (home-directory (user-name)) "") "/.look-uim-dict")
 
51
  '(look)
 
52
  '(pathname regular-file)
 
53
  (N_ "[Look] Personal dictionary file")
 
54
  (N_ "long description will be here."))
 
55
 
 
56
(define-custom 'look-beginning-character-length 1
 
57
  '(look)
 
58
  '(integer 1 65535)
 
59
  (N_ "[Look] beginning character length of predicting")
 
60
  (N_ "long description will be here."))
 
61
 
 
62
(define-custom 'look-prepared-words 0
 
63
  '(look)
 
64
  '(integer 0 65535)
 
65
  (N_ "[Look] Prepared words for prediction")
 
66
  (N_ "long description will be here."))
 
67
 
 
68
(define-custom 'look-fence-left "{"
 
69
  '(look)
 
70
  '(string ".*")
 
71
  (N_ "[Look] left fence character of candidate")
 
72
  (N_ "long description will be here"))
 
73
 
 
74
(define-custom 'look-fence-right "}"
 
75
  '(look)
 
76
  '(string ".*")
 
77
  (N_ "[Look] right fence character of candidate")
 
78
  (N_ "long description will be here"))
 
79
 
 
80
(define-custom 'look-on-key generic-on-key
 
81
  '(look-keys)
 
82
  '(key)
 
83
  (N_ "[Look] on")
 
84
  (N_ "long description will be here"))
 
85
 
 
86
(define-custom 'look-off-key generic-off-key
 
87
  '(look-keys)
 
88
  '(key)
 
89
  (N_ "[Look] off")
 
90
  (N_ "long description will be here"))
 
91
 
 
92
(define-custom 'look-completion-key '("tab" generic-end-of-preedit-key)
 
93
  '(look-keys)
 
94
  '(key)
 
95
  (N_ "[Look] completion character")
 
96
  (N_ "long description will be here"))
 
97
 
 
98
(define-custom 'look-next-char-key generic-go-right-key
 
99
  '(look-keys)
 
100
  '(key)
 
101
  (N_ "[Look] next character")
 
102
  (N_ "long description will be here"))
 
103
 
 
104
(define-custom 'look-prev-char-key '(generic-backspace-key generic-go-left-key)
 
105
  '(look-keys)
 
106
  '(key)
 
107
  (N_ "[Look] previous character")
 
108
  (N_ "long description will be here"))
 
109
 
 
110
(define-custom 'look-next-candidate-key '("down" "<IgnoreCase><Control>n") ;; generic-next-candidate-key
 
111
  '(look-keys)
 
112
  '(key)
 
113
  (N_ "[Look] next candidate")
 
114
  (N_ "long description will be here"))
 
115
 
 
116
(define-custom 'look-prev-candidate-key '("up" "<IgnoreCase><Control>p") ;; generic-prev-candidate-key
 
117
  '(look-keys)
 
118
  '(key)
 
119
  (N_ "[Look] previous candidate")
 
120
  (N_ "long description will be here"))
 
121
 
 
122
(define-custom 'look-save-dict-key '("<IgnoreCase><Control>s" "return")
 
123
  '(look-keys)
 
124
  '(key)
 
125
  (N_ "[Look] save dictionary")
 
126
  (N_ "long description will be here"))
 
127
 
 
128
(define-custom 'look-load-dict-key '("<IgnoreCase><Control>l")
 
129
  '(look-keys)
 
130
  '(key)
 
131
  (N_ "[Look] load dictionary")
 
132
  (N_ "long description will be here"))