[XWEM]: [PATCH] Additions to `xwem-icons-list'

[Steve Youngs]

Thought this would be nice...

--- xwem-icons.el.orig  2004-11-18 12:37:21.000000000 +1000
+++ xwem-icons.el       2004-11-27 16:37:48.000000000 +1000
@@ -55,8 +55,7 @@
 
 ;;;###autoload
 (defcustom xwem-icons-list
-  '(("mini-term.xpm" (class-inst ".term") (class-name ".Term"))
-    ("mini-display.xpm" (class-inst "^Terminal$") (class-name "^Terminal$"))
+  '(("mini-display.xpm" (class-inst "^Terminal$") (class-name "^Terminal$"))
     ("mini-clock.xpm" (application "xclock"))
     ("mini-measure.xpm" (application "xload"))
     ("mini-calc.xpm"
@@ -92,6 +91,16 @@
          (and (application "xemacs")
               (name "\\.py"))))
 
+    ;; ICQ
+    ("mini-icq.xpm"
+     (or (buffer-major-mode eicq-buddy-mode)
+        (buffer-major-mode eicq-log-mode)
+        (and (application "xemacs")
+             (name ".*\\*Status\\*.*"))
+        (name ".*[LlMmVv][Ii][Cc][Qq].*")))
+
+    ("mini-term.xpm" (class-inst ".term") (class-name ".Term"))
+
     ;; MISC
     ("mini-firefox.xpm" (application "firefox"))
     ("mini-mozilla.xpm" (application "mozilla"))
@@ -102,6 +111,7 @@
 
     ("mini-sh1.xpm"
      (or (buffer-major-mode eshell-mode)
+        (buffer-major-mode shell-mode)
          (buffer-major-mode term-mode)
          (buffer-major-mode terminal-mode)
          (and (class-inst "x?console")
@@ -119,6 +129,7 @@
     ("mini-zoom.xpm" (or (class-inst "^Xmag$")
                          (name "^Lupe$")))
     ("mini-graph.xpm" (application "gnuplot"))
+    ("mini-links.xpm" (name "Links"))
 
     ("mini-x2.xpm" (eval t)))           ; any other
   "Icons matching list in `xwem-manage-list' format."


-- 
|---<Steve Youngs>---------------<GnuPG KeyID: A94B3003>---|
|                   Te audire no possum.                   |
|             Musa sapientum fixa est in aure.             |
|----------------------------------<address@hidden>---|

pgpZ3S_ALnmFS.pgp
Description: PGP signature