[meadow-develop:1997/45]AOI install setting

[Koichiro Ohba <koichiro@xxxxxxxxxxxx>]

大場です。

himi さんのお陰で font の設定もわかりましたので、ごくごく簡単にイントー
ル設定をまとめてみました。

・各種コーディングシステムを設定
    (set-w32-system-coding-system 'sjis)
    (set-clipboard-coding-system 'sjis-dos)
    (set-keyboard-coding-system 'sjis)

・インプットメソッドに MW32-IME を設定

・新しくなったフォントまわりを設定


以下 himi さんのフォント設定を参考に(とゆーか写して)作成した設定です。
僕は 800x600 のノートでこの設定を使用しています。変なところがあれば指
摘してください。

(set-language-environment "Japanese")
(set-w32-system-coding-system 'sjis)
(set-clipboard-coding-system 'sjis-dos)
(set-keyboard-coding-system 'sjis)
(select-input-method "MW32-IME")  ;; input method の指定
(toggle-input-method)    ;;;; 起動時は IME OFF
(mw32-ime-initialize)    ;;;; IME の初期化

;;;;; test font setup function
(defun normal-font-regist (fontname bdffile &optional encoding)
  (if (null encoding) (setq encoding 0))
  (let ((bdfatt (w32-get-logfont-info (list 'bdf-font bdffile))))
    (if bdfatt
	(progn
	  (cond ((symbolp encoding)
		 (setq bdfatt (append (list
				       (cons 'encoder encoding)
				       (cons 'encoding-type 0))
				      bdfatt)))
		((numberp encoding)
		 (setq bdfatt (cons (cons 'encoding-type encoding)
				    bdfatt))))
	  (w32-add-font fontname bdfatt)
	  (w32-change-font-logfont fontname 0
				   (list 'bdf-font bdffile))))))

(defun create-font-from-logfont (name logfont-list &optional encoding-type alist)
;  (w32-check-logfont logfont)
  (if (null encoding-type) (setq encoding-type 0))
  (let ((prop (append (list (cons 'encoding-type encoding-type))
		      alist 
		      (w32-get-logfont-info (car logfont-list))))
	(i 0)
	logfont)
    (w32-add-font name prop)
    (while (setq logfont (car logfont-list))
      (w32-change-font-logfont name i logfont)
      (setq i (1+ i))
      (setq logfont-list (cdr logfont-list)))))

(let ((font "Courier-12"))
  (create-font-from-logfont
   font
   '((w32-logfont "Courier New" 0 -12 400 0 nil nil nil 0 1 3 49)
     (w32-logfont "Courier New" 0 -12 700 0 nil nil nil 0 1 3 49)
     (w32-logfont "Courier New" 0 -12 400 0 t nil nil 0 1 3 49)
     (w32-logfont "Courier New" 0 -12 700 0 t nil nil 0 1 3 49))))

(let ((font "Courier-12-ISO-8859-1"))
  (create-font-from-logfont
   font
   '((w32-logfont "Courier New" 0 -12 400 0 nil nil nil 0 1 3 49)
     (w32-logfont "Courier New" 0 -12 700 0 nil nil nil 0 1 3 49)
     (w32-logfont "Courier New" 0 -12 400 0 t nil nil 0 1 3 49)
     (w32-logfont "Courier New" 0 -12 700 0 t nil nil 0 1 3 49))
   1))

(let ((font "Nihongo-12")
      (logfont 
       '(w32-logfont "ＭＳ ゴシック" 0 -12 400 0 nil nil nil 128 1 3 49))
      (logfonti
       '(w32-logfont "ＭＳ 明朝" 0 -12 400 0 nil nil nil 128 1 3 17)))
  (create-font-from-logfont
   font
   (list logfont
	 (change-logfont-weight logfont 300)
	 logfonti
	 (change-logfont-weight logfonti 300))
   4))
(w32-add-font "Hojokanji-16" 
	      '((default-ascent . 0)
		(relative-compose . 0)
		(encoding-type . 0)
		(overhang . 0)
		(base . 16)
		(height . 16)
		(width . 17)))
(w32-change-font-logfont
 "Hojokanji-16" 0 
 (list 'bdf-font
       "c:/win32app/meadow/bdf/japanese/min-1-16.bdf"))

(new-fontset "private-fontset" '((ascii . "Courier-12")
				 (latin-iso8859-1 . "Courier-12-ISO-8859-1")
				 (katakana-jisx0201 . "Nihongo-12")
				 (japanese-jisx0208 . "Nihongo-12")
				 (latin-jisx0201 . "Nihongo-12")
				 (japanese-jisx0212 . "Hojokanji-16")))

(setq default-frame-alist
      (append (list '(foreground-color . "black")
		    '(background-color . "LemonChiffon")
		    '(background-color . "gray")
		    '(border-color . "black")
		    '(mouse-color . "white")
		    '(cursor-color . "black")
		    '(width . 96)
		    '(height . 33)
		    '(top . 0)
		    '(left . 60)
		    '(font . "private-fontset")
		    '(ime-font . "Nihongo-12"))
	      default-frame-alist))

--
KOICHIRO, Ohba (大場 光一郎) / mailto:koichiro@xxxxxxxxxxxx