Skip to content

Instantly share code, notes, and snippets.

@kmakita13714
Created April 17, 2013 16:23
Show Gist options
  • Save kmakita13714/5405653 to your computer and use it in GitHub Desktop.
Save kmakita13714/5405653 to your computer and use it in GitHub Desktop.
私が、Emacs24で利用しているフォントの設定です。 日本語フォントは「Takaoゴシック」を、ASCIIフォントは「Source Code Pro」を利用しています! Source Code Proは、見やすくていいと思います!!
(when (>= emacs-major-version 24)
;; フォントセットを作る
(let* ((fontset-name "myfonts") ; フォントセットの名前
(size 14) ; ASCIIフォントのサイズ [9/10/12/14/15/17/19/20/...]
(asciifont "Source Code Pro") ; ASCIIフォント
(jpfont "Takaoゴシック") ; 日本語フォント
(font (format "%s-%d:weight=normal:slant=normal" asciifont size))
(fontspec (font-spec :family asciifont))
(jp-fontspec (font-spec :family jpfont))
(fsn (create-fontset-from-ascii-font font nil fontset-name)))
(set-fontset-font fsn 'japanese-jisx0213.2004-1 jp-fontspec)
(set-fontset-font fsn 'japanese-jisx0213-2 jp-fontspec)
(set-fontset-font fsn 'katakana-jisx0201 jp-fontspec) ; 半角カナ
(set-fontset-font fsn '(#x0080 . #x024F) fontspec) ; 分音符付きラテン
(set-fontset-font fsn '(#x0370 . #x03FF) fontspec) ; ギリシャ文字
)
;; デフォルトのフレームパラメータでフォントセットを指定
(add-to-list 'default-frame-alist '(font . "fontset-myfonts"))
;; フォントサイズの比を設定
(dolist (elt '(
("*Takao*" . 0.8)
))
(add-to-list 'face-font-rescale-alist elt))
;; デフォルトフェイスにフォントセットを設定
;; # これは起動時に default-frame-alist に従ったフレームが作成されない現象への対処
(set-face-font 'default "fontset-myfonts"))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment