Yusukebe::Tech

MeadowでConsolasフォントとモトヤシーダ1等幅フォントを使う。 綺麗だ。

以下.emacsの設定、これでいけますよ、という感じ。

(let ((make-spec 
       (function 
    (lambda (size charset fontname &optional windows-charset)
      (setq size (- size))
      (if (not windows-charset)
          (setq windows-charset 
            (cadr (assq charset mw32-charset-windows-font-info-alist))))
      `(((:char-spec ,charset :height any)
         strict
         (w32-logfont ,fontname 0 ,size 400 0 nil nil nil ,windows-charset 1 3 0))
        ((:char-spec ,charset :height any :weight bold)
         strict
         (w32-logfont ,fontname 0 ,size 700 0 nil nil nil ,windows-charset 1 3 0)
         ((spacing . -1)))
        ((:char-spec ,charset :height any :slant italic)
         strict
         (w32-logfont ,fontname 0 ,size 400 0   t nil nil ,windows-charset 1 3 0))
        ((:char-spec ,charset :height any :weight bold :slant italic)
         strict
         (w32-logfont ,fontname 0 ,size 700 0   t nil nil ,windows-charset 1 3 0)
         ((spacing . -1)))))))
       (make-spec-list
    (function
     (lambda (size params-list)
       (list (cons 'spec 
               (apply 'append 
                  (mapcar (lambda (params)
                    (apply make-spec (cons size params)))
                      params-list))))
       )))
       (define-fontset 
     (function
      (lambda (fontname size fontset-list)
        (let ((spec (funcall make-spec-list size fontset-list)))
          (if (w32-list-fonts fontname)
          (w32-change-font fontname spec)
        (w32-add-font fontname spec)
        )))))
             (consolas-fontset-list
    '(
      (ascii "Consolas")
      (katakana-jisx0201 "NFモトヤシータ゛1等幅")
      (japanese-jisx0208 "NFモトヤシータ゛1等幅")
      (korean-ksc5601 "Dotum")
      (chinese-gb2312 "SimHei")
      (chinese-big5-1 "MingLiU")
      (chinese-big5-2 "MingLiU")
      ))
       )
  (funcall define-fontset "Consolas 10" 10 consolas-fontset-list)
  (funcall define-fontset "Consolas 12" 12 consolas-fontset-list)
  (funcall define-fontset "Consolas 14" 14 consolas-fontset-list)
  (funcall define-fontset "Consolas 16" 16 consolas-fontset-list)
  (funcall define-fontset "Consolas 18" 18 consolas-fontset-list)
  (funcall define-fontset "Consolas 20" 20 consolas-fontset-list)
  (funcall define-fontset "Consolas 22" 22 consolas-fontset-list)
  (funcall define-fontset "Consolas 24" 24 consolas-fontset-list)
  (funcall define-fontset "Consolas 36" 36 consolas-fontset-list)
  (funcall define-fontset "Consolas 48" 48 consolas-fontset-list)
  )

(add-to-list 'default-frame-alist '(font . "Consolas 14"))
(set-frame-font "Consolas 14")