Re: Shorter/customized group names?

[David Abrahams <dave@boostpro.com>]

on Sat May 30 2009, David Engster <deng-AT-randomsample.de> wrote:

> So here's yet another version, based on your already modified one. It
> also uses an internal feature: the complete group name is saved in the
> text properties at the beginning of each group line. Since many internal
> Gnus functions use these, this isn't likely to change.
>
> (defun DE-collapse-group-names ()
>   (save-excursion
>     (let (previous-group current-group common-prefix
> 			 common-dot-count prefix suffix)
>       (goto-char (point-min))
>       (while (not (eobp))
> 	(when (setq current-group 
> 		    (get-text-property (point) 'gnus-group))
> 	  (setq current-group (symbol-name current-group))
> 	  (when (string-match "\\(.+\\):\\(.+\\)" current-group)
> 	    (setq current-group (match-string 2 current-group)))
> 	  (setq common-prefix (substring current-group 0 
> 					 (mismatch previous-group current-group))
> 		common-dot-count (count ?. common-prefix)
> 		prefix (mapconcat (lambda (x) x) 
> 				  (make-list common-dot-count "  .") "")
> 		suffix (and (string-match
> 			     (format "\\([^.]*[.]\\)\\{%d\\}\\(.+\\)" common-dot-count) 
> 			     current-group)
> 			    (match-string 2 current-group))
> 		previous-group current-group)
> 	  (unless (zerop (length prefix))
> 	    (when (search-forward current-group (point-at-eol) t)
> 	      (let ((props (text-properties-at (1- (point)))))
> 		(replace-match (apply 'propertize (concat prefix suffix)
> 				      props))))))
> 	(forward-line 1)))))
>
> (add-hook 'gnus-group-prepare-hook 'DE-collapse-group-names)
> (add-hook 'gnus-group-update-group-hook 'DE-collapse-group-names)
>
> This code assumes that you use "%G" in your group line format.
>
> I think you can even omit the last hook if you don't use a three pane
> buffer configuration.

Ah, but I do!  But this is fantastic; it really works.  Thank you for
all your help on this one!

-- 
Dave Abrahams
BoostPro Computing
http://www.boostpro.com