■

[emacs]UM+ BITMAP FONTS
MeadowでUM+ BITMAP FONTSを使うときの設定です。

フォントは http://www.kaoriya.net/dist/ から bdfUMplus をダウンロードし、インストールします。

;;; フォントの作成
(w32-add-font
 "BDF UM+"
 '((spec
    ((:char-spec ascii :height any)
     strict (w32-logfont "BDF UM+" 0 -12 400 0 nil nil nil 0 1 3 1))
    ((:char-spec ascii :height any :weight bold)
     strict (w32-logfont "BDF UM+" 0 -12 700 0 nil nil nil 0 1 3 1))
    ((:char-spec ascii :height any :slant italic)
     strict (w32-logfont "BDF UM+" 0 -12 400 0   t nil nil 0 1 3 1))
    ((:char-spec ascii :height any :weight bold :slant italic)
     strict (w32-logfont "BDF UM+" 0 -12 700 0   t nil nil 0 1 3 1))
    ((:char-spec katakana-jisx0201 :height any)
     strict (w32-logfont "BDF UM+" 0 -12 400 0 nil nil nil 128 1 3 1))
    ((:char-spec katakana-jisx0201 :height any :weight bold)
     strict (w32-logfont "BDF UM+" 0 -12 700 0 nil nil nil 128 1 3 1))
    ((:char-spec katakana-jisx0201 :height any :slant italic)
     strict (w32-logfont "BDF UM+" 0 -12 400 0   t nil nil 128 1 3 1))
    ((:char-spec katakana-jisx0201 :height any :weight bold :slant italic)
     strict (w32-logfont "BDF UM+" 0 -12 700 0   t nil nil 128 1 3 1))
    ((:char-spec japanese-jisx0212 :height any)
     strict (w32-logfont "BDF UM+" 0 -12 400 0 nil nil nil 128 1 3 1))
    ((:char-spec japanese-jisx0212 :height any :weight bold)
     strict (w32-logfont "BDF UM+" 0 -12 700 0 nil nil nil 128 1 3 1))
    ((:char-spec japanese-jisx0212 :height any :slant italic)
     strict (w32-logfont "BDF UM+" 0 -12 400 0   t nil nil 128 1 3 1))
    ((:char-spec japanese-jisx0212 :height any :weight bold :slant italic)
     strict (w32-logfont "BDF UM+" 0 -12 700 0   t nil nil 128 1 3 1))
    ((:char-spec japanese-jisx0208 :height any)
     strict (w32-logfont "BDF UM+" 0 -12 400 0 nil nil nil 128 1 3 1))
    ((:char-spec japanese-jisx0208 :height any :weight bold)
     strict (w32-logfont "BDF UM+" 0 -12 700 0 nil nil nil 128 1 3 1))
    ((:char-spec japanese-jisx0208 :height any :slant italic)
     strict (w32-logfont "BDF UM+" 0 -12 400 0   t nil nil 128 1 3 1))
    ((:char-spec japanese-jisx0208 :height any :weight bold :slant italic)
     strict (w32-logfont "BDF UM+" 0 -12 700 0   t nil nil 128 1 3 1)))))

;;; 初期フレームの設定
(setq default-frame-alist
      (append (list '(foreground-color . "black")
		    '(background-color . "LemonChiffon")
		    '(background-color . "gray")
		    '(border-color . "black")
		    '(mouse-color . "white")
		    '(cursor-color . "black")
		    '(font . "BDF UM+"))
	      default-frame-alist))