kanchoku / tc Goto Github PK

(defun skk-google-japanese-mode (arg)
  "Convert かな to 漢字 using Google API.
See Info node `(skk) Google CGI API for Japanese Input を利用したかな漢字変換'.

With a prefix argument ARG, enable Google Japanese Input if ARG
is positive, and disable it otherwise."
  ;; https://www.google.co.jp/ime/cgiapi.html
  (interactive "p")
  ;; (require 'skk-search-web)
  (require 'dash)
  ;; (message "arg is %S" arg)
  (let ((prog-search '(skk-search-web 'skk-google-cgi-api-for-japanese-input))
        (prog-entry '(lambda () (car (skk-google-suggest skk-henkan-key))))
        ;; (prog-comp '(skk-comp-google))
        (is-interactive (called-interactively-p 'any)))
    (when (and is-interactive (equal arg 1))
      (setq arg (if (member prog-search skk-search-prog-list) -1 1)))
    (if (> arg 0)
        ;; turn on
        (progn (add-to-list 'skk-search-prog-list prog-search t)
               ;; (add-to-list 'skk-completion-prog-list prog-comp t)
               (setq skk-read-from-minibuffer-function prog-entry)
               (when is-interactive
                 (message "SKK Google Japanese mode enabled")))
      ;; turn off
      (setq skk-search-prog-list
            (-remove-item prog-search skk-search-prog-list))
      ;; (setq skk-completion-prog-list
      ;;       (-remove-item prog-comp skk-completion-prog-list))
      (custom-reevaluate-setting 'skk-read-from-minibuffer-function)
      (when is-interactive
        (message "SKK Google Japanese mode disabled")))))