Re: Highlight words in the subject line?

Re: Highlight words in the subject line?

[Ted Zlatanov]

On Wed, 05 Mar 2008 15:53:41 +0000 Bastien <bzg@altern.org> wrote: 

B> In the meanwhile, how can I access the group parameters from the
B> prepared summary, and use the value of highlight-words instead of a
B> default regexp?

(Gnus hacking digression)
Well, with `G p' you can set any parameter AFAIK and then you can do , but to get the full
effect you can do (see gnus.el for examples)

(gnus-define-group-parameter
 highlight-words
 :function-document
 "...."
 :variable-document
 "...."
 :variable-group gnus-group-parameter
 :parameter-type 'string
 :parameter-document "\
...")

That will automatically give you the function call
(gnus-parameter-highlight-words group-name)
(end of digression)

The good news is, there's already a "Highlight words" group/topic
parameter in gnus-cus.el :)

It's not defined as I show above, so you need to look at
gnus-group-highlight-words-alist and gnus-emphasis-alist to get it
working:

...
    (highlight-words
     (choice :tag "Highlight words"
             :value nil
             (repeat (list (regexp :tag "Highlight regexp")
                           (number :tag "Group for entire word" 0)
                           (number :tag "Group for displayed part" 0)
                           (symbol :tag "Face"
                                   gnus-emphasis-highlight-words))))
     "highlight regexps.
See `gnus-emphasis-alist'.")
...

Ted

Re: Highlight words in the subject line?

[Bastien]

Ted Zlatanov <tzz@lifelogs.com> writes:

> On Wed, 05 Mar 2008 15:53:41 +0000 Bastien <bzg@altern.org> wrote: 
>
> B> In the meanwhile, how can I access the group parameters from the
> B> prepared summary, and use the value of highlight-words instead of a
> B> default regexp?
>
> (Gnus hacking digression)

[...Great!...]

> (end of digression)

So finally the code is this:

--8<---------------cut here---------------start------------->8---
(add-hook 'gnus-summary-prepared-hook 'bzg-gnus-hl-sum-words)

(defun bzg-gnust-hl-sum-words nil
  "Highlight words in the summary buffer."
  (let* ((group gnus-newsgroup-name)
	 (hl-words
	  (gnus-group-fast-parameter group 'highlight-words t))
	 buffer-read-only hl-word)
    (dolist (hlw hl-words)
      (save-excursion
	(goto-char (point-min))
	(while (re-search-forward (car hlw) nil t)
	  (add-text-properties
	   (match-beginning 0) (match-end 0)
	   (list 'face (car (reverse hlw)))))))
    (setq buffer-read-only t)))
--8<---------------cut here---------------end--------------->8---

So that I spot the important message in the summary buffer depending on
the group parameter.  Neat.  Thanks again,

-- 
Bastien

Re: Highlight words in the subject line?

[Bastien]

(I sent this to ding@gnus.org, but It seems down.)

Hi,

I'm using this to highlight words in the subject line:

,----
| (add-hook 'gnus-summary-prepared-hook 'highlight-my-words)
| 
| (defun highlight-my-words nil
|   "Highlight some words."
|   (let (buffer-read-only)
|     (save-excursion
|       (goto-char (point-min))
|       (while (re-search-forward "ducation\\|OLPC\\|wiki" nil t)
| 	(add-text-properties 
| 	 (match-beginning 0) (match-end 0)
| 	 (list 'face my-summary-highlight-words)))))
|   (setq buffer-read-only t))
| 
| (setq my-summary-highlight-words '((t (:foreground "yellow"))))
`----

But this is only a workaround.  It would be nice to have it implemented
in Gnus, maybe with a new group parameter: `highlight-summary-words'.

In the meanwhile, how can I access the group parameters from the
prepared summary, and use the value of highlight-words instead of a
default regexp?

Thanks for any pointer,

-- 
Bastien