From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/40786 Path: main.gmane.org!not-for-mail From: Bill White Newsgroups: gmane.emacs.gnus.general Subject: Re: The old high low face gambit Date: Sat, 08 Dec 2001 18:00:52 -0600 Sender: owner-ding@hpc.uh.edu Message-ID: References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1035176283 2758 80.91.224.250 (21 Oct 2002 04:58:03 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Mon, 21 Oct 2002 04:58:03 +0000 (UTC) Cc: ding@gnus.org Return-Path: Original-Received: (qmail 6938 invoked from network); 8 Dec 2001 23:55:27 -0000 Original-Received: from malifon.math.uh.edu (mail@129.7.128.13) by mastaler.com with SMTP; 8 Dec 2001 23:55:27 -0000 Original-Received: from sina.hpc.uh.edu ([129.7.128.10] ident=lists) by malifon.math.uh.edu with esmtp (Exim 3.20 #1) id 16CrIU-0000ky-00; Sat, 08 Dec 2001 17:54:22 -0600 Original-Received: by sina.hpc.uh.edu (TLB v0.09a (1.20 tibbs 1996/10/09 22:03:07)); Sat, 08 Dec 2001 17:54:10 -0600 (CST) Original-Received: from sclp3.sclp.com (qmailr@sclp3.sclp.com [209.196.61.66]) by sina.hpc.uh.edu (8.9.3/8.9.3) with SMTP id RAA21832 for ; Sat, 8 Dec 2001 17:53:57 -0600 (CST) Original-Received: (qmail 6894 invoked by alias); 8 Dec 2001 23:54:05 -0000 Original-Received: (qmail 6889 invoked from network); 8 Dec 2001 23:54:04 -0000 Original-Received: from wri-dns0.wolfram.com (HELO wolfram.com) (140.177.205.10) by gnus.org with SMTP; 8 Dec 2001 23:54:04 -0000 Original-Received: from localhost.localdomain (term66.wolfram.com [140.177.117.37]) by wolfram.com (8.11.2/8.11.2) with ESMTP id fB8Ns2524743; Sat, 8 Dec 2001 17:54:02 -0600 Original-Received: (from billw@localhost) by localhost.localdomain (8.9.3/8.9.3) id SAA03474; Sat, 8 Dec 2001 18:00:53 -0600 X-Authentication-Warning: localhost.localdomain: billw set sender to billw@wolfram.com using -f Original-To: Harry Putnam X-Face: #t7>yWrgv~u6*cn3(6X"z={I/l%nH{(W:#WS-kA|s(Kcu`,=9qGWth&; @\^1U5s"'~/hhBr)ZU0<$?W:C33QJ}$t)m`&?8POaq*>5@/7xEPo!>gb;9Z[x)n%:yE#{A)6rNV_Ow ;vCO&LS=@3c=j'6@^T#Mic6zfW|Ehj0~2;jG9Df+DK'h`bTj>XsArg2CH`jW whq]J?SsvWnqa,{.C\,j]u*L:z6/2am5n5Q~6vC0fKPAMa7?Y6:eC.ThbVX X-Liturgical-Date: Solemnity: The Immaculate Conception of the Blessed Virgin Mary Original-Lines: 107 Precedence: list X-Majordomo: 1.94.jlt7 Xref: main.gmane.org gmane.emacs.gnus.general:40786 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:40786 On the Memorial of Saint Ambrose, 2001, at 14:23, Harry Putnam said: > How can I get finer granularity than just `high' face and `low' face > on the basis of scoring? > > I mean something like a face for scores of 1, different for 5, > different yet above 10 etc. (I have the default score set to 1) I tried this for a while but couldn't get a meaningful *and* pleasing *and* easy-to-read combination of colors. After a while it just bugged me and I wound up ditching scoring altogether. At any rate, here's the code I used: ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; ;; trying different faces for different scores (copy-face 'default 'my-gnus-face-50) (set-face-foreground 'my-gnus-face-50 "gray50") (copy-face 'default 'my-gnus-face-55) (set-face-foreground 'my-gnus-face-55 "gray55") (copy-face 'default 'my-gnus-face-60) (set-face-foreground 'my-gnus-face-60 "gray60") (copy-face 'default 'my-gnus-face-65) (set-face-foreground 'my-gnus-face-65 "gray65") (copy-face 'default 'my-gnus-face-70) (set-face-foreground 'my-gnus-face-70 "gray70") (copy-face 'default 'my-gnus-face-75) (set-face-foreground 'my-gnus-face-75 "gray75") (copy-face 'default 'my-gnus-face-80) (set-face-foreground 'my-gnus-face-80 "gray80") (copy-face 'default 'my-gnus-face-85) (set-face-foreground 'my-gnus-face-85 "gray85") (copy-face 'default 'my-gnus-face-90) (set-face-foreground 'my-gnus-face-90 "gray90") (copy-face 'default 'my-gnus-face-95) (set-face-foreground 'my-gnus-face-95 "gray95") (copy-face 'default 'my-gnus-face-100) (set-face-foreground 'my-gnus-face-100 "gray100") (setq gnus-summary-highlight '( ((and (<= score 100) (> score 0)) . my-gnus-face-80) ((and (<= score 200) (> score 100)) . my-gnus-face-85) ((and (<= score 300) (> score 200)) . my-gnus-face-90) ((and (<= score 400) (> score 300)) . my-gnus-face-95) ((> score 400) . my-gnus-face-100) ((= mark gnus-canceled-mark) . gnus-summary-cancelled-face) ((and (> score default) (or (= mark gnus-dormant-mark) (= mark gnus-ticked-mark))) . gnus-summary-high-ticked-face) ((and (< score default) (or (= mark gnus-dormant-mark) (= mark gnus-ticked-mark))) . gnus-summary-low-ticked-face) ((or (= mark gnus-dormant-mark) (= mark gnus-ticked-mark)) . gnus-summary-normal-ticked-face) ((and (> score default) (= mark gnus-ancient-mark)) . gnus-summary-high-ancient-face) ((and (< score default) (= mark gnus-ancient-mark)) . gnus-summary-low-ancient-face) ((= mark gnus-ancient-mark) . gnus-summary-normal-ancient-face) ((and (> score default) (= mark gnus-unread-mark)) . gnus-summary-high-unread-face) ((and (< score default) (= mark gnus-unread-mark)) . gnus-summary-low-unread-face) ((= mark gnus-unread-mark) . gnus-summary-normal-unread-face) ((and (> score default) (memq mark (list gnus-downloadable-mark gnus-undownloaded-mark))) . gnus-summary-high-unread-face) ((and (< score default) (memq mark (list gnus-downloadable-mark gnus-undownloaded-mark))) . gnus-summary-low-unread-face) ((and (memq mark (list gnus-downloadable-mark gnus-undownloaded-mark)) (memq article gnus-newsgroup-unreads)) . gnus-summary-normal-unread-face) ((memq mark (list gnus-downloadable-mark gnus-undownloaded-mark)) . gnus-summary-normal-read-face) ((> score default) . gnus-summary-high-read-face) ((< score default) . gnus-summary-low-read-face) (t . gnus-summary-normal-read-face))) Cheers - bw -- Bill White . billw@wolfram.com . http://members.wri.com/billw "No ma'am, we're musicians."