Mac OS X での emacs font 設定

フォント設定をさらせと聞こえてきたので。

基本的にはどこかのサイトのコピペ。多分 http://sakito.jp/emacs/emacs23.html

ただし、 japanese-jisx0212 ではなく katakana-jisx0201 をフォント上書きしたり、一部上書きやめたりしております。

(when (>= emacs-major-version 23)
  (set-face-attribute 'default nil
                      :family "monaco"
                      :height 120)
  (set-fontset-font
   (frame-parameter nil 'font)
   'japanese-jisx0208
   '("Hiragino Maru Gothic Pro" . "iso10646-1"))
  (set-fontset-font
   (frame-parameter nil 'font)
   'katakana-jisx0201
   '("Hiragino Maru Gothic Pro" . "iso10646-1"))
  ;; (set-fontset-font
  ;;  (frame-parameter nil 'font)
  ;;  'mule-unicode-0100-24ff
  ;;  '("monaco" . "iso10646-1"))
  (setq face-font-rescale-alist
        '(("^-apple-hiragino.*" . 1.2)
          (".*osaka-bold.*" . 1.2)
          (".*osaka-medium.*" . 1.2)
          (".*courier-bold-.*-mac-roman" . 1.0)
          (".*monaco cy-bold-.*-mac-cyrillic" . 0.9)
          (".*monaco-bold-.*-mac-roman" . 0.9)
          ("-cdac$" . 1.3))))

解説すると set-face-attribute のとこで default の face のフォントを "monaco", 高さ 12pixel にしてます。多分。

そして、今そのフレームで使われているフォントに対して set-fontset-font を使って指定した文字領域についてフォントを上書きしていきます。

最後に、 face-font-rescale-alist で pixel を拡大縮小していい感じにあわせているってところです。