Meadowをかなりいじった

こんな感じ。

かなりいけてる

.emacsはこんな感じ

;; ユーザ用の設定ファイル
;;

(let *1
      (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))
        *2
        *3
       )
  (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")
(custom-set-variables
  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(blink-cursor-mode nil)
 '(column-number-mode t)
 '(transient-mark-mode t))
(custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 )



;;;M-x color-theme-selectでテーマの一覧表示
(load "color-theme")
;;;デフォルトで表示されるカラーテーマ
(color-theme-initialize)
(color-theme-charcoal-black)

;;フレームの不透明度の設定
(set-frame-parameter (selected-frame)  'alpha  90))

あとはhttp://blog.mizoshiri.com/archives/50を参照

フリーフォントいろいろ使おうと思ったけどvistaできないみたいね

いいよ。慣れてるから。

*1:make-spec (function (lambda (size charset fontname &optional windows-charset) (setq size (- size

*2::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

*3::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")