From 8658e683c4d68578339265e13002a8c76efefb42 Mon Sep 17 00:00:00 2001 From: ueno Date: Sun, 12 Dec 2004 08:18:42 +0000 Subject: [PATCH 1/1] * 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. --- lisp/COMPILE | 25 ++++++++++++ lisp/ChangeLog | 10 +++++ lisp/riece-command-next-channel.xpm | 67 ++++++++++++++++++++++++++++++ lisp/riece-command-previous-channel.xpm | 68 +++++++++++++++++++++++++++++++ 4 files changed, 170 insertions(+) create mode 100644 lisp/riece-command-next-channel.xpm create mode 100644 lisp/riece-command-previous-channel.xpm 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 + * 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 + * 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| ", +" |>>}}| ", +" |>,>>}|||||||||||||||||| ", +" |}[>>>>[[[}>>>>}[[[>>>>[[| ", +" |[[[[;;;>[[[[;;;;[[[[;;;>[| ", +" |-;[[[<;-;;<[<[--;;[[[<;;;;| ", +" |-===<<<<-=--<<<<-==-<<<<===| ", +"|<<=-=-<<<<====<<<<-===<<<<==| ", +"|:<<====<:<<====<:<<====<<<<=| ", +" |:::**=&<:::****::::**=&::::| ", +" |:::&***::::****::::&***:::| ", +" |:::&&&&_:::&&&&_:::&*&&_:| ", +" |__:&&&&____&&&&____&&&&_| ", +" |___%%|||||||||||||||||| ", +" |/__%| ", +" |^/^| ", +" |(^| ", +" |(| ", +" | ", +" ", +" ", +" ", +" ", +" "}; -- 1.7.10.4