* 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 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,15 @@
+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.
 2003-08-26  Daiki Ueno  <ueno@unixuser.org>
 
        * riece-unread.el: Require 'riece-highlight when compiling.

diff --git a/lisp/riece-globals.el b/lisp/riece-globals.el
index a260377..7488e7b 100644 (file)
--- 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.")
   "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.")
   "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 (file)
--- a/lisp/riece-highlight.el
+++ b/lisp/riece-highlight.el
@@ -179,20 +179,37 @@
   :type '(repeat (list string))
   :group 'riece-highlight)
 
   :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)
 
 (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))
 (defface riece-channel-list-current-face
   '((((class color)
       (background dark))

-     (:foreground "PaleGreen" :underline t))
+     (:foreground "PaleTurquoise" :underline t))

     (((class color)
       (background light))
     (((class color)
       (background light))

-     (:foreground "DarkGreen" :underline t))
+     (:foreground "ForestGreen" :underline t))

     (t
     (t

-     (:underline t)))
+     ()))

   "Face used for displaying the current channel."
   :group 'riece-highlight-faces)
 
   "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))
   '(("^[ 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)
   "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 (file)
--- 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)
 
   :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)
   "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 (file)
--- a/lisp/riece-unread.el
+++ b/lisp/riece-unread.el
@@ -50,12 +50,12 @@
 (defface riece-channel-list-unread-face
   '((((class color)
       (background dark))
 (defface riece-channel-list-unread-face
   '((((class color)
       (background dark))

-     (:foreground "pink"))
+     (:foreground "orange"))

     (((class color)
       (background light))
      (:foreground "firebrick"))
     (t
     (((class color)
       (background light))
      (:foreground "firebrick"))
     (t

-     ()))
+     (:bold t)))

   "Face used for displaying unread channels."
   :group 'riece-highlight-faces)
 
   "Face used for displaying unread channels."
   :group 'riece-highlight-faces)