From: "Andreas Röhler" <andreas.roehler@easy-emacs.de>
To: Michael Albinus <michael.albinus@gmx.de>
Cc: Bastien <bzg@altern.org>, emacs-orgmode <emacs-orgmode@gnu.org>
Subject: Re: bug-tracker
Date: Fri, 22 Feb 2013 20:56:54 +0100 [thread overview]
Message-ID: <5127CD86.8030106@easy-emacs.de> (raw)
In-Reply-To: <8738woo0y7.fsf@gmx.de>
[-- Attachment #1: Type: text/plain, Size: 890 bytes --]
Am 22.02.2013 15:52, schrieb Michael Albinus:
> Andreas Röhler <andreas.roehler@easy-emacs.de> writes:
>
>> Hi folks,
>
> Hi,
>
>> What about using some of the tools around?
>>
>> Mirroring the stuff at github would provide a tracker just by the way...
>
> Or you use debbugs.gnu.org, which hosts the Emacs bugtracker. Some of
> the org bugs will arrive there anyway, from people using "M-x
> report-emacs-bug".
>
> <advertisement>
> And there are debbugs.el and debbugs-gnu.el, which allow access to the
> bugs from inside Emacs. I could imagine a debbugs-org.el as well, which
> translates bugs into org tasks, or whatever.
> </advertisement>
>
>> Cheers,
>>
>> Andreas
>
> Best regards, Michael (author of debbugs.el, coauthor of debbugs-gnu.el)
>
Fine for me.
With exception of the noise, M-x report-emacs-bugs tends to send.
Herewith is a slim version, adapted to org-mode AFAIU
[-- Attachment #2: report-org-mode-bug.el --]
[-- Type: text/x-emacs-lisp, Size: 5454 bytes --]
(defun report-org-mode-bug (topic &optional recent-keys)
"Report a bug in GNU Emacs.
Prompts for bug subject. Leaves you in a mail buffer."
;; This strange form ensures that (recent-keys) is the value before
;; the bug subject string is read.
(interactive (reverse (list (recent-keys) (concat "org-mode; "
(read-string "Bug Subject: ")
))))
;; The syntax `version;' is preferred to `[version]' because the
;; latter could be mistakenly stripped by mailing software.
(if (eq system-type 'ms-dos)
(setq topic (concat emacs-version "; " topic))
(when (string-match "^\\(\\([.0-9]+\\)*\\)\\.[0-9]+$" emacs-version)
(setq topic (concat (match-string 1 emacs-version) "; " topic))))
(let ((from-buffer (current-buffer))
;; Put these properties on semantically-void text.
;; report-emacs-bug-hook deletes these regions before sending.
(prompt-properties '(field emacsbug-prompt
intangible but-helpful
rear-nonsticky t))
(can-insert-mail (or (report-emacs-bug-can-use-xdg-email)
(report-emacs-bug-can-use-osx-open)))
user-point message-end-point)
(setq message-end-point
(with-current-buffer (get-buffer-create "*Messages*")
(point-max-marker)))
(compose-mail report-emacs-bug-address topic)
;; The rest of this does not execute if the user was asked to
;; confirm and said no.
(when (eq major-mode 'message-mode)
;; Message-mode sorts the headers before sending. We sort now so
;; that report-emacs-bug-orig-text remains valid. (Bug#5178)
(message-sort-headers)
;; Stop message-mode stealing the properties we will add.
(set (make-local-variable 'message-strip-special-text-properties) nil))
(rfc822-goto-eoh)
(forward-line 1)
;; Move the mail signature to the proper place.
(let ((signature (buffer-substring (point) (point-max)))
(inhibit-read-only t))
(delete-region (point) (point-max))
(insert signature)
(backward-char (length signature)))
;; (with-help-window "*help-org-mode-bug*" (insert (concat "Please describe exactly what actions triggered the bug, and\n"
;; "the precise symptoms of the bug. If you can, give a recipe\n"
;; "starting from `emacs -Q':\n\n"
;;
;; "If Emacs crashed, and you have the Emacs process in the gdb debugger,\n"
;; "please include the output from the following gdb commands:\n"
;; " `bt full' and `xbacktrace'.\n"
;; )))
;; (let ((debug-file (expand-file-name "DEBUG" data-directory)))
;; (if (file-readable-p debug-file)
;; (insert "For information about debugging Emacs, please read the file\n"
;; debug-file ".\n")
;; ))
(add-text-properties (save-excursion
(rfc822-goto-eoh)
(line-beginning-position 2))
(point)
prompt-properties)
(setq user-point (point))
(insert "\n\n")
(add-text-properties (1+ user-point) (point) prompt-properties)
(insert "\n\nIn " (emacs-version) "\n")
(when (and (boundp 'emacs-bzr-version)(stringp emacs-bzr-version))
(insert "Bzr revision: " emacs-bzr-version "\n"))
(insert "\n")
(insert (format "Major mode: %s\n"
(format-mode-line
(buffer-local-value 'mode-name from-buffer)
nil nil from-buffer)))
(insert "\n")
;; This is so the user has to type something in order to send easily.
(use-local-map (nconc (make-sparse-keymap) (current-local-map)))
(define-key (current-local-map) "\C-c\C-i" 'info-emacs-bug)
(if can-insert-mail
(define-key (current-local-map) "\C-cm"
'report-emacs-bug-insert-to-mailer))
(setq report-emacs-bug-send-command (get mail-user-agent 'sendfunc)
report-emacs-bug-send-hook (get mail-user-agent 'hookvar))
(if report-emacs-bug-send-command
(setq report-emacs-bug-send-command
(symbol-name report-emacs-bug-send-command)))
(unless report-emacs-bug-no-explanations
(with-output-to-temp-buffer "*Bug Help*"
(princ "While in the mail buffer:\n\n")
(if report-emacs-bug-send-command
(princ (substitute-command-keys
(format " Type \\[%s] to send the bug report.\n"
report-emacs-bug-send-command))))
(princ (substitute-command-keys
" Type \\[kill-buffer] RET to cancel (don't send it).\n"))
(if can-insert-mail
(princ (substitute-command-keys
" Type \\[report-emacs-bug-insert-to-mailer] to copy text to your preferred mail program.\n")))
(terpri)
(princ (substitute-command-keys
" Type \\[info-emacs-bug] to visit in Info the Emacs Manual section
about when and how to write a bug report, and what
information you should include to help fix the bug.")))
(shrink-window-if-larger-than-buffer (get-buffer-window "*Bug Help*")))
;; Make it less likely people will send empty messages.
(if report-emacs-bug-send-hook
(add-hook report-emacs-bug-send-hook 'report-emacs-bug-hook nil t))
(goto-char (point-max))
(skip-chars-backward " \t\n")
(make-local-variable 'report-emacs-bug-orig-text)
(setq report-emacs-bug-orig-text
(buffer-substring-no-properties (point-min) (point)))
(goto-char user-point)))
next prev parent reply other threads:[~2013-02-22 19:56 UTC|newest]
Thread overview: 18+ messages / expand[flat|nested] mbox.gz Atom feed top
2013-02-22 13:36 bug-tracker Andreas Röhler
2013-02-22 14:52 ` bug-tracker Michael Albinus
2013-02-22 19:56 ` Andreas Röhler [this message]
2013-02-22 20:09 ` bug-tracker Michael Albinus
2013-02-22 21:23 ` bug-tracker Andreas Röhler
2013-02-23 7:39 ` bug-tracker Michael Albinus
2013-02-23 8:09 ` bug-tracker Andreas Röhler
2013-02-26 16:24 ` bug-tracker Bastien
2013-02-22 20:10 ` bug-tracker Yagnesh Raghava Yakkala
2013-02-22 21:09 ` bug-tracker Andreas Röhler
2013-02-22 20:50 ` bug-tracker Suvayu Ali
2013-02-22 21:13 ` bug-tracker Andreas Röhler
2013-02-25 15:51 ` bug-tracker Sebastien Vauban
2013-02-26 6:47 ` bug-tracker Andreas Röhler
2013-02-22 20:15 ` bug-tracker David Engster
2013-02-22 20:28 ` bug-tracker Michael Albinus
2013-02-22 20:45 ` bug-tracker David Engster
2013-02-23 7:36 ` bug-tracker Michael Albinus
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=5127CD86.8030106@easy-emacs.de \
--to=andreas.roehler@easy-emacs.de \
--cc=bzg@altern.org \
--cc=emacs-orgmode@gnu.org \
--cc=michael.albinus@gmx.de \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).