gnus-group-highlight

gnus-group-highlight

[Lars Magne Ingebrigtsen]

I've now moved the definition of this variable to gnus-cus.el so that
you can use custom to, uhm, customize it.  However, the defaults are
rather boring, especially the ones using light backgrounds:

	     `(((not mailp) .
		,(custom-face-lookup "ForestGreen" nil nil t nil nil))
	       ((zerop unread) .
		,(custom-face-lookup "Blue" nil nil t nil nil))))))

That's just two (2) different colors.  In fact, I think this was
something I wrote as a test when I did the group highlighting code. 

Does anybody have a nicer value for this that they'd like to
contribute?  The variables you have to play with include:

group: The name of the group.
unread: The number of unread articles in the group.
method: The select method used.
mailp: Whether it's a mail group or not.
level: The level of the group.
score: The score of the group.
ticked: The number of ticked articles.

-- 
  "Yes.  The journey through the human heart 
     would have to wait until some other time."

Re: gnus-group-highlight

[Steven L Baur]

>>>>> "Lars" == Lars Magne Ingebrigtsen <larsi@ifi.uio.no> writes:

Lars> I've now moved the definition of this variable to gnus-cus.el so that
Lars> you can use custom to, uhm, customize it.
...
Lars> Does anybody have a nicer value for this that they'd like to
Lars> contribute?  The variables you have to play with include:

I'm currently using a scheme based on subscription levels with
relative shading indicating the level and distinct colors between mail
& Usenet groups.  It looks like this: (against XEmacs 19.14 beta).
	http://www.miranova.com/~steve/gnus-topics.gif

These are probably not optimum colors, but it has ``fruit salad''
coloring, which I like.

(setq gnus-group-highlight
      (cond 
       ((not (eq gnus-display-type 'color))
	'((mailp . bold)
	  ((= unread 0) . italic)))
       ((eq gnus-background-mode 'dark)
	`(((not mailp) .
	   ,(custom-face-lookup "ForestGreen" nil nil t nil nil))
	  ((zerop unread) .
	   ,(custom-face-lookup "Blue" nil nil t nil nil))))
       (t
	`(
	  ((and (not mailp) (<= level 3)) .
	   ,(custom-face-lookup "ForestGreen" nil nil t nil nil))
	  ((and (not mailp) (eq level 4)) .
	   ,(custom-face-lookup "DarkGreen" nil nil t nil nil))
	  ((and (not mailp) (eq level 5)) .
	   ,(custom-face-lookup "Red" nil nil t nil nil))
	  ((and (eq (car method) 'nnml) (eq level 1)) .
	   ,(custom-face-lookup "DeepPink3" nil nil t nil nil))
	  ((and (eq (car method) 'nnml) (eq level 2)) .
	   ,(custom-face-lookup "HotPink3" nil nil t nil nil))
	  ((and (eq (car method) 'nnml) (eq level 3)) .
	   ,(custom-face-lookup "dark magenta" nil nil t nil nil))
	  ((and (eq (car method) 'nnml) (eq level 4)) .
	   ,(custom-face-lookup "DeepPink4" nil nil t nil nil))
	  ((and (eq (car method) 'nnml) (> level 4)) .
	   ,(custom-face-lookup "DarkOrchid4" nil nil t nil nil))
))))

-- 
steve@miranova.com baur
Unsolicited commercial e-mail will be proofread for $250/hour.
Andrea Seastrand: For your vote on the Telecom bill, I will vote for anyone
except you in November.

Re: gnus-group-highlight

[Greg Thompson]

>"LMI" == Lars Magne Ingebrigtsen <larsi@ifi.uio.no> writes:

  LMI> Does anybody have a nicer value for this that they'd like to
  LMI> contribute?  The variables you have to play with include:

here's what i use:

(setq gnus-group-highlight `(((> unread 99) . ,(custom-face-lookup "OrangeRed" nil nil nil nil nil))
			     ((> unread 19) . ,(custom-face-lookup "PaleGreen" nil nil nil nil nil))))

all groups are white by detault (dark background) - green if they've
got 20 or more message, and red if they've got 100 or more.  tells me
the info i want to know...
-- 
		-greg			  ego is beast and ego is evil
						   but ego knows best,
						  at least she says so
						      -the god machine

Re: gnus-group-highlight

[Kees de Bruin]

>>>>> "Lars" == Lars Magne Ingebrigtsen <larsi@ifi.uio.no> writes:

 Lars> I've now moved the definition of this variable to gnus-cus.el so that
 Lars> you can use custom to, uhm, customize it.  However, the defaults are
 Lars> rather boring, especially the ones using light backgrounds:

Is there going to be any support for those with a grayscale monitor. I have
been using Gnus on both a color and grayscale screen, but the colors I have
are not very nice on the grayscale screen and vica versa.

Kind regards,

Kees.

-- 
 _      _ _
| | ___| | |_   Kees de Bruin              mailto: kees_de_bruin@tasking.nl
| |/ / _ | _ \
|_|\_\___|___/  Tasking Software BV, The Netherlands, tel. +31-33-455 85 84

It does not matter if you fall down as long as you pick up something from
the floor while you get up                             -Avery's Observation

Re: gnus-group-highlight

[Lars Magne Ingebrigtsen]

kees_de_bruin@tasking.nl (Kees de Bruin) writes:

> Is there going to be any support for those with a grayscale
> monitor. I have been using Gnus on both a color and grayscale
> screen, but the colors I have are not very nice on the grayscale
> screen and vica versa.

It's hard to find defaults that work on all display types.  But there
is no separate grayscale support planned, no.

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@ifi.uio.no * Lars Ingebrigtsen

gnus-group-highlight

[Dr. Pete Gieser]

Can someone explain to me how to configure this?  At present group names
are dark green on a dark background.

Pete
-- 

Peter Gieser, Ph.D.                    Phone:  (904) 392-5198 ext. 441
POG Statistical Office                 FAX:    (904) 392-8162
104 North Main Street  #600            Email:  pete@pog.ufl.edu
Gainesville, FL 32601                  

                 * Send me email to recieve my PGP public key *

Re: gnus-group-highlight

[Greg Thompson]

>"PG" == "Dr Pete Gieser" <pete@seldon.pog.ufl.edu> writes:

  PG> Can someone explain to me how to configure this?  At present
  PG> group names are dark green on a dark background.

i've set mine to:

(setq gnus-group-highlight `(((> unread 99) . ,(custom-face-lookup "OrangeRed" nil nil nil nil nil))
			     ((> unread 19) . ,(custom-face-lookup "PaleGreen" nil nil nil nil nil))))

that makes groups with 20 or more messages show up green, and groups
with more 100 or more show up red.  except for not coloring
unsubscribed groups differently, this gives the same results as joe
h's old font-lock keywords for the group buffer, which i'd kinda
gotten used to.

		-greg