From: Joshua Branson via Guix-patches via <guix-patches@gnu.org>
To: 56987@debbugs.gnu.org
Cc: michael.albinus@gmx.de, Joshua Branson <jbranso@dismail.de>
Subject: [bug#56987] [PATCH] added *my-open-bugs functions
Date: Sat, 1 Oct 2022 11:39:33 -0400 [thread overview]
Message-ID: <20221001153933.6325-1-jbranso@dismail.de> (raw)
In-Reply-To: <20220805012310.5999-1-jbranso@dismail.de>
* debbugs-gnu.el: debbugs-gnu-my-open-bugs: new procedure.
* debbugs-org.el: debbugs-org-my-open-bugs: new procedure.
* debbugs-guix.el: debbugs-gnu-guix-search: new procedure.
* debugs-ug.texi: added documentation for *my-open-bugs procedures.
I did not actually compile the debbugs-ug.text, so it is possible that my
documentation makes the info program impossible to compile.
Also sorry for the massive delay it has been in sending this in.
Thanks,
Joshua
---
debbugs-gnu.el | 9 +++++++++
debbugs-guix.el | 42 ++++++++++++++++++++++++++++++++++++++++++
debbugs-org.el | 8 ++++++++
debbugs-ug.texi | 13 ++++++++++++-
4 files changed, 71 insertions(+), 1 deletion(-)
create mode 100644 debbugs-guix.el
diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index e6629156c1..29257cb779 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -827,6 +827,13 @@ Shall be bound in `debbugs-org-*' functions.")
(when (called-interactively-p 'interactive)
(message "Query finished"))))
+;;;###autoload
+(defun debbugs-gnu-my-open-bugs ()
+ "Retrieve the open bugs, that you submitted. This function assumes the variable
+'user-mail-address' is defined."
+ (interactive)
+ (apply #'debbugs-gnu-bugs (debbugs-get-bugs :submitter "me" :status "open")))
+
(defun debbugs-gnu-get-bugs (query)
"Retrieve bug numbers from debbugs.gnu.org according search criteria."
(let* ((debbugs-port "gnu.org")
@@ -2479,6 +2486,8 @@ or bug ranges, with default to `debbugs-gnu-default-bug-number-list'."
(when (called-interactively-p 'interactive)
(message "Retrieving bugs finished")))
+(defalias 'debbugs-gnu-get-bug-by-id 'debbugs-gnu-bugs)
+
(defcustom debbugs-gnu-trunk-directory "~/src/emacs/trunk/"
"The directory where the main source tree lives."
:type 'directory
diff --git a/debbugs-guix.el b/debbugs-guix.el
new file mode 100644
index 0000000000..6f7cfe46e4
--- /dev/null
+++ b/debbugs-guix.el
@@ -0,0 +1,42 @@
+;;; debbugs-guix.el Guix Specific Debbugs Functions -*- lexical-binding: t; -*-
+;;
+;; Copyright (C) 2011-2022 Free Software Foundation, Inc.
+
+;; Author: Joshua Branson <jbranso@dismail.de>
+;; Keywords: comm, hypermedia, maint
+;; Package: debbugs
+
+;; This file is not part of GNU Emacs.
+
+;; This program is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
+
+;;; Commentary:
+;;
+;; By default, debbugs-gnu-search searches for open and closed bugs of
+;; all GNU packages, which can make searching a little slow. To
+;; remedy this situation, this file provides the function
+;; 'debbugs-gnu-guix-search', which search for open bugs that relate
+;; to the GNU guix.
+;;
+;;; Code:
+
+;;;###autoload
+(defun debbugs-gnu-guix-search ()
+ "Search for open guix bugs and patches."
+ (interactive)
+ (debbugs-gnu-search (read-string "Search String: ") '((pending . "pending"))
+ nil '("guix" "guix-patches") nil))
+
+(provide 'debbugs-guix)
+;;; debbugs-guix.el ends here
diff --git a/debbugs-org.el b/debbugs-org.el
index c4343ecd8e..33b3662219 100644
--- a/debbugs-org.el
+++ b/debbugs-org.el
@@ -352,6 +352,14 @@ or bug ranges, with default to `debbugs-gnu-default-bug-number-list'."
(let ((debbugs-gnu-show-reports-function #'debbugs-org-show-reports))
(call-interactively #'debbugs-gnu-bugs)))
+;;;###autoload
+(defun debbugs-org-my-open-bugs ()
+ "Retrieve the open bugs, that you submitted. This function assumes the variable
+'user-mail-address' is defined."
+ (interactive)
+ (let ((debbugs-gnu-show-reports-function #'debbugs-org-show-reports))
+ (apply #'debbugs-gnu-bugs (debbugs-get-bugs :submitter "me" :status "open"))))
+
;; TODO
;; - Make headline customizable.
diff --git a/debbugs-ug.texi b/debbugs-ug.texi
index f1af2a5e6f..bc96c759aa 100644
--- a/debbugs-ug.texi
+++ b/debbugs-ug.texi
@@ -206,6 +206,18 @@ of bugs you are currently working on.
@ref{Presenting Bugs} for the presentation of the results.
@end deffn
+@deffn {Command} debbugs-gnu-my-open-bugs
+@deffnx {Command} debbugs-org-my-open-bugs
+
+It is a good idea to maintain and eventually close your open bug
+reports. The functions @code{debbugs-gnu-my-open-bugs} and
+@code{debbugs-org-my-open-bugs} help you do this, by retrieving open
+bug reports, in which you are the submitter. These functions assume
+that you have defined the variable @code{user-mail-address}
+(@pxref{Mail Header Fields, Mail Header Fields, Mail Header Fields,
+The Emacs Editor}).
+@end deffn
+
@deffn {Command} debbugs-gnu-emacs-release-blocking-reports &optional release
@deffnx {Command} debbugs-org-emacs-release-blocking-reports &optional release
@@ -226,7 +238,6 @@ If this user option is non-@code{nil}, a progress report is shown when
retrieving bugs, defaults to t.
@end defopt
-
@node Searching Bugs
@chapter Searching in the Debbugs Database
--
2.37.3
next prev parent reply other threads:[~2022-10-01 15:41 UTC|newest]
Thread overview: 23+ messages / expand[flat|nested] mbox.gz Atom feed top
2022-08-05 1:23 [bug#56987] [PATCH] etc: guix-debbugs.el: new file Joshua Branson via Guix-patches via
2022-08-05 1:32 ` Joshua Branson via Guix-patches via
2022-08-10 15:16 ` Joshua Branson via Guix-patches via
2022-08-10 16:44 ` Michael Albinus
2022-08-10 20:10 ` jbranso--- via Guix-patches via
2022-08-10 20:24 ` Maxime Devos
2022-08-10 20:39 ` jbranso--- via Guix-patches via
2022-08-10 21:22 ` [bug#56987] Requesting help in assigning copright to Emacs's debbugs jbranso--- via Guix-patches via
2022-08-11 19:51 ` [bug#56987] [PATCH] etc: guix-debbugs.el: new file Joshua Branson via Guix-patches via
[not found] ` <304e6f0d877d6b8bb60db051e661edf1@dismail.de>
2022-08-17 20:14 ` [bug#56987] Fwd: [gnu.org #1863422] Joshua Allen Branson GNU EMACS jbranso--- via Guix-patches via
2022-08-18 9:52 ` Michael Albinus
2022-08-22 17:21 ` [bug#56987] [PATCH] etc: guix-debbugs.el: new file Joshua Branson via Guix-patches via
2022-08-11 6:24 ` Michael Albinus
2022-08-11 15:25 ` Joshua Branson via Guix-patches via
2022-08-11 16:06 ` Michael Albinus
2022-08-13 22:49 ` Joshua Branson via Guix-patches via
2022-08-12 19:17 ` jbranso--- via Guix-patches via
2022-10-01 15:39 ` Joshua Branson via Guix-patches via [this message]
2022-10-02 12:52 ` [bug#56987] [PATCH] added *my-open-bugs functions Michael Albinus
2022-10-03 20:02 ` jbranso--- via Guix-patches via
2022-10-04 14:15 ` Michael Albinus
2022-10-05 16:41 ` [bug#56987] [PATCH] new functions 'debbugs-gnu-my-open-bugs' and 'debbugs-gnu-guix-search' Joshua Branson via Guix-patches via
2022-10-05 20:10 ` bug#56987: " Michael Albinus
[not found] <rt-4.2.16-14-g9a593ee-12923-1660753466-248.1863422-5-0@rt.gnu.org>
[not found] ` <RT-Ticket-1863422@rt.gnu.org>
[not found] ` <rt-4.2.16-14-g9a593ee-21845-1660236515-917.1863103-5-0@rt.gnu.org>
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://guix.gnu.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=20221001153933.6325-1-jbranso@dismail.de \
--to=guix-patches@gnu.org \
--cc=56987@debbugs.gnu.org \
--cc=jbranso@dismail.de \
--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/guix.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).