CarbonEmacs に ddskk をインストールしてみる

やりたいことがいろいろあって困っちゃうあてくしですが、会社では Objective-C、自宅では Ruby を勉強しようと決めました。何となく。

というわけで、自宅の CarbonEmacs 環境を整えていかなくちゃって感じで、まずは　ddskk をインストールして使えるようにするまでのメモです。

http://openlab.ring.gr.jp/skk/maintrunk/ddskk-13.1.tar.gz

を適当な場所、ここではホームディレクトリの tmp 以下に持ってきて展開します。

[Masahiro@bilbao.local:~/tmp] $ wget http://openlab.ring.gr.jp/skk/maintrunk/ddskk-13.1.tar.gz
[Masahiro@bilbao.local:~/tmp] $ tar xzvf ddskk-13.1.tar.gz

辞書ファイル http://openlab.jp/skk/dic/SKK-JISYO.L.gz も持ってきて gunzip して CarbonEmacs のフォルダに移動なりコピーなりします。cp は sudo が必要かもしれません。

[Masahiro@bilbao.local:~/tmp] $ wget http://openlab.jp/skk/dic/SKK-JISYO.L.gz
[Masahiro@bilbao.local:~/tmp] $ gunzip SKK-JISYO.L.gz
[Masahiro@bilbao.local:~/tmp] $ mkdir /Applications/Emacs.app/Contents/Resources/share/skk
[Masahiro@bilbao.local:~/tmp] $ cp SKK-JISYO.L /Applications/Emacs.app/Contents/Resources/share/skk

先ほど展開した ddskk のディレクトリに移動してインストールします。ここも make には sudo が必要かも。

[Masahiro@bilbao.local:~/tmp/ddskk-13.1] $ SKK_LISPDIR=/Applications/Emacs.app/Contents/Resources/site-lisp/skk SKK_INFODIR=/Applications/Emacs.app/Contents/Resources/info SKK_DATADIR=/Applications/Emacs.app/Contents/Resources/share/skk; make EMACS=/Applications/Emacs.app/Contents/MacOS/Emacs install

.emacs に設定を追加します。

(set-input-method "japanese-skk")
(toggle-input-method nil)
(setq skk-large-jisyo "/Applications/Emacs.app/Contents/Resources/share/skk/SKK-JISYO.L")

;; モードラインの表示
(skk-modify-indicator-alist 'latin "[a]")
(skk-modify-indicator-alist 'hiragana "[あ]")
(skk-modify-indicator-alist 'katakana "[ア]")
(skk-modify-indicator-alist 'jisx0208-latin "[Ａ]")

(setq skk-indicator-use-cursor-color nil)

;; メッセージは日本語で表示する
(setq skk-japanese-message-and-error t)

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

;; インクリメント検索
(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))))

こんな感じで、C-x C-j で SKK を使えるようになります。オス。