Re: Summary minor mode for Emacs-hacking groups?

[Eric Abrahamsen <eric@ericabrahamsen.net>]

Tassilo Horn <tsdh@gnu.org> writes:

> Tassilo Horn <tsdh@gnu.org> writes:
>
>> Wouldn't just activating bug-reference-mode in gnus-article-mode with
>>
>>   (setq-local bug-reference-url-format
>>               "https://debbugs.gnu.org/cgi/bugreport.cgi?bug=%s")
>>
>> deal with at least emacs bug numbers (including all GNU package bug
>> reports who also use GNU debbugs)?  Of course, that would just produce
>> clickable links and not Gnus buttons but it is readily available...

I decided what I'd do is write the absolute minimum amount of code that
did exactly what I want, and then see if it could be refactored into
`bug-reference-mode'. The code below does pretty much everything, which
is sort of amazing. It's terrible code in that everything's hard-coded
and there's no error handling and no window management, but it works
remarkably well. It remains to be seen if there are enough similarities
with `bug-reference-mode' to try to add it in. `bug-reference-mode' is
very much built around overlays containing urls.

(defun gnus-buggy-open-bug (bug-str)
"Open bug number BUG-STR."
 (let ((bug-num (string-to-number bug-str)))
(unless (zerop bug-num)
(debbugs-gnu-bugs bug-num))))

(defun gnus-buggy-visit-commit (commit)
  "Visit commit with hash COMMIT using `magit'."
  (magit-status source-directory)
  (magit-show-commit commit))

(push '("\\([Bb]ug#\\([[:digit:]]+\\)\\)"
	1 (string-match-p "gmane\\.emacs" gnus-newsgroup-name)
	gnus-buggy-open-bug 2)
      gnus-button-alist)

(push '("[0-9,a-f]\\{7,40\\}"
	0 (string-match-p "gmane\\.emacs" gnus-newsgroup-name)
	gnus-buggy-visit-commit 0)
      gnus-button-alist)