unknownplace.org

フォント設定もさらしておく。

`~/.emacs.d/conf/carbon-emacs-05font.el

;; i <3 bitmap font
(setq mac-allow-anti-aliasing nil)

(create-fontset-from-fontset-spec
 (concat
  "-*-fixed-medium-r-normal--10-*-*-*-*-*-fontset-tobi"
  ",ascii:-apple-codingfonttobi-medium-r-normal--16-120-72-72-m-120-*-*"
  ",japanese-jisx0208:-apple-osaka-*"
  ",katakana-jisx0201:-apple-osaka-*"))

(create-fontset-from-fontset-spec
 (concat
  "-*-fixed-medium-r-normal--10-*-*-*-*-*-fontset-proggy"
  ",ascii:-apple-proggycleanttsz-medium-r-normal--16-120-72-72-m-120-*-*"
  ",japanese-jisx0208:-apple-osaka-*"
  ",katakana-jisx0201:-apple-osaka-*"))

(set-default-font "fontset-tobi")

CodingFontTobi と Proggy のフォントセットを定義して気分で使い分けてる。

デフォルトの Monaco+ヒラギノ も捨てがたく、たまに使いたくなったりするのでアンチエイリアスは

;; アンチエイリアストグル
(defun my-mac-toggle-antialias ()
  (interactive)
  (if mac-allow-anti-aliasing
      (setq mac-allow-anti-aliasing nil)
    (setq mac-allow-anti-aliasing t)))

こんなんでトグルできるようにしてる。この関数よびだしたあと画面が更新されると反映される。

こういう環境依存のコードは今までは自前で環境見てロードしていたのだけど、id:IMAKADO さんが公開してくれた init-loader 使うと carbon-emacs-* とか言うファイルは CarbonEmacs の時だけ読む、とかできて便利。