Jan.2,2000 (Sun)
Jan.9,2000 (Sun)
■静穏な生活と騒音なPC [COMP]
+ 最近自分のPCの騒音が耳につく。 音質的にQuantum AtlasIVが2台ぶんまわってるせいっぽい。
+ ってことで、 SMART DRIVEが 欲しくなったけど、 うちのAKANEのケースには もう5inchベイの空きがないからダメなんだよなぁ (;_;)
+ てなわけで普通のタワーなサーバケースに入れかえちゃおうという 野望が秘かに進行中だったりする。
+ …しかし、もしケースを交換すると、 今のケースとAOpen AX6BCとPentiumII-450とSPECTRA5400PEが余ってる ことになるので、HDDとメモリとFDD買ってくるだけでもう1台PCが組める事に(笑)
Jan.16,2000 (Sun)
Jan.19,2000 (Wed)
Jan.22,2000 (Sat)
■今日の.emacs (ひさびさかも ^^;) [COMP]
+ MeadowでBDFフォントを使う場合、そのフォントには以下の3つの状況が考えられる。
- normal, bold, itaric, bolditalic全てが揃っているもの。
- normal, boldの2つだえだけがあるもの。
- normalしかないもの。
+ で、今までこの3つは違う関数をでっちあげてやってたんだけど、 一つにしたほうが美しいよなぁということでふにふに作業。
(defun neko-register-bdf (font fontfile &optional encoding)
(cond
((listp fontfile)
(let ((len (length fontfile)) (pr 0) (fl fontfile) (fn ""))
(cond
((or (> len 4) (= len 3))
(error "フォントリストの長さは1か2か4にしてね :-)"))
((= len 2)
(setq fl (append fl fl))))
(neko-register-bdf font (car fl) encoding)
(while (consp (cdr fl))
(setq pr (1+ pr) fl (cdr fl)
fn (expand-file-name (car fl) font-dir))
(w32-change-font-logfont font pr (list 'bdf-font fn)))))
(t;; not list = atom
(setq fontfile (expand-file-name fontfile font-dir))
(w32-auto-regist-bdf-font font fontfile encoding))))+ 小1時間考えてこんなものができた。
(neko-register-bdf "16dot-latin-jisx0201"
'("lt1-16-etl.bdf" "lt1-16b-etl.bdf"
"lt1-16i-etl.bdf" "lt1-16bi-etl.bdf"))
(neko-register-bdf "16dot-latin-jisx0201" "8x16rk.bdf" 0)
(neko-register-bdf "16dot-katakana-jisx0201" "8x16rk.bdf" 1)
(neko-register-bdf "14dot-latin-iso8859-1" '("7x14.bdf" "7x14B.bdf"))+ ってな感じに使う。 こうやってフォントを登録してから後でnew-fontsetしてやればそれでOK。
+ 私はLispは門前の小憎的な状況で覚えたので (*1) 実装自体はナニだと自分でも思ってるけど、けっこう便利に使えてる :-)