trash

背景色をランダムに変更

;;; .xyzzyに追加する
(setq *random-state* (make-random-state t))
(add-hook '*find-file-hooks*
		  #'(lambda ()
			  (let ((fc (random #xffffff))
					(v (make-array 2 :fill-pointer 0)))
				(vector-push fc v)
				(vector-push (- #xffffff fc) v)
				(set-buffer-colors v))))


トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2007-03-14 (水) 16:27:31 (3668d)