フォント設定

font-settting.el

;;; font-setting.el
;;
;; 参考にしたページ
;;
;; フォントの設定 - Meadow - Trac
;;   http://www.meadowy.org/meadow/wiki/%E3%83%95%E3%82%A9%E3%83%B3%E3%83%88%E3%81%AE%E8%A8%AD%E5%AE%9A
;;
;; 試し方
;;   [Options] -> Set Font/Font Setで設定されているフォントを試すことが出来ます
;;

(if (is-meadow)
    (progn
      ;; フォント名 : ＭＳ ゴシック
      ;;     サイズ : 16
      ;;       説明 : 基本
      (w32-add-font
       "ＭＳ ゴシック - 16"
       '((spec
          ((:char-spec ascii :height any)
           strict
           (w32-logfont "ＭＳ ゴシック" 0 16 400 0 nil nil nil 0 1 3 0))
          ((:char-spec ascii :height any :weight bold)
           strict
           (w32-logfont "ＭＳ ゴシック" 0 16 700 0 nil nil nil 0 1 3 0)
           ((spacing . -1)))
          ((:char-spec ascii :height any :slant italic)
           strict
           (w32-logfont "ＭＳ ゴシック" 0 16 400 0   t nil nil 0 1 3 0))
          ((:char-spec ascii :height any :weight bold :slant italic)
           strict
           (w32-logfont "ＭＳ ゴシック" 0 16 700 0   t nil nil 0 1 3 0)
           ((spacing . -1)))
          ((:char-spec japanese-jisx0208 :height any)
           strict
           (w32-logfont "ＭＳ ゴシック" 0 16 400 0 nil nil nil 128 1 3 0))
          ((:char-spec japanese-jisx0208 :height any :weight bold)
           strict
           (w32-logfont "ＭＳ ゴシック" 0 16 700 0 nil nil nil 128 1 3 0)
           ((spacing . -1)))
          ((:char-spec japanese-jisx0208 :height any :slant italic)
           strict
           (w32-logfont "ＭＳ ゴシック" 0 16 400 0   t nil nil 128 1 3 0))
          ((:char-spec japanese-jisx0208 :height any :weight bold :slant italic)
           strict
           (w32-logfont "ＭＳ ゴシック" 0 16 700 0   t nil nil 128 1 3 0)
           ((spacing . -1))))))

      ;; フォント名 : ＭＳ ゴシック
      ;;     サイズ : 14
      ;;       説明 : ちょっと小さめ
      (w32-add-font
       "ＭＳ ゴシック - 14"
       '((spec
          ((:char-spec ascii :height any)
           strict
           (w32-logfont "ＭＳ ゴシック" 0 14 500 0 nil nil nil 0 1 3 0))
          ((:char-spec ascii :height any :weight bold)
           strict
           (w32-logfont "ＭＳ ゴシック" 0 14 700 0 nil nil nil 0 1 3 0)
           ((spacing . -1)))
          ((:char-spec ascii :height any :slant italic)
           strict
           (w32-logfont "ＭＳ ゴシック" 0 14 500 0   t nil nil 0 1 3 0))
          ((:char-spec ascii :height any :weight bold :slant italic)
           strict
           (w32-logfont "ＭＳ ゴシック" 0 14 700 0   t nil nil 0 1 3 0)
           ((spacing . -1)))
          ((:char-spec japanese-jisx0208 :height any)
           strict
           (w32-logfont "ＭＳ ゴシック" 0 14 500 0 nil nil nil 128 1 3 0))
          ((:char-spec japanese-jisx0208 :height any :weight bold)
           strict
           (w32-logfont "ＭＳ ゴシック" 0 14 700 0 nil nil nil 128 1 3 0)
           ((spacing . -1)))
          ((:char-spec japanese-jisx0208 :height any :slant italic)
           strict
           (w32-logfont "ＭＳ ゴシック" 0 14 500 0   t nil nil 128 1 3 0))
          ((:char-spec japanese-jisx0208 :height any :weight bold :slant italic)
           strict
           (w32-logfont "ＭＳ ゴシック" 0 14 700 0   t nil nil 128 1 3 0)
           ((spacing . -1))))))

      ;; フォント名 : ＭＳ ゴシック
      ;;     サイズ : 12
      ;;       説明 : 小さい
      (w32-add-font
       "ＭＳ ゴシック - 12"
       '((spec
          ((:char-spec ascii :height any)
           strict
           (w32-logfont "ＭＳ ゴシック" 0 12 400 0 nil nil nil 0 1 3 0))
          ((:char-spec ascii :height any :weight bold)
           strict
           (w32-logfont "ＭＳ ゴシック" 0 12 700 0 nil nil nil 0 1 3 0)
           ((spacing . -1)))
          ((:char-spec ascii :height any :slant italic)
           strict
           (w32-logfont "ＭＳ ゴシック" 0 12 400 0   t nil nil 0 1 3 0))
          ((:char-spec ascii :height any :weight bold :slant italic)
           strict
           (w32-logfont "ＭＳ ゴシック" 0 12 700 0   t nil nil 0 1 3 0)
           ((spacing . -1)))
          ((:char-spec japanese-jisx0208 :height any)
           strict
           (w32-logfont "ＭＳ ゴシック" 0 12 400 0 nil nil nil 128 1 3 0))
          ((:char-spec japanese-jisx0208 :height any :weight bold)
           strict
           (w32-logfont "ＭＳ ゴシック" 0 12 700 0 nil nil nil 128 1 3 0)
           ((spacing . -1)))
          ((:char-spec japanese-jisx0208 :height any :slant italic)
           strict
           (w32-logfont "ＭＳ ゴシック" 0 12 400 0   t nil nil 128 1 3 0))
          ((:char-spec japanese-jisx0208 :height any :weight bold :slant italic)
           strict
           (w32-logfont "ＭＳ ゴシック" 0 12 700 0   t nil nil 128 1 3 0)
           ((spacing . -1))))))

      ;; フォント名 : ＭＳ Ｐゴシック
      ;;     サイズ : 16
      ;;       説明 : 2chのスレから拾ったやつ、ASCIIアートがちゃんと表示される
      (w32-add-font
       "navi2ch-gothic"
       '((strict-spec
          ((:char-spec ascii :height any)
           (w32-logfont "ＭＳ Ｐゴシック" 0 16 400 0 nil nil nil 0 1 0 49))
          ((:char-spec ascii :height any :slant italic)
           (w32-logfont "ＭＳ Ｐゴシック" 0 16 400 0   t nil nil 0 1 0 49))
          ((:char-spec ascii :height any :weight bold)
           (w32-logfont "ＭＳ Ｐゴシック" 0 16 700 0 nil nil nil 0 1 0 49) ((spacing . -1)))
          ((:char-spec ascii :height any :weight bold :slant italic)
           (w32-logfont "ＭＳ Ｐゴシック" 0 16 700 0 nil nil nil 0 1 0 49) ((spacing . -1)))
          ((:char-spec japanese-jisx0208 :height any)
           (w32-logfont "ＭＳ Ｐゴシック" 0 16 400 0 nil nil nil 128 1 0 49))
          ((:char-spec japanese-jisx0208 :height any :slant italic)
           (w32-logfont "ＭＳ Ｐゴシック" 0 16 400 0   t nil nil 128 1 0 49))
          ((:char-spec japanese-jisx0208 :height any :weight bold)
           (w32-logfont "ＭＳ Ｐゴシック" 0 16 400 0 nil nil nil 128 1 0 49) ((spacing . -1)))
          ((:char-spec japanese-jisx0208 :height any :weight bold :slant italic)
           (w32-logfont "ＭＳ Ｐゴシック" 0 16 700 0   t nil nil 128 1 0 49) ((spacing . -1)))
          ((:char-spec katakana-jisx0201 :height any)
           (w32-logfont "ＭＳ Ｐゴシック" 0 16 400 0 nil nil nil 128 1 0 49))
          ((:char-spec katakana-jisx0201 :height any :slant italic)
           (w32-logfont "ＭＳ Ｐゴシック" 0 16 400 0   t nil nil 128 1 0 49))
          ((:char-spec katakana-jisx0201 :height any :weight bold)
           (w32-logfont "ＭＳ Ｐゴシック" 0 16 700 0 nil nil nil 128 1 0 49) ((spacing . -1)))
          ((:char-spec katakana-jisx0201 :height any :weight bold :slant italic)
           (w32-logfont "ＭＳ Ｐゴシック" 0 16 700 0   t nil nil 128 1 0 49) ((spacing . -1))))))

      ;; IMEのフォントを設定
      (let ((logfont '(w32-logfont "ＭＳ ゴシック" 0 0 400 0 nil nil nil 128 1 3 0)))
        (modify-frame-parameters (selected-frame) (list (cons 'ime-font logfont)))
        (add-to-list 'default-frame-alist (cons 'ime-font logfont))
        )

      ;; フォントを選択
      ;;(set-default-font "ＭＳ ゴシック - 16")
      (set-default-font "ＭＳ ゴシック - 14")
      ;;(set-default-font "ＭＳ ゴシック - 12")

      ;; 行間を開ける量、これを調整することでかなり見え方が変わる
      (setq-default line-spacing 2)
      )
  
  ;; ntemacs
  (progn
    ;; フォントの設定
    (set-default-font "ＭＳ ゴシック-10.5")

    ;; 行間を開ける量、これを調整することでかなり見え方が変わる
    (setq-default line-spacing 2)
    )
  )

(provide 'font-setting)
;;; font-setting.el ends here.