(apel不要版) ddskk 用 .emacs の設定

init.el

;; ----------------------------------------
;; ddskk 
;; ----------------------------------------
;; パスを追加 (homebrew でインストールした場合)
(setq load-path (append '("/usr/local/Cellar/ddskk/lisp") load-path))

(require 'skk-setup)
(setq mac-pass-control-to-system nil)
;; 辞書ファイルは Dropbox 上に置く
(setq skk-jisyo "~/Dropbox/.skk-ddskk.skk-jisyo")

;; AquaSKKとの連携
(setq skk-server-host "localhost")
(setq skk-server-portnum 1178)

;;モードで RET を入力したときに確定のみ行い、改行はしない
(setq skk-egg-like-newline t)

;;モードで BS を押した時に一つ前の候補を表示
(setq skk-delete-implies-kakutei nil)

;; "「"を入力したら"」"も自動で挿入する
(setq skk-auto-insert-paren t)

;; 句読点
(setq skk-kuten-touten-alist '(
	(jp . ("．" . "，")) 
	(en . ("." . ","))
;	(ya . ("。" . ", "))
))
(setq skk-toggle-kutouten nil)

;; インクリメント検索
(add-hook 'isearch-mode-hook
          #'(lambda ()
              (when (and (boundp 'skk-mode)
                         skk-mode
                         skk-isearch-mode-enable)
                (skk-isearch-mode-setup))))
(add-hook 'isearch-mode-end-hook
          #'(lambda ()
              (when (and (featurep 'skk-isearch)
                         skk-isearch-mode-enable)
                (skk-isearch-mode-cleanup))))

;; テキスト・モードでは auto-fill-mode
(add-hook 'text-mode-hook
          '(lambda ()
             (setq fill-column 80)
             (auto-fill-mode t)
             ))

;; 日本語で $ を入力した時に対応する $ と合わせて表示
(add-hook 'skk-mode-hook
	  '(lambda ()
	     (define-key skk-j-mode-map "$" 'self-insert-command)
	     (define-key skk-j-mode-map "\\" 'self-insert-command)
 	  )
)