-(defun riece-highlight-schedule-turn-on-font-lock ()
- (add-hook 'riece-channel-mode-hook
- 'riece-highlight-turn-on-font-lock)
- (add-hook 'riece-others-mode-hook
- 'riece-highlight-turn-on-font-lock)
- (add-hook 'riece-dialogue-mode-hook
- 'riece-highlight-turn-on-font-lock))
+(defface riece-channel-list-default-face
+ '((t ()))
+ "Face used for displaying channels."
+ :group 'riece-highlight-faces)
+(defvar riece-channel-list-default-face 'riece-channel-list-default-face)
+
+(defface riece-channel-list-current-face
+ '((((class color)
+ (background dark))
+ (:foreground "turquoise" :underline t))
+ (((class color)
+ (background light))
+ (:foreground "SeaGreen" :underline t))
+ (t
+ ()))
+ "Face used for displaying the current channel."
+ :group 'riece-highlight-faces)
+(defvar riece-channel-list-current-face 'riece-channel-list-current-face)
+
+(defcustom riece-channel-list-mark-face-alist
+ '((?* . riece-channel-list-current-face))
+ "An alist mapping marks on riece-channel-list-buffer to faces."
+ :type 'list
+ :group 'riece-highlight)
+
+(defcustom riece-channel-list-font-lock-keywords
+ '(("^[ 0-9][0-9]:\\(.\\)\\(.*\\)"
+ (2 (or (cdr (assq (aref (match-string 1) 0)
+ riece-channel-list-mark-face-alist))
+ riece-channel-list-default-face))))
+ "Default expressions to highlight in riece-channel-list-mode."
+ :type '(repeat (list string))
+ :group 'riece-highlight)
+
+(unless (riece-facep 'riece-modeline-current-face)
+ (make-face 'riece-modeline-current-face
+ "Face used for displaying the current channel in modeline.")
+ (if (featurep 'xemacs)
+ (set-face-parent 'riece-modeline-current-face 'modeline))
+ (set-face-foreground 'riece-modeline-current-face
+ (face-foreground 'riece-channel-list-current-face)))
+
+(defvar riece-highlight-enabled nil)