XEmacs でアイコン表示するようにしてみました。
たとえば添付のサンプルアイコンを使って以下のような設定をすると、
こんな風に表示されます。→ http://www.gohome.org/tmp/dump.gif
設定例:
;; アイコンファイルの置場
(setq mhc-xmas-icon-path "~/mhc-icons")
;; カテゴリ名とアイコンファイル名の alist
(setq mhc-xmas-category-icon-alist
'(("Holiday" . "Holiday.xpm")
("Work" . "Business.xpm")
("Private" . "Private.xpm")
("Anniversary" . "Anniversary.xpm")
("Birthday" . "Birthday.xpm")
("Other" . "Other.xpm")))
以下、
・追加ファイル (mhc-xmas.el)
・mhc-snap20000526 からの差分 (mhc.el.diff)
・16 ドット用サンプルアイコン (mhc-icons.tar.gz)
を添付しています。
問題点は、
・全角フォントの幅に合わせたアイコンファイルを用意しないと
右側のカレンダー表示がおかしくなってしまう。
・カテゴリに対してアイコンを定義しているが、これでいいのか？
(スケジュール毎に選びたい？)
・複数カテゴリのときどうするか
・FSF Emacs でもアイコン表示したい(？)
…といったところです。
Attachment:
mhc-xmas.el
Description: Binary data
Attachment:
mhc.el.diff
Description: application/octed-stream
Attachment:
mhc-icons.tar.gz
Description: Binary data
;; 大部分は去年書いたものなんですが、ほったらかしになってました(^^;;。 -- Yuuichi Teranishi (寺西裕一) <teranisi@xxxxxxxxxx> PGP 5.0i Public Key: http://www.gohome.org/pgp5/teranisi.key "The movement you need is on your shoulder..."