* riece-command-previous-channel.xpm: New file.

* riece-command-next-channel.xpm: New file.

* COMPILE (riece-icons): New variable.
(riece-install-icons): New function.
(riece-install): Install icons.
(riece-install-package): Ditto.

diff --git a/lisp/COMPILE b/lisp/COMPILE
index b759cbe..577417b 100644 (file)
--- a/lisp/COMPILE
+++ b/lisp/COMPILE
@@ -74,6 +74,10 @@
                riece-yank
                riece-toolbar))))
 
+(defun riece-icons
+  '(riece-command-previous-channel
+    riece-command-next-channel))
+
 (defun riece-compile-modules (modules)
   (let ((load-path (cons nil load-path)))
     (while modules
@@ -105,6 +109,18 @@
                         name)))))
     (setq modules (cdr modules))))
 
+(defun riece-install-icons (icons dest just-print)
+  (unless (or just-print (file-exists-p dest))
+    (make-directory dest t))
+  (while icons
+    (let ((name (symbol-name (car icons))))
+      (princ (format "%s.xpm -> %s\n" name dest))
+      (unless just-print
+       (copy-file (expand-file-name (concat name ".xpm"))
+                  (expand-file-name (concat name ".xpm") dest)
+                  t t)))
+    (setq icons (cdr icons))))
+
 (defun riece-install-just-print-p ()
   (let ((flag (getenv "MAKEFLAGS"))
        case-fold-search)
@@ -118,6 +134,10 @@
   (riece-install-modules
    riece-modules
    (expand-file-name "riece" (car command-line-args-left))
+   (riece-install-just-print-p))
+  (riece-install-icons
+   riece-icons
+   (expand-file-name "riece" (car command-line-args-left))
    (riece-install-just-print-p)))
 
 (defun riece-compile-package ()
@@ -136,6 +156,11 @@
           '(auto-autoloads custom-load))
    (expand-file-name "riece"
                     (expand-file-name "lisp" (car command-line-args-left)))
+   (riece-install-just-print-p))
+  (riece-install-icons
+   riece-icons
+   (expand-file-name "riece"
+                    (expand-file-name "lisp" (car command-line-args-left)))
    (riece-install-just-print-p)))
 
 (defun riece-test ()

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 1297066..52077ae 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,15 @@
 2004-12-12  Daiki Ueno  <ueno@unixuser.org>
 
+       * riece-command-previous-channel.xpm: New file.
+       * riece-command-next-channel.xpm: New file.
+
+       * COMPILE (riece-icons): New variable.
+       (riece-install-icons): New function.
+       (riece-install): Install icons.
+       (riece-install-package): Ditto.
+
+2004-12-12  Daiki Ueno  <ueno@unixuser.org>
+
        * riece-options.el (riece-addons): Add riece-toolbar.
 
        * riece-log.el (riece-log-flashback): Fixed regexp.

diff --git a/lisp/riece-command-next-channel.xpm b/lisp/riece-command-next-channel.xpm
new file mode 100644 (file)
index 0000000..713187d
--- /dev/null
+++ b/lisp/riece-command-next-channel.xpm
@@ -0,0 +1,67 @@
+/* XPM */
+static char * right_xpm[] = {
+"32 32 32 1",
+"      c #000200",
+".     c #090A06",
+"+     c #111310",
+"@     c #191A18",
+"#     c #212220",
+"$     c #282827",
+"%     c #2E2F2E",
+"&     c #363835",
+"*     c #3E403D",
+"=     c #464845",
+"-     c #4D4E4C",
+";     c #535453",
+">     c #5B5D5A",
+",     c #636562",
+"'     c #6A6C6A",
+")     c #828100",
+"!     c #747573",
+"~     c #8A8903",
+"{     c #7C7D7B",
+"]     c #939214",
+"^     c #9A970C",
+"/     c #9EA119",
+"(     c #A9AB27",
+"_     c #B4B532",
+":     c #C1C13F",
+"<     c #CDCD4B",
+"[     c #D8D855",
+"}     c #CACCC9",
+"|     c #E3E25F",
+"1     c #F0EE6B",
+"2     c #FDFA77",
+"3     c #FEFFFC",
+"                                ",
+"                                ",
+"                                ",
+"                                ",
+"                                ",
+"                     }          ",
+"                    },}         ",
+"                    }>'}        ",
+"                    }>>;}       ",
+"                    };,;;}      ",
+"   }}}}}}}}}}}}}}}}}}[;>;;}     ",
+"  }[<[<;;;;<<<[;;;;[<<<;;;;}    ",
+"  };<<<<---;<<<<----<<<<---;}   ",
+"  }=-<<<:-=--:<:<==--<<<:----}  ",
+"  }***::::=*==::::=**=::::***-} ",
+"  }*=*=::::****::::=***::::****}",
+"  }:****:_::****:_::****::::***}",
+"  }__&&*%:___&&&&____&&*%____&} ",
+"  }___%&&&____&&&&____%&&&___}  ",
+"  }(___%%%%(___%%%%(___%&%%(}   ",
+"  }%(((_%%%%((((%%%%((((%%%}    ",
+"   }}}}}}}}}}}}}}}}}}(((($}     ",
+"                    }#/](}      ",
+"                    }#$]}       ",
+"                    }@#}        ",
+"                    }@}         ",
+"                     }          ",
+"                                ",
+"                                ",
+"                                ",
+"                                ",
+"                                "};

diff --git a/lisp/riece-command-previous-channel.xpm b/lisp/riece-command-previous-channel.xpm
new file mode 100644 (file)
index 0000000..db42384
--- /dev/null
+++ b/lisp/riece-command-previous-channel.xpm
@@ -0,0 +1,68 @@
+/* XPM */
+static char * left_xpm[] = {
+"32 32 33 1",
+"      c None",
+".     c #000200",
+"+     c #090A06",
+"@     c #111310",
+"#     c #191A18",
+"$     c #212220",
+"%     c #282827",
+"&     c #2E2F2E",
+"*     c #363835",
+"=     c #3E403D",
+"-     c #464845",
+";     c #4D4E4C",
+">     c #535453",
+",     c #5B5D5A",
+"'     c #636562",
+")     c #6A6C6A",
+"!     c #828100",
+"~     c #747573",
+"{     c #8A8903",
+"]     c #7C7D7B",
+"^     c #939214",
+"/     c #9A970C",
+"(     c #9EA119",
+"_     c #A9AB27",
+":     c #B4B532",
+"<     c #C1C13F",
+"[     c #CDCD4B",
+"}     c #D8D855",
+"|     c #CACCC9",
+"1     c #E3E25F",
+"2     c #F0EE6B",
+"3     c #FDFA77",
+"4     c #FEFFFC",
+"                                ",
+"                                ",
+"                                ",
+"                                ",
+"                                ",
+"          |                     ",
+"         |)|                    ",
+"        |11|                    ",
+"       |111|                    ",
+"      |>>}}|                    ",
+"     |>,>>}||||||||||||||||||   ",
+"    |}[>>>>[[[}>>>>}[[[>>>>[[|  ",
+"   |[[[[;;;>[[[[;;;;[[[[;;;>[|  ",
+"  |-;[[[<;-;;<[<[--;;[[[<;;;;|  ",
+" |-===<<<<-=--<<<<-==-<<<<===|  ",
+"|<<=-=-<<<<====<<<<-===<<<<==|  ",
+"|:<<====<:<<====<:<<====<<<<=|  ",
+" |:::**=&<:::****::::**=&::::|  ",
+"  |:::&***::::****::::&***:::|  ",
+"   |:::&&&&_:::&&&&_:::&*&&_:|  ",
+"    |__:&&&&____&&&&____&&&&_|  ",
+"     |___%%||||||||||||||||||   ",
+"      |/__%|                    ",
+"       |^/^|                    ",
+"        |(^|                    ",
+"         |(|                    ",
+"          |                     ",
+"                                ",
+"                                ",
+"                                ",
+"                                ",
+"                                "};