Carbon Emacs で M+フォントを使う
M+ Fonts（エムプラスフォント、mplus font）のテストフライト版を Carbon Emacs で使ってみたかったので、設定をあれこれいじりました。 いろいろ検索した結果、結局配布元から設定へのリンクがはられていたのですが、見ることはできず。Web Archive から辿ることはできるのですがリンクをはっていいのかちょっとわからないので直接リンクは控えておきます。
これでいいのか実はだいぶ心許ないのですが、記録しておかないと .emacs ファイルが消えたときにまたやりなおしになるので、フォント関係の設定を全部書いておきます。重複記述や記述ミスが多分ありますが、だって動いてるんだもの。
(if (eq window-system 'mac) (require 'carbon-font))
(setq mac-allow-anti-aliasing t) ;; アンチエイリアスの設定
(if (eq window-system 'mac)
(progn
(create-fontset-from-mac-roman-font
"-apple-m+ 2m-medium-r-normal--0-0-0-0-m-0-iso10646-1" nil "mplus2m")
(set-fontset-font "fontset-mplus2m" 'japanese-jisx0208
'("M+ 2m light" . "iso10646"))
(set-fontset-font "fontset-mplus2m" 'katakana-jisx0201
'("M+ 2m light" . "iso10646"))
(add-to-list 'face-font-rescale-alist '(".*M+ 2m light.*" . 1.2))
(create-fontset-from-mac-roman-font
"-apple-m+ 1m-medium-r-normal--0-0-0-0-m-0-iso10646-1" nil "mplus1m")
(set-fontset-font "fontset-mplus1m" 'japanese-jisx0208
'("M+ 1m light" . "iso10646"))
(set-fontset-font "fontset-mplus1m" 'katakana-jisx0201
'("M+ 1m light" . "iso10646"))
(add-to-list 'face-font-rescale-alist '(".*M+ 1m light.*" . 1.2))
(create-fontset-from-mac-roman-font
"-apple-m+ 1mn-medium-r-normal--0-0-0-0-m-0-iso10646-1" nil "mplus1mn")
(set-fontset-font "fontset-mplus1mn" 'japanese-jisx0208
'("M+ 1mn light" . "iso10646"))
(set-fontset-font "fontset-mplus1m" 'katakana-jisx0201
'("M+ 1mn light" . "iso10646"))
(add-to-list 'face-font-rescale-alist '(".*M+ 1mn light.*" . 1.2))
(create-fontset-from-mac-roman-font
"-apple-m+ 1m-medium-r-normal--0-0-0-0-m-0-iso10646-1" nil "mplus1mreg")
(set-fontset-font "fontset-mplus1mreg" 'japanese-jisx0208
'("M+ 1m regular" . "iso10646"))
(set-fontset-font "fontset-mplus1mreg" 'katakana-jisx0201
'("M+ 1m regular" . "iso10646"))
(cond
((string-match "apple-darwin" system-configuration)
(create-fontset-from-mac-roman-font
"-apple-m+ 1m-medium-r-normal--0-0-0-0-m-*" nil "asciimplus")
(set-fontset-font "fontset-asciimplus" 'japanese-jisx0208
'("ヒラギノ角ゴ pro w3" . "jisx0208.1983"))
(set-fontset-font "fontset-asciimplus" 'katakana-jisx0201
'("ヒラギノ角ゴ pro w3" . "jisx0201.1976"))
(add-to-list 'default-frame-alist '(font . "fontset-asciimplus"))))
(add-to-list 'face-font-rescale-alist '(".*M+ 1m .*" . 1.2))
(add-to-list 'face-font-rescale-alist '(".*M+ 2m light.*" . 1.2))
))
(add-to-list 'default-frame-alist
'(font . "-*-*-medium-r-normal--0-0-0-0-m-0-fontset-mplus2m"))
Carbon Emacs のための基本的な設定 on Mac OS X
Macintosh OSX で常用するエディタが今ひとつ決まらないので、Emacs の OS X 用パッケージ、Carbon Emacsを導入してみました。うーんさすがにハードルが高い。
とりあえず『Mac で使うのに』必要そうな最低限の設定をメモしておきます。
以下は ~/.emacs に記述しました
;; ■ load-path の追加 (setq load-path (cons "~/site-lisp/" load-path))
新しい *.el ファイルを導入するためのパスの追加。デフォルトだと「/Applications/Emacs.app/Contents/Resources/site-lisp」らしいのですが、そんなところにいちいち置いていられないので好きなディレクトリを追加します。「~/elisp/」とか「/usr/local/share/emacs/site-lisp/」とか追加している人もいる様子。好みで。
;; ■ キーバインド (mac-key-mode 1) ; Macのキーバインドを使う (setq mac-option-modifier 'meta) ; optionをメタキーにする (define-key global-map "\C-z" 'undo) ; undo
林檎キー＋C でコピーとか、右クリックでメニュー表示なんかの Mac 標準キーバインドを使用する。option キーをメタキー（M-x とか書いてあるキーバインドでいうところの M。esc キー1回押し）に設定する。アンドゥはデフォルトだと C-x u なのを変更。
;; ■ Shift + 矢印で範囲選択 (setq pc-select-selection-keys-only t) (pc-selection-mode 1)
Shift + 矢印で範囲選択し、セレクションを使えるようにする。
;; ■ スタートアップメッセージを非表示
(setq inhibit-startup-message t)
;; ■ ツールバーの非表示
(if window-system
(progn (tool-bar-mode nil)))
スプラッシュスクリーン的なものとツールバーを非表示に。
ついでに環境設定
Control + Space（マークセット）が Spotlight の表示にとられてしまうので、[システム環境設定] → [Spotlight] → [Spotlightメニューのキーボードショートカット] で変更。
