From: ueno <ueno>
Date: Tue, 26 Aug 2003 02:54:14 +0000 (+0000)
Subject: * riece-unread.el (riece-channel-list-unread-face): Change colors.
X-Git-Tag: riece-0_1_1~15
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0e096d49614fae1605809a04aa081de602e6ec79;p=elisp%2Friece.git

* riece-unread.el (riece-channel-list-unread-face): Change colors.

* riece-options.el (riece-addons): Enable riece-unread by default.

* riece-highlight.el (riece-channel-list-current-face): New variable.
(riece-channel-list-default-face): New face.

* riece-globals.el (riece-channel-list-buffer): Strip leading
whitespace.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4d02ae7..d14b775 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,17 @@
 2003-08-26  Daiki Ueno  <ueno@unixuser.org>
 
+	* riece-unread.el (riece-channel-list-unread-face): Change colors.
+
+	* riece-options.el (riece-addons): Enable riece-unread by default.
+
+	* riece-highlight.el (riece-channel-list-current-face): New variable.
+	(riece-channel-list-default-face): New face.
+
+	* riece-globals.el (riece-channel-list-buffer): Strip leading
+	whitespace.
+
+2003-08-26  Daiki Ueno  <ueno@unixuser.org>
+
 	* riece-unread.el: Require 'riece-highlight when compiling.
 	(riece-unread): New custom group.
 	(riece-channel-list-unread-face): New variable.
diff --git a/lisp/riece-globals.el b/lisp/riece-globals.el
index a260377..7488e7b 100644
--- a/lisp/riece-globals.el
+++ b/lisp/riece-globals.el
@@ -132,7 +132,7 @@ Local to the channel buffers.")
   "Name of channel message buffer.")
 (defvar riece-channel-buffer-format "*Channel:%s*"
   "Format of channel message buffer.")
-(defvar riece-channel-list-buffer " *Channels*"
+(defvar riece-channel-list-buffer "*Channels*"
   "Name of channel list buffer.")
 (defvar riece-user-list-buffer " *Users*"
   "Name of user list buffer.")
diff --git a/lisp/riece-highlight.el b/lisp/riece-highlight.el
index a9e31db..e984c93 100644
--- a/lisp/riece-highlight.el
+++ b/lisp/riece-highlight.el
@@ -179,20 +179,37 @@
   :type '(repeat (list string))
   :group 'riece-highlight)
 
+(defcustom riece-channel-list-default-face 'riece-channel-list-default-face
+  "Face used for displaying channels."
+  :type 'face
+  :group 'riece-highlight-faces)
+
 (defcustom riece-channel-list-current-face 'riece-channel-list-current-face
   "Face used for displaying the current channel."
   :type 'face
   :group 'riece-highlight-faces)
 
+(defface riece-channel-list-default-face
+  '((((class color)
+      (background dark))
+     (:foreground "turquoise"))
+    (((class color)
+      (background light))
+     (:foreground "CadetBlue4"))
+    (t
+     ()))
+  "Face used for displaying channels."
+  :group 'riece-highlight-faces)
+
 (defface riece-channel-list-current-face
   '((((class color)
       (background dark))
-     (:foreground "PaleGreen" :underline t))
+     (:foreground "PaleTurquoise" :underline t))
     (((class color)
       (background light))
-     (:foreground "DarkGreen" :underline t))
+     (:foreground "ForestGreen" :underline t))
     (t
-     (:underline t)))
+     ()))
   "Face used for displaying the current channel."
   :group 'riece-highlight-faces)
 
@@ -206,7 +223,7 @@
   '(("^[ 0-9][0-9]:\\(.\\)\\(.*\\)"
      (2 (or (cdr (assq (aref (match-string 1) 0)
 		       riece-channel-list-mark-face-alist))
-	    'default))))
+	    riece-channel-list-default-face))))
   "Default expressions to highlight in riece-channel-list-mode."
   :type '(repeat (list string))
   :group 'riece-highlight)
diff --git a/lisp/riece-options.el b/lisp/riece-options.el
index 371ada3..897c876 100644
--- a/lisp/riece-options.el
+++ b/lisp/riece-options.el
@@ -100,7 +100,7 @@ way is to put Riece variables on .emacs or file loaded from there."
   :type '(repeat (file :tag "Initialization File"))
   :group 'riece-options)
 
-(defcustom riece-addons '(riece-highlight riece-ctcp)
+(defcustom riece-addons '(riece-highlight riece-ctcp riece-unread)
   "Add-ons insinuated into Riece."
   :type '(repeat symbol)
   :group 'riece-options)
diff --git a/lisp/riece-unread.el b/lisp/riece-unread.el
index cbeb005..5ba652f 100644
--- a/lisp/riece-unread.el
+++ b/lisp/riece-unread.el
@@ -50,12 +50,12 @@
 (defface riece-channel-list-unread-face
   '((((class color)
       (background dark))
-     (:foreground "pink"))
+     (:foreground "orange"))
     (((class color)
       (background light))
      (:foreground "firebrick"))
     (t
-     ()))
+     (:bold t)))
   "Face used for displaying unread channels."
   :group 'riece-highlight-faces)