From mboxrd@z Thu Jan 1 00:00:00 1970 X-Msuck: nntp://news.gmane.io/gmane.emacs.gnus.general/5186 Path: main.gmane.org!not-for-mail From: "Dr. Pete Gieser" Newsgroups: gmane.emacs.gnus.general Subject: Re: GroupLens: gnus-gl.el Date: Wed, 21 Feb 96 09:47:52 -0500 Message-ID: <9602211447.AA17096@pog.ufl.edu> References: NNTP-Posting-Host: coloc-standby.netfonds.no Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii X-Trace: main.gmane.org 1035145827 32082 80.91.224.250 (20 Oct 2002 20:30:27 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Sun, 20 Oct 2002 20:30:27 +0000 (UTC) Cc: ding@ifi.uio.no Return-Path: ding-request@ifi.uio.no Original-Received: from ifi.uio.no (ifi.uio.no [129.240.64.2]) by deanna.miranova.com (8.7.3/8.6.9) with SMTP id HAA11952 for ; Wed, 21 Feb 1996 07:50:15 -0800 Original-Received: from name.ufl.edu (root@name.ufl.edu [128.227.128.24]) by ifi.uio.no with ESMTP (8.6.11/ifi2.4) id ; Wed, 21 Feb 1996 15:47:51 +0100 Original-Received: from seldon.pog.ufl.edu (seldon.pog.ufl.edu [128.227.187.103]) by name.ufl.edu (8.6.10/8.6.10) with SMTP id JAA27886; Wed, 21 Feb 1996 09:47:49 -0500 Original-Received: by pog.ufl.edu (AIX 3.2/UCB 5.64/4.03) id AA17096; Wed, 21 Feb 1996 09:47:54 -0500 X-Mailer: exmh version 1.6.5 12/11/95 X-Url: http://www.stat.ufl.edu/users/peterg/ Original-To: larsi@ifi.uio.no (Lars Magne Ingebrigtsen) In-Reply-To: (Your message of 16 Feb 96 19:28:07 N.) Xref: main.gmane.org gmane.emacs.gnus.general:5186 X-Report-Spam: http://spam.gmane.org/gmane.emacs.gnus.general:5186 > 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 *