WOMO

Carbon Emacs で M+フォントを使う

Posted at Sat, 27 Feb 2010 in computer::emacs

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"))

［Permalink］