diff --git a/emacs.el b/emacs.el index 9bca53e..3da68e0 100644 --- a/emacs.el +++ b/emacs.el @@ -2570,11 +2570,14 @@ Any output will be written to current buffer." (define-key input-decode-map "\e[1;5D" [C-left]) ;; mozc -(when nil +(when (locate-library "mozc") ;; https://tottoto.net/mac-emacs-karabiner-elements-japanese-input-method-config/ (with-eval-after-load 'mozc - (define-key mozc-mode-map (kbd "C-h") 'backward-delete-char)) - (setq default-input-method "japanese-mozc") + ;; (define-key mozc-mode-map (kbd "C-h") 'backward-delete-char) + ;; (define-key mozc-mode-map (kbd "C-p") (kbd "")) + ;; (define-key mozc-mode-map (kbd "C-n") (kbd "SPC")) + ) + ;; (setq default-input-method "japanese-mozc") (custom-set-variables '(mozc-leim-title "あ")) (defun turn-on-input-method () (interactive) @@ -2582,7 +2585,17 @@ Any output will be written to current buffer." (defun turn-off-input-method () (interactive) (deactivate-input-method)) - ) + ;; (setq mozc-candidate-style 'echo-area) + + (require 'mozc-popup) + (set-variable 'mozc-candidate-style 'popup) + + (require 'mozc-im) + (setq default-input-method "japanese-mozc-im") + (global-set-key (kbd "C-j") 'toggle-input-method) + (global-set-key (kbd "C-c m e") 'turn-on-input-method) + (global-set-key (kbd "C-c m d") 'turn-off-input-method) + ) ;; 日本語入力ぐぐる ;; (global-set-key ;; (kbd "C-" . turn-on-input-method) ;; ("C-" . turn-off-input-method))