Carbon Emacs(Emacs22)からCocoa Emacs(Emacs23)に移行してみた

環境はOS X 10.7

• やりたいこと
  • 等幅フォントを使いたい
  • Rubyのハイライトはしておきたい
  • EmacsからGitは使いたい

Cocoa Emacs のインストール

↓からダウンロード
GNU Emacs For Mac OS X

dmgファイルをマウントして、なかのemacs.appをアプリケーションディレクトリにドーン。

ちなみに homebrew でもインストール可能です
参考:Homebrewを使ってMacOSX LionへCocoa Emacs(emacs 23.3)をインストールしてみた... - mochizblog

等幅フォント

お気に入りの等幅フォントを使いたい
今回はRictyを選択
プログラミング用フォント Ricty

Rictyはライセンスの都合上、スクリプトをダウンロードした後に自身でフォントの生成を行う必要があります。
その辺は、公式サイトを見てください。
ただ、fontforgeが必要になので、homebrew でインストールします

brew install fontforge --use-gcc

emacs.d/init.el

以下のサイトを参考にしながら作成

• Emacs23 (Cocoa Emacs) 入門から中毒まで : 紹介マニア
• Emacs で Ruby 開発環境 - どんならんな
• ComanndキーをMetaに
  • Emacs22から23に移行して戸惑うのはMetaキー。23ではMetaキーがoptionになっているので、commandに変更しています
• auto-install.el 導入
  • EmacsWiki からライブラリをコマンドでインストールできるライブラリ。
  • anything.el はまだ未導入

そんなこんなで以下通り

;;-----------------------------------------------------------------
;; ロードパスの追加
;;-----------------------------------------------------------------
(setq load-path (append
                 '("~/.emacs.d"
                   "~/.emacs.d/elisp"
                   "~/.emacs.d/auto-install"
                   "~/.emacs.d/elisp/ruby")
                 load-path))

;;-----------------------------------------------------------------
;; 入力
;;-----------------------------------------------------------------
(setq default-input-method "MacOSX")

;;-----------------------------------------------------------------
;;; 日本語
;;-----------------------------------------------------------------
(set-language-environment 'Japanese)
(set-terminal-coding-system 'utf-8)
(setq file-name-coding-system 'utf-8)
(set-clipboard-coding-system 'utf-8)
(setq default-buffer-file-coding-system 'utf-8)
(setq coding-system-for-read 'mule-utf-8-unix)
(prefer-coding-system 'utf-8-unix)
(set-default-coding-systems 'utf-8)
(set-keyboard-coding-system 'utf-8)
(set-buffer-file-coding-system 'utf-8-unix)

;;-----------------------------------------------------------------
;; フォント
;;-----------------------------------------------------------------
(set-face-attribute 'default nil
                   :family "Ricty"
                   :height 160)
(set-fontset-font
 nil 'japanese-jisx0208
 (font-spec :family "Ricty"))

;;; *.~ とかのバックアップファイルを作らない
(setq make-backup-files nil)
;;; .#* とかのバックアップファイルを作らない
(setq auto-save-default nil)

;; ComanndキーをMetaに
(setq ns-command-modifier (quote meta))
(setq ns-alternate-modifier (quote super))

;;-----------------------------------------------------------------
;; ドラッグオンドロップ
;;-----------------------------------------------------------------
(define-key global-map [ns-drag-file] 'ns-find-file)

;;-----------------------------------------------------------------
;; auto-install
;;-----------------------------------------------------------------

(require 'auto-install)
(setq auto-install-directory "~/.emacs.d/auto-install/")
(auto-install-update-emacswiki-package-name t)
(auto-install-compatibility-setup)             ; 互換性確保

;;-----------------------------------------------------------------
;; Ruby
;;-----------------------------------------------------------------

;; ruby-mode
(autoload 'ruby-mode "ruby-mode"
  "Mode for editing ruby source files" t)
(setq auto-mode-alist
      (append '(("\\.rb$" . ruby-mode)) auto-mode-alist))
(setq interpreter-mode-alist (append '(("ruby" . ruby-mode))
                                     interpreter-mode-alist))
(autoload 'run-ruby "inf-ruby"
  "Run an inferior Ruby process")
(autoload 'inf-ruby-keys "inf-ruby"
  "Set local key defs for inf-ruby in ruby-mode")
(add-hook 'ruby-mode-hook
          '(lambda () (inf-ruby-keys)))

;; ruby-electric
(require 'ruby-electric)
(add-hook 'ruby-mode-hook '(lambda () (ruby-electric-mode t)))

;; rubydb
(autoload 'rubydb "rubydb3x"
  "run rubydb on program file in buffer *gud-file*.
the directory containing file becomes the initial working directory
and source-file directory for your debugger." t)

;; ruby-block
(require 'ruby-block)
(ruby-block-mode t)
;; ミニバッファに表示し, かつ, オーバレイする.
(setq ruby-block-highlight-toggle t)

;;-----------------------------------------------------------------
;; Git
;;-----------------------------------------------------------------
(require 'vc-git)
(when (featurep 'vc-git) (add-to-list 'vc-handled-backends 'git))
(require 'git)
(autoload 'git-blame-mode "git-blame"
           "Minor mode for incremental blame for Git." t)

(define-key global-map "\C-x\C-g" 'git-status)

(setq git--repository-bookmarks
      '("git://github.com/xcezx/scratch.git"
        "git://github.com/xcezx/dotfiles.git"))

init.el at master from hiroshinakao/emacs_d - GitHub

とりあえず

今まで使っていた22と変わらない感覚で使えているのでヨシ。

参考