From: ueno <ueno>
Date: Sun, 12 Dec 2004 08:18:42 +0000 (+0000)
Subject: * riece-command-previous-channel.xpm: New file.
X-Git-Tag: riece-1_0_7~90
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8658e683c4d68578339265e13002a8c76efefb42;p=elisp%2Friece.git

* 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
--- 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
--- 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
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
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|                    ",
+"      |>>}}|                    ",
+"     |>,>>}||||||||||||||||||   ",
+"    |}[>>>>[[[}>>>>}[[[>>>>[[|  ",
+"   |[[[[;;;>[[[[;;;;[[[[;;;>[|  ",
+"  |-;[[[<;-;;<[<[--;;[[[<;;;;|  ",
+" |-===<<<<-=--<<<<-==-<<<<===|  ",
+"|<<=-=-<<<<====<<<<-===<<<<==|  ",
+"|:<<====<:<<====<:<<====<<<<=|  ",
+" |:::**=&<:::****::::**=&::::|  ",
+"  |:::&***::::****::::&***:::|  ",
+"   |:::&&&&_:::&&&&_:::&*&&_:|  ",
+"    |__:&&&&____&&&&____&&&&_|  ",
+"     |___%%||||||||||||||||||   ",
+"      |/__%|                    ",
+"       |^/^|                    ",
+"        |(^|                    ",
+"         |(|                    ",
+"          |                     ",
+"                                ",
+"                                ",
+"                                ",
+"                                ",
+"                                "};