[mhc:01591] default icon-alist

[INOUE Tomonori (井上朋紀) <inouetom@xxxxxxxxx>]

井上朋紀と申します。MHC の cvs 開発版を使用しています。

配布物のiconsの下に、Anniversary, Birthday, Date 等のxpm,xbmファイルが
存在していますが、emacsの下の mhc-bm.el, mhc-e21.el, mhc-xmas.el の
各 icon-alist ({mhc-bm,mhc-e21,mhc-xmas}-icon-alist) には含まれていない
ため、デフォルトの設定のままでは使用できません。

せっかく配布物に含まれているのに、defcustomされていないのは
もったいないとずっと以前から思っていました。

＃デフォルトで入っている Birthday のアイコン使うために .emacs で
＃setq mhc-e21-icon-alist を指定するのが面倒...

そこで、iconsの下にあるファイルを使用するように el ファイルを変更し、
patch (mhc-xpmxbm.diff) を作成しました。添付し送付します。
本日 CVS で取得した mhc-current に対応しています。

heavy lisperな方や自作アイコンを使用される方は、
icon-alist を .emacs ファイルの中で setq しているのだと思いますが、
デフォルトのまま使用できるアイコンが増えてもいいのでは？と思い
patchを作成した次第です(icon-alistのcommentはそのままです。書き足してお
りません)。

よろしくお願いします。
---
井上 朋紀 (INOUE Tomonori)
inouetom@xxxxxxxxx

diff -uNr mhc.orig/emacs/mhc-bm.el mhc/emacs/mhc-bm.el
--- mhc.orig/emacs/mhc-bm.el	Fri Feb  9 19:03:21 2001
+++ mhc/emacs/mhc-bm.el	Mon Jul  1 01:26:03 2002
@@ -12,9 +12,16 @@
   '(("Conflict"    . ("Conflict.xbm" "Yellow"))
     ("Private"     . ("Private.xbm" "HotPink"))
     ("Holiday"     . ("Holiday.xbm" "OrangeRed" "White"))
-    ("Todo"         .("CheckBox.xbm" "Red"))
+    ("Todo"        . ("CheckBox.xbm" "Red"))
     ("Done"        . ("CheckedBox.xbm" "Red"))
-    ("Link"       .  ("Link.xbm" "Gray")))
+    ("Link"        . ("Link.xbm" "Gray"))
+    ("Anniversary" . ("Anniversary.xbm" "purple"))
+    ("Birthday"    . ("Birthday.xbm" "navy"))
+    ("Date"        . ("Date.xbm" "deep pink"))
+    ("Party"       . ("Party.xbm" "dark green"))
+    ("Other"       . ("Other.xbm" "cyan"))
+    ("Vacation"    . ("Vacation.xbm" "blue"))
+    ("Work"        . ("Business.xbm" "tan")))
   "*Alist to define icons.
 Each element should have the form
  (NAME . (ICON-FILE FG BG))
diff -uNr mhc.orig/emacs/mhc-e21.el mhc/emacs/mhc-e21.el
--- mhc.orig/emacs/mhc-e21.el	Fri Jan 11 02:00:29 2002
+++ mhc/emacs/mhc-e21.el	Mon Jul  1 01:25:44 2002
@@ -6,12 +6,19 @@
 ;; Revised: $Date: 2001/12/25 15:40:55 $
 
 (defcustom mhc-e21-icon-alist 
-  '(("Conflict"   . "Conflict.xpm")
-    ("Private"    . "Private.xpm")
-    ("Holiday"    . "Holiday.xpm")
-    ("Todo"       . "CheckBox.xpm")
-    ("Done"       . "CheckedBox.xpm")
-    ("Link"       . "Link.xpm"))
+  '(("Conflict"    . "Conflict.xpm")
+    ("Private"     . "Private.xpm")
+    ("Holiday"     . "Holiday.xpm")
+    ("Todo"        . "CheckBox.xpm")
+    ("Done"        . "CheckedBox.xpm")
+    ("Link"        . "Link.xpm")
+    ("Anniversary" . "Anniversary.xpm")
+    ("Birthday"    . "Birthday.xpm")
+    ("Date"        . "Date.xpm")
+    ("Party"       . "Party.xpm")
+    ("Other"       . "Other.xpm")
+    ("Vacation"    . "Vacation.xpm")
+    ("Work"        . "Business.xpm"))
   "*Alist to define icons.
 Each element should have the form
  (NAME . ICON-FILE)
diff -uNr mhc.orig/emacs/mhc-xmas.el mhc/emacs/mhc-xmas.el
--- mhc.orig/emacs/mhc-xmas.el	Thu Aug 10 12:58:02 2000
+++ mhc/emacs/mhc-xmas.el	Mon Jul  1 01:27:17 2002
@@ -6,12 +6,19 @@
 ;; Revised: $Date: 2000/08/10 03:58:02 $
 
 (defcustom mhc-xmas-icon-alist 
-  '(("Conflict"   . "Conflict.xpm")
-    ("Private"    . "Private.xpm")
-    ("Holiday"    . "Holiday.xpm")
-    ("Todo"       . "CheckBox.xpm")
-    ("Done"       . "CheckedBox.xpm")
-    ("Link"       . "Link.xpm"))
+  '(("Conflict"    . "Conflict.xpm")
+    ("Private"     . "Private.xpm")
+    ("Holiday"     . "Holiday.xpm")
+    ("Todo"        . "CheckBox.xpm")
+    ("Done"        . "CheckedBox.xpm")
+    ("Link"        . "Link.xpm")
+    ("Anniversary" . "Anniversary.xpm")
+    ("Birthday"    . "Birthday.xpm")
+    ("Date"        . "Date.xpm")
+    ("Party"       . "Party.xpm")
+    ("Other"       . "Other.xpm")
+    ("Vacation"    . "Vacation.xpm")
+    ("Work"        . "Business.xpm"))
   "*Alist to define icons.
 Each element should have the form
  (NAME . ICON-FILE)