Re: GroupLens: gnus-gl.el

["Dr. Pete Gieser" <pete@seldon.pog.ufl.edu>]

> Anyways, it takes some fiddling to install all those hooks and stuff,
> so I whipped up a summary minor mode; patch included below.  The idea
> being that one should just have to put `gnus-grouplens-mode' in
> `gnus-summary-mode-hook' to get the thing working.  One needs a bit
> more than this, though -- `gnus-startup-hook', for instance, has to be
> set before starting Gnus.

I've put 

(add-hook 'gnus-summary-mode-hook 'gnus-grouplens-mode)

in my .gnus, but gnus complains that gnus-grouplens-mode is never defined.
(symbol's definition is void)
What's up?

What do you mean "gnus-startup-hook has to be set before starting Gnus."?

> I haven't tested this patch at all, so it probably doesn't work.  

Probably just me.

> + (defvar gnus-grouplens-mode nil
> +   "Minor mode for providing a GroupLens interface in Gnus summary buffers.")
> + 
> + (defvar gnus-grouplens-mode-map nil)
> + 
> + (unless gnus-grouplens-mode-map
> +   (gnus-define-keys
> +    gnus-grouplens-mode-map
> +    "n" grouplens-next-unread-article
> +    "n" grouplens-next-unread-article
> +    "r" bbb-summary-rate-article
> +    "k" grouplens-score-thread
> +    "," grouplens-best-unread-article))
> + 
> + (defun gnus-grouplens-make-menu-bar ()
> +   (unless (boundp 'gnus-grouplens-menu)
> +     (easy-menu-define
> +      gnus-grouplens-menu gnus-grouplens-mode-map ""
> +      '("GroupLens"
> +        ["Login" bbb-login t]
> +        ["Rate" bbb-summary-rate-article t]
> +        ["Next article" grouplens-next-unread-article t]
> +        ["Best article" grouplens-best-unread-article t]
> +        ["Raise thread" grouplens-score-thread-sept t]
> +        ["Report bugs" gnus-gl-submit-bug-report t]))))
> + 
> + (defun gnus-grouplens-mode (&optional arg)
> +   "Minor mode for providing a GroupLens interface in Gnus summary buffers."
> +   (interactive "P")
> +   (when (eq major-mode 'gnus-summary-mode)
> +     (make-local-variable 'gnus-grouplens-mode)
> +     (setq gnus-grouplens-mode 
> + 	  (if (null arg) (not gnus-grouplens-mode)
> + 	    (> (prefix-numeric-value arg) 0)))
> +     (when gnus-grouplens-mode
> +       (add-hook 'gnus-startup-hook 'bbb-login)
> +       (add-hook 'gnus-exit-gnus-hook 'bbb-logout)
> +       (make-local-hook 'gnus-select-article-hook)
> +       (add-hook 'gnus-select-article-hook 'grouplens-do-time)
> +       (make-local-hook 'bbb-put-ratings)
> +       (add-hook 'gnus-exit-group-hook 'bbb-put-ratings)
> +       (setq gnus-score-find-score-files-function 'bbb-build-mid-scores-alist)
> + 
> +       ;; Set up the menu.
> +       (when (and menu-bar-mode
> + 		 (gnus-visual-p 'grouplens-menu 'menu))
> + 	(gnus-grouplens-make-menu-bar))
> +       (unless (assq 'gnus-grouplens-mode minor-mode-alist)
> + 	(push '(gnus-grouplens-mode " GroupLens") minor-mode-alist))
> +       (unless (assq 'gnus-grouplens-mode minor-mode-map-alist)
> + 	(push (cons 'gnus-grouplens-mode gnus-grouplens-mode-map)
> + 	      minor-mode-map-alist))
> +       (run-hooks 'gnus-grouplens-mode-hook))))
> + 
>   (provide 'gnus-gl)

-- 

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 *