1;;; sj3-custom.scm: Customization variables for sj3.scm 2;;; 3;;; Copyright (c) 2003-2013 uim Project https://github.com/uim/uim 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(define-custom-group 'sj3-keys1 35 (N_ "SJ3 key bindings 1") 36 (N_ "long description will be here.")) 37 38(define-custom-group 'sj3-keys2 39 (N_ "SJ3 key bindings 2") 40 (N_ "long description will be here.")) 41 42(define-custom-group 'sj3-keys3 43 (N_ "SJ3 key bindings 3") 44 (N_ "long description will be here.")) 45 46(define-custom-group 'sj3-keys4 47 (N_ "SJ3 key bindings 4") 48 (N_ "long description will be here.")) 49 50(define-custom 'sj3-next-segment-key '(generic-go-right-key) 51 '(sj3-keys1) 52 '(key) 53 (N_ "[SJ3] next segment") 54 (N_ "long description will be here")) 55 56(define-custom 'sj3-prev-segment-key '(generic-go-left-key) 57 '(sj3-keys1) 58 '(key) 59 (N_ "[SJ3] previous segment") 60 (N_ "long description will be here")) 61 62(define-custom 'sj3-extend-segment-key '("<IgnoreCase><Control>o" "<Shift>right") 63 '(sj3-keys1) 64 '(key) 65 (N_ "[SJ3] extend segment") 66 (N_ "long description will be here")) 67 68(define-custom 'sj3-shrink-segment-key '("<IgnoreCase><Control>i" "<Shift>left") 69 '(sj3-keys1) 70 '(key) 71 (N_ "[SJ3] shrink segment") 72 (N_ "long description will be here")) 73 74(define-custom 'sj3-transpose-as-hiragana-key '("F6" "Muhenkan") 75 '(sj3-keys1) 76 '(key) 77 (N_ "[SJ3] convert to hiragana") 78 (N_ "long description will be here")) 79 80(define-custom 'sj3-transpose-as-katakana-key '("F7" "Muhenkan") 81 '(sj3-keys1) 82 '(key) 83 (N_ "[SJ3] convert to katakana") 84 (N_ "long description will be here")) 85 86(define-custom 'sj3-transpose-as-halfkana-key '("F8" "Muhenkan") 87 '(sj3-keys1) 88 '(key) 89 (N_ "[SJ3] convert to halfwidth katakana") 90 (N_ "long description will be here")) 91 92(define-custom 'sj3-transpose-as-halfwidth-alnum-key '("F10") 93 '(sj3-keys1) 94 '(key) 95 (N_ "[SJ3] convert to halfwidth alphanumeric") 96 (N_ "long description will be here")) 97 98(define-custom 'sj3-transpose-as-fullwidth-alnum-key '("F9") 99 '(sj3-keys1) 100 '(key) 101 (N_ "[SJ3] convert to fullwidth alphanumeric") 102 (N_ "long description will be here")) 103 104(define-custom 'sj3-commit-as-opposite-kana-key '("<IgnoreCase><Shift>q") ;; "Q" 105 '(sj3-keys1) 106 '(key) 107 (N_ "[SJ3] commit as transposed kana") 108 (N_ "long description will be here")) 109 110;; 111;; overriding generic keys 112;; 113(define-custom 'sj3-on-key '("<Control>\\" generic-on-key) 114 '(sj3-keys2) 115 '(key) 116 (N_ "[SJ3] on") 117 (N_ "long description will be here")) 118 119;;(define-custom 'sj3-off-key '("l" generic-on-key) 120(define-custom 'sj3-off-key '("<Control>\\" generic-off-key) 121 '(sj3-keys2) 122 '(key) 123 (N_ "[SJ3] off") 124 (N_ "long description will be here")) 125 126(define-custom 'sj3-begin-conv-key '(generic-begin-conv-key) 127 '(sj3-keys2) 128 '(key) 129 (N_ "[SJ3] begin conversion") 130 (N_ "long description will be here")) 131 132(define-custom 'sj3-commit-key '(generic-commit-key) 133 '(sj3-keys2) 134 '(key) 135 (N_ "[SJ3] commit") 136 (N_ "long description will be here")) 137 138(define-custom 'sj3-cancel-key '(generic-cancel-key) 139 '(sj3-keys2) 140 '(key) 141 (N_ "[SJ3] cancel") 142 (N_ "long description will be here")) 143 144(define-custom 'sj3-next-candidate-key '(generic-next-candidate-key) 145 '(sj3-keys2) 146 '(key) 147 (N_ "[SJ3] next candidate") 148 (N_ "long description will be here")) 149 150(define-custom 'sj3-prev-candidate-key '(generic-prev-candidate-key) 151 '(sj3-keys2) 152 '(key) 153 (N_ "[SJ3] previous candidate") 154 (N_ "long description will be here")) 155 156(define-custom 'sj3-next-page-key '(generic-next-page-key) 157 '(sj3-keys2) 158 '(key) 159 (N_ "[SJ3] next page of candidate window") 160 (N_ "long description will be here")) 161 162(define-custom 'sj3-prev-page-key '(generic-prev-page-key) 163 '(sj3-keys2) 164 '(key) 165 (N_ "[SJ3] previous page of candidate window") 166 (N_ "long description will be here")) 167 168;; 169;; overriding generic keys (advanced) 170;; 171(define-custom 'sj3-beginning-of-preedit-key '(generic-beginning-of-preedit-key) 172 '(sj3-keys3) 173 '(key) 174 (N_ "[SJ3] beginning of preedit") 175 (N_ "long description will be here")) 176 177(define-custom 'sj3-end-of-preedit-key '(generic-end-of-preedit-key) 178 '(sj3-keys3) 179 '(key) 180 (N_ "[SJ3] end of preedit") 181 (N_ "long description will be here")) 182 183(define-custom 'sj3-kill-key '(generic-kill-key) 184 '(sj3-keys3) 185 '(key) 186 (N_ "[SJ3] erase after cursor") 187 (N_ "long description will be here")) 188 189(define-custom 'sj3-kill-backward-key '(generic-kill-backward-key) 190 '(sj3-keys3) 191 '(key) 192 (N_ "[SJ3] erase before cursor") 193 (N_ "long description will be here")) 194 195(define-custom 'sj3-backspace-key '(generic-backspace-key) 196 '(sj3-keys3) 197 '(key) 198 (N_ "[SJ3] backspace") 199 (N_ "long description will be here")) 200 201(define-custom 'sj3-delete-key '(generic-delete-key) 202 '(sj3-keys3) 203 '(key) 204 (N_ "[SJ3] delete") 205 (N_ "long description will be here")) 206 207(define-custom 'sj3-go-left-key '(generic-go-left-key) 208 '(sj3-keys3) 209 '(key) 210 (N_ "[SJ3] go left") 211 (N_ "long description will be here")) 212 213(define-custom 'sj3-go-right-key '(generic-go-right-key) 214 '(sj3-keys3) 215 '(key) 216 (N_ "[SJ3] go right") 217 (N_ "long description will be here")) 218 219(define-custom 'sj3-vi-escape-key '("escape" "<Control>[") 220 '(sj3-keys3) 221 '(key) 222 (N_ "[SJ3] ESC keys on vi-cooperative mode") 223 (N_ "long description will be here")) 224 225;; 226;; ja advanced 227;; 228 229(define-custom 'sj3-hiragana-key '("<Shift>F6") 230 '(sj3-keys4 mode-transition) 231 '(key) 232 (N_ "[SJ3] hiragana mode") 233 (N_ "long description will be here")) 234 235(define-custom 'sj3-katakana-key '("<Shift>F7") 236 '(sj3-keys4 mode-transition) 237 '(key) 238 (N_ "[SJ3] katakana mode") 239 (N_ "long description will be here")) 240 241(define-custom 'sj3-halfkana-key '("<Shift>F8") 242 '(sj3-keys4 mode-transition) 243 '(key) 244 (N_ "[SJ3] halfwidth katakana mode") 245 (N_ "long description will be here")) 246 247(define-custom 'sj3-halfwidth-alnum-key '("<Shift>F10") 248 '(sj3-keys4 mode-transition) 249 '(key) 250 (N_ "[SJ3] halfwidth alphanumeric mode") 251 (N_ "long description will be here")) 252 253(define-custom 'sj3-fullwidth-alnum-key '("<Shift>F9") 254 '(sj3-keys4 mode-transition) 255 '(key) 256 (N_ "[SJ3] fullwidth alphanumeric mode") 257 (N_ "long description will be here")) 258 259(define-custom 'sj3-kana-toggle-key '() 260 '(sj3-keys4 advanced) 261 '(key) 262 (N_ "[SJ3] toggle hiragana/katakana mode") 263 (N_ "long description will be here")) 264 265(define-custom 'sj3-alkana-toggle-key '() 266 '(sj3-keys4 advanced) 267 '(key) 268 (N_ "[SJ3] toggle kana/alphanumeric mode") 269 (N_ "long description will be here")) 270 271(define-custom 'sj3-next-prediction-key '("tab" "down" "<IgnoreCase><Control>n" "<IgnoreCase><Control>i") 272 '(sj3-keys4 sj3-prediction) 273 '(key) 274 (N_ "[SJ3] Next prediction candidate") 275 (N_ "long description will be here")) 276 277(define-custom 'sj3-prev-prediction-key '(generic-prev-candidate-key) 278 '(sj3-keys4 sj3-prediction) 279 '(key) 280 (N_ "[SJ3] Previous prediction candidate") 281 (N_ "long description will be here")) 282