« JavaScript メモ | メイン | Nvu 1.0 リリース »

2005年06月23日

emacsを使ってみる?

今さらですが、emacsを使い始めてみます。 Meadow 2.10 の Netinstall をダウンロードしてインストール。 設定ファイル .emacs は付属していた dot.emacs.ja をそのままリネームして、 インストールも起動も問題なく完了しました。 ただし、フォントサイズがでかい！

ここ を参考にして、以下のようにフォントを設定。

;;; 以下のページを参考にしたフォント設定
;;; http://www4.kcn.ne.jp/~boochang/emacs/meadow2-setup.html#font-setup
(w32-add-font
 "myfont"
 '((spec
    ((:char-spec ascii :height any)
     strict
     (w32-logfont "Osaka－等幅" 0 -12 400 0 nil nil nil 0 1 3 49))
    ((:char-spec ascii :height any :weight bold)
     strict
     (w32-logfont "Osaka－等幅" 0 -12 700 0 nil nil nil 0 1 3 49)
     ((spacing . -1)))
    ((:char-spec ascii :height any :slant italic)
     strict
     (w32-logfont "Osaka－等幅" 0 -12 400 0 t nil nil 0 1 3 49))
    ((:char-spec ascii :height any :weight bold :slant italic)
     strict
     (w32-logfont "Osaka－等幅" 0 -12 700 0 t nil nil 0 1 3 49)
     ((spacing . -1)))
    ((:char-spec katakana-jisx0201 :height any)
     strict
     (w32-logfont "Osaka－等幅" 0 -12 400 0 nil nil nil 128 1 3 49))
    ((:char-spec katakana-jisx0201 :height any :weight bold)
     strict
     (w32-logfont "Osaka－等幅" 0 -12 700 0 nil nil nil 128 1 3 49)
     ((spacing . -1)))
    ((:char-spec katakana-jisx0201 :height any :slant italic)
     strict
     (w32-logfont "Osaka－等幅" 0 -12 400 0 t nil nil 128 1 3 49))
    ((:char-spec katakana-jisx0201 :height any :weight bold :slant italic)
     strict
     (w32-logfont "Osaka－等幅" 0 -12 700 0 t nil nil 128 1 3 49)
     ((spacing . -1)))
    ((:char-spec japanese-jisx0208 :height any)
     strict
     (w32-logfont "Osaka－等幅" 0 -12 400 0 nil nil nil 128 1 3 49))
    ((:char-spec japanese-jisx0208 :height any :weight bold)
     strict
     (w32-logfont "Osaka－等幅" 0 -12 700 0 nil nil nil 128 1 3 49)
     ((spacing . -1)))
    ((:char-spec japanese-jisx0208 :height any :slant italic)
     strict
     (w32-logfont "Osaka－等幅" 0 -12 400 0 t nil nil 128 1 3 49))
    ((:char-spec japanese-jisx0208 :height any :weight bold :slant italic)
     strict
     (w32-logfont "Osaka－等幅" 0 -12 700 0 t nil nil 128 1 3 49)
     ((spacing . -1))))))

;; 初期フレームの設定
(setq default-frame-alist
      (append (list 
                '(foreground-color . "gray")
            '(background-color . "black")
            '(ime-font . (w32-logfont "Osaka－等幅"
                          0 -12 400 0 nil nil nil
                          128 1 3 49)) ; TrueType のみ
            '(font . "myfont"); TrueType
            '(width . 80)
            '(height . 40)
            '(top . 100)
            '(left . 100))
          default-frame-alist))

投稿者 makot-s : 2005年06月23日 01:57

トラックバック

このエントリーのトラックバックURL:
http://makots.s56.xrea.com/mt/mt-tb.cgi/62

コメント

コメントしてください




保存しますか?