Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

425 lines (361 sloc) 14.03 kb
;;; google-cgiapi-jp-custom.scm: Customization variables for google-cgiapi-jp.scm
;;;
;;; Copyright (c) 2008-2012 uim Project http://code.google.com/p/uim/
;;;
;;; All rights reserved.
;;;
;;; Redistribution and use in source and binary forms, with or without
;;; modification, are permitted provided that the following conditions
;;; are met:
;;; 1. Redistributions of source code must retain the above copyright
;;; notice, this list of conditions and the following disclaimer.
;;; 2. Redistributions in binary form must reproduce the above copyright
;;; notice, this list of conditions and the following disclaimer in the
;;; documentation and/or other materials provided with the distribution.
;;; 3. Neither the name of authors nor the names of its contributors
;;; may be used to endorse or promote products derived from this software
;;; without specific prior written permission.
;;;
;;; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS IS'' AND
;;; ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
;;; IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
;;; ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR CONTRIBUTORS BE LIABLE
;;; FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
;;; OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
;;; HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
;;; LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
;;; OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
;;; SUCH DAMAGE.
;;;;
(require "i18n.scm")
(require "openssl.scm")
(define google-cgiapi-jp-im-name-label (N_ "Google-CGIAPI-Jp"))
(define google-cgiapi-jp-im-short-desc (N_ "A multi-segment kana-kanji conversion engine"))
(define-custom-group 'google-cgiapi-jp
google-cgiapi-jp-im-name-label
google-cgiapi-jp-im-short-desc)
(define-custom-group 'google-cgiapi-jp-server
(N_ "Google-CGIAPI-Jp server")
(N_ "long description will be here."))
(define-custom-group 'google-cgiapi-jp-advanced
(N_ "Google-CGIAPI-Jp (advanced)")
(N_ "long description will be here."))
(define-custom-group 'google-cgiapi-jp-prediction
(N_ "Prediction")
(N_ "long description will be here."))
;;
;; segment separator
;;
(define-custom 'google-cgiapi-jp-show-segment-separator? #f
'(google-cgiapi-jp segment-sep)
'(boolean)
(N_ "Show segment separator")
(N_ "long description will be here."))
(define-custom 'google-cgiapi-jp-segment-separator "|"
'(google-cgiapi-jp segment-sep)
'(string ".*")
(N_ "Segment separator")
(N_ "long description will be here."))
(custom-add-hook 'google-cgiapi-jp-segment-separator
'custom-activity-hooks
(lambda ()
google-cgiapi-jp-show-segment-separator?))
;;
;; candidate window
;;
(define-custom 'google-cgiapi-jp-use-candidate-window? #t
'(google-cgiapi-jp candwin)
'(boolean)
(N_ "Use candidate window")
(N_ "long description will be here."))
(define-custom 'google-cgiapi-jp-candidate-op-count 1
'(google-cgiapi-jp candwin)
'(integer 0 99)
(N_ "Conversion key press count to show candidate window")
(N_ "long description will be here."))
(define-custom 'google-cgiapi-jp-nr-candidate-max 10
'(google-cgiapi-jp candwin)
'(integer 1 20)
(N_ "Number of candidates in candidate window at a time")
(N_ "long description will be here."))
(define-custom 'google-cgiapi-jp-select-candidate-by-numeral-key? #f
'(google-cgiapi-jp candwin)
'(boolean)
(N_ "Select candidate by numeral keys")
(N_ "long description will be here."))
;; activity dependency
(custom-add-hook 'google-cgiapi-jp-candidate-op-count
'custom-activity-hooks
(lambda ()
google-cgiapi-jp-use-candidate-window?))
(custom-add-hook 'google-cgiapi-jp-nr-candidate-max
'custom-activity-hooks
(lambda ()
google-cgiapi-jp-use-candidate-window?))
(custom-add-hook 'google-cgiapi-jp-select-candidate-by-numeral-key?
'custom-activity-hooks
(lambda ()
google-cgiapi-jp-use-candidate-window?))
;;
;; toolbar
;;
;; Can't be unified with action definitions in google-cgiapi-jp.scm until uim
;; 0.4.6.
(define google-cgiapi-jp-input-mode-indication-alist
(list
(list 'action_google-cgiapi-jp_direct
'ja_direct
"-"
(N_ "Direct input")
(N_ "Direct input mode"))
(list 'action_google-cgiapi-jp_hiragana
'ja_hiragana
"¤¢"
(N_ "Hiragana")
(N_ "Hiragana input mode"))
(list 'action_google-cgiapi-jp_katakana
'ja_katakana
"¥¢"
(N_ "Katakana")
(N_ "Katakana input mode"))
(list 'action_google-cgiapi-jp_halfkana
'ja_halfkana
"Ž±"
(N_ "Halfwidth Katakana")
(N_ "Halfwidth Katakana input mode"))
(list 'action_google-cgiapi-jp_halfwidth_alnum
'ja_halfwidth_alnum
"a"
(N_ "Halfwidth Alphanumeric")
(N_ "Halfwidth Alphanumeric input mode"))
(list 'action_google-cgiapi-jp_fullwidth_alnum
'ja_fullwidth_alnum
"£Á"
(N_ "Fullwidth Alphanumeric")
(N_ "Fullwidth Alphanumeric input mode"))))
(define google-cgiapi-jp-kana-input-method-indication-alist
(list
(list 'action_google-cgiapi-jp_roma
'ja_romaji
"£Ò"
(N_ "Romaji")
(N_ "Romaji input mode"))
(list 'action_google-cgiapi-jp_kana
'ja_kana
"¤«"
(N_ "Kana")
(N_ "Kana input mode"))
(list 'action_google-cgiapi-jp_azik
'ja_azik
"£Ú"
(N_ "AZIK")
(N_ "AZIK extended romaji input mode"))
(list 'action_google-cgiapi-jp_act
'ja_act
"£Ã"
(N_ "ACT")
(N_ "ACT extended romaji input mode"))
(list 'action_google-cgiapi-jp_kzik
'ja_kzik
"£Ë"
(N_ "KZIK")
(N_ "KZIK extended romaji input mode"))))
;;; Buttons
(define-custom 'google-cgiapi-jp-widgets '(widget_google-cgiapi-jp_input_mode
widget_google-cgiapi-jp_kana_input_method)
'(google-cgiapi-jp toolbar-widget)
(list 'ordered-list
(list 'widget_google-cgiapi-jp_input_mode
(N_ "Input mode")
(N_ "Input mode"))
(list 'widget_google-cgiapi-jp_kana_input_method
(N_ "Kana input method")
(N_ "Kana input method")))
(N_ "Enabled toolbar buttons")
(N_ "long description will be here."))
;; dynamic reconfiguration
;; google-cgiapi-jp-configure-widgets is not defined at this point. So wrapping
;; into lambda.
(custom-add-hook 'google-cgiapi-jp-widgets
'custom-set-hooks
(lambda ()
(google-cgiapi-jp-configure-widgets)))
;;; Input mode
(define-custom 'default-widget_google-cgiapi-jp_input_mode 'action_google-cgiapi-jp_direct
'(google-cgiapi-jp toolbar-widget)
(cons 'choice
(map indication-alist-entry-extract-choice
google-cgiapi-jp-input-mode-indication-alist))
(N_ "Default input mode")
(N_ "long description will be here."))
(define-custom 'google-cgiapi-jp-input-mode-actions
(map car google-cgiapi-jp-input-mode-indication-alist)
'(google-cgiapi-jp toolbar-widget)
(cons 'ordered-list
(map indication-alist-entry-extract-choice
google-cgiapi-jp-input-mode-indication-alist))
(N_ "Input mode menu items")
(N_ "long description will be here."))
;; value dependency
(if custom-full-featured?
(custom-add-hook 'google-cgiapi-jp-input-mode-actions
'custom-set-hooks
(lambda ()
(custom-choice-range-reflect-olist-val
'default-widget_google-cgiapi-jp_input_mode
'google-cgiapi-jp-input-mode-actions
google-cgiapi-jp-input-mode-indication-alist))))
;; activity dependency
(custom-add-hook 'default-widget_google-cgiapi-jp_input_mode
'custom-activity-hooks
(lambda ()
(memq 'widget_google-cgiapi-jp_input_mode google-cgiapi-jp-widgets)))
(custom-add-hook 'google-cgiapi-jp-input-mode-actions
'custom-activity-hooks
(lambda ()
(memq 'widget_google-cgiapi-jp_input_mode google-cgiapi-jp-widgets)))
;; dynamic reconfiguration
(custom-add-hook 'default-widget_google-cgiapi-jp_input_mode
'custom-set-hooks
(lambda ()
(google-cgiapi-jp-configure-widgets)))
(custom-add-hook 'google-cgiapi-jp-input-mode-actions
'custom-set-hooks
(lambda ()
(google-cgiapi-jp-configure-widgets)))
;;; Kana input method
(define-custom 'default-widget_google-cgiapi-jp_kana_input_method 'action_google-cgiapi-jp_roma
'(google-cgiapi-jp toolbar-widget)
(cons 'choice
(map indication-alist-entry-extract-choice
google-cgiapi-jp-kana-input-method-indication-alist))
(N_ "Default kana input method")
(N_ "long description will be here."))
(define-custom 'google-cgiapi-jp-kana-input-method-actions
(map car google-cgiapi-jp-kana-input-method-indication-alist)
'(google-cgiapi-jp toolbar-widget)
(cons 'ordered-list
(map indication-alist-entry-extract-choice
google-cgiapi-jp-kana-input-method-indication-alist))
(N_ "Kana input method menu items")
(N_ "long description will be here."))
;; value dependency
(if custom-full-featured?
(custom-add-hook 'google-cgiapi-jp-kana-input-method-actions
'custom-set-hooks
(lambda ()
(custom-choice-range-reflect-olist-val
'default-widget_google-cgiapi-jp_kana_input_method
'google-cgiapi-jp-kana-input-method-actions
google-cgiapi-jp-kana-input-method-indication-alist))))
;; activity dependency
(custom-add-hook 'default-widget_google-cgiapi-jp_kana_input_method
'custom-activity-hooks
(lambda ()
(memq 'widget_google-cgiapi-jp_kana_input_method google-cgiapi-jp-widgets)))
(custom-add-hook 'google-cgiapi-jp-kana-input-method-actions
'custom-activity-hooks
(lambda ()
(memq 'widget_google-cgiapi-jp_kana_input_method google-cgiapi-jp-widgets)))
;; dynamic reconfiguration
(custom-add-hook 'default-widget_google-cgiapi-jp_kana_input_method
'custom-set-hooks
(lambda ()
(google-cgiapi-jp-configure-widgets)))
(custom-add-hook 'google-cgiapi-jp-kana-input-method-actions
'custom-set-hooks
(lambda ()
(google-cgiapi-jp-configure-widgets)))
;;
;; google-cgiapi-jp-server
;;
(define-custom 'google-cgiapi-jp-server "www.google.com"
'(google-cgiapi-jp-advanced google-cgiapi-jp-server)
'(string ".*")
(N_ "Google-CGIAPI-Jp server address")
(N_ "long description will be here."))
(define-custom 'google-cgiapi-jp-use-ssl? (provided? "openssl")
'(google-cgiapi-jp-advanced google-cgiapi-jp-server)
'(boolean)
(N_ "Use SSL")
(N_ "long description will be here."))
(custom-add-hook 'google-cgiapi-jp-use-ssl?
'custom-activity-hooks
(lambda ()
(provided? "openssl")))
(define-custom 'google-cgiapi-jp-use-with-vi? #f
'(google-cgiapi-jp-advanced special-op)
'(boolean)
(N_ "Enable vi-cooperative mode")
(N_ "long description will be here."))
(define-custom 'google-cgiapi-jp-auto-start-henkan? #f
'(google-cgiapi-jp-advanced special-op)
'(boolean)
(N_ "Enable auto conversion with punctuation marks")
(N_ "long description will be here."))
(define-custom 'google-cgiapi-jp-use-mode-transition-keys-in-off-mode? #f
'(google-cgiapi-jp-advanced mode-transition)
'(boolean)
(N_ "Enable input mode transition keys in direct (off state) input mode")
(N_ "long description will be here."))
;; prediction
(define-custom 'google-cgiapi-jp-use-prediction? #f
'(google-cgiapi-jp-advanced google-cgiapi-jp-prediction)
'(boolean)
(N_ "Enable input prediction")
(N_ "long description will be here."))
(define-custom 'google-cgiapi-jp-select-prediction-by-numeral-key? #f
'(google-cgiapi-jp-advanced google-cgiapi-jp-prediction)
'(boolean)
(N_ "Select prediction candidate by numeral keys")
(N_ "long description will be here."))
(define-custom 'google-cgiapi-jp-use-implicit-commit-prediction? #t
'(google-cgiapi-jp-advanced google-cgiapi-jp-prediction)
'(boolean)
(N_ "Show selected prediction candidate in preedit area")
(N_ "long description will be here."))
(custom-add-hook 'google-cgiapi-jp-use-candidate-window?
'custom-get-hooks
(lambda ()
(if (not google-cgiapi-jp-use-candidate-window?)
(set! google-cgiapi-jp-use-prediction? #f))))
(custom-add-hook 'google-cgiapi-jp-use-prediction?
'custom-activity-hooks
(lambda ()
google-cgiapi-jp-use-candidate-window?))
(define-custom 'google-cgiapi-jp-prediction-cache-words 256
'(google-cgiapi-jp-advanced google-cgiapi-jp-prediction)
'(integer 1 65535)
(N_ "Number of cache of prediction candidates")
(N_ "long description will be here."))
(define-custom 'google-cgiapi-jp-prediction-start-char-count 2
'(google-cgiapi-jp-advanced google-cgiapi-jp-prediction)
'(integer 1 65535)
(N_ "Character count to start input prediction")
(N_ "long description will be here."))
(custom-add-hook 'google-cgiapi-jp-use-candidate-window?
'custom-get-hooks
(lambda ()
(if (not google-cgiapi-jp-use-candidate-window?)
(set! google-cgiapi-jp-use-prediction? #f))))
(custom-add-hook 'google-cgiapi-jp-use-prediction?
'custom-activity-hooks
(lambda ()
google-cgiapi-jp-use-candidate-window?))
(custom-add-hook 'google-cgiapi-jp-select-prediction-by-numeral-key?
'custom-activity-hooks
(lambda ()
google-cgiapi-jp-use-prediction?))
(custom-add-hook 'google-cgiapi-jp-use-implicit-commit-prediction?
'custom-activity-hooks
(lambda ()
google-cgiapi-jp-use-prediction?))
(custom-add-hook 'google-cgiapi-jp-prediction-cache-words
'custom-activity-hooks
(lambda ()
google-cgiapi-jp-use-prediction?))
(custom-add-hook 'google-cgiapi-jp-prediction-start-char-count
'custom-activity-hooks
(lambda ()
google-cgiapi-jp-use-prediction?))
Jump to Line
Something went wrong with that request. Please try again.