From patchwork Sat Oct 1 15:39:33 2022 Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: 7bit X-Patchwork-Submitter: Joshua Branson X-Patchwork-Id: 43094 Return-Path: X-Original-To: patchwork@mira.cbaines.net Delivered-To: patchwork@mira.cbaines.net Received: by mira.cbaines.net (Postfix, from userid 113) id 80E3527BBE9; Sat, 1 Oct 2022 16:41:15 +0100 (BST) X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on mira.cbaines.net X-Spam-Level: X-Spam-Status: No, score=-2.7 required=5.0 tests=BAYES_00,DKIM_INVALID, DKIM_SIGNED,MAILING_LIST_MULTI,SPF_HELO_PASS,URIBL_BLOCKED autolearn=unavailable autolearn_force=no version=3.4.6 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) by mira.cbaines.net (Postfix) with ESMTPS id 55BCC27BBEA for ; Sat, 1 Oct 2022 16:41:13 +0100 (BST) Received: from localhost ([::1]:60546 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1oeec4-0008OP-Ct for patchwork@mira.cbaines.net; Sat, 01 Oct 2022 11:41:12 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:59462) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1oeebu-0008Mh-1E for guix-patches@gnu.org; Sat, 01 Oct 2022 11:41:02 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:46512) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1oeebt-00007P-PY for guix-patches@gnu.org; Sat, 01 Oct 2022 11:41:01 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1oeebt-0002l4-L1 for guix-patches@gnu.org; Sat, 01 Oct 2022 11:41:01 -0400 X-Loop: help-debbugs@gnu.org Subject: [bug#56987] [PATCH] added *my-open-bugs functions References: <20220805012310.5999-1-jbranso@dismail.de> In-Reply-To: <20220805012310.5999-1-jbranso@dismail.de> Resent-From: Joshua Branson Original-Sender: "Debbugs-submit" Resent-CC: guix-patches@gnu.org Resent-Date: Sat, 01 Oct 2022 15:41:01 +0000 Resent-Message-ID: Resent-Sender: help-debbugs@gnu.org X-GNU-PR-Message: followup 56987 X-GNU-PR-Package: guix-patches X-GNU-PR-Keywords: patch To: 56987@debbugs.gnu.org Cc: michael.albinus@gmx.de, Joshua Branson Received: via spool by 56987-submit@debbugs.gnu.org id=B56987.166463881310517 (code B ref 56987); Sat, 01 Oct 2022 15:41:01 +0000 Received: (at 56987) by debbugs.gnu.org; 1 Oct 2022 15:40:13 +0000 Received: from localhost ([127.0.0.1]:45590 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1oeeb6-0002jX-F3 for submit@debbugs.gnu.org; Sat, 01 Oct 2022 11:40:12 -0400 Received: from mx1.dismail.de ([78.46.223.134]:5480) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1oeeb3-0002jI-Gw for 56987@debbugs.gnu.org; Sat, 01 Oct 2022 11:40:10 -0400 Received: from mx1.dismail.de (localhost [127.0.0.1]) by mx1.dismail.de (OpenSMTPD) with ESMTP id e0070ef4; Sat, 1 Oct 2022 17:40:01 +0200 (CEST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed; d=dismail.de; h=from:to:cc :subject:date:message-id:mime-version:content-transfer-encoding; s=20190914; bh=UU0+wcV/bmrZLdTObdi5ZCuQvBWCtX5HFXIOgdkb3pk=; b= Op2hzZSIRkQ/NQdjC7kmhNF5DdSJDXdh7OxVbdrSWpvPJXzUVMf73gzd5a9s0OG5 g6Eb+p4yBzSBdyuGGAcz47WN4SvmecDVwFv0H3e4hrKfGK9A2Rz14Z2nR6jB5kTC hHHtDFavKTJmbN8aSUJn2dc3dJXSL8F8e/+5zrQr48HAfjkIX/Bi6QJILrfY7WAm i0WEXcOJAEuwBhop3GJIg9Zw6YsbJJ68P5J6VfaEyn6rDsjd4nKIdqb3HdUBKVoi XpPVE0JL7idjrhWyHKC4J5t8lrfP2Ch6dPElPuJezv73VrHUyEq3cxN1u5DdJWY9 sDeWotJ2AWllYddsgOx5dA== Received: from smtp2.dismail.de ( [10.240.26.12]) by mx1.dismail.de (OpenSMTPD) with ESMTP id 84d1c280; Sat, 1 Oct 2022 17:40:01 +0200 (CEST) Received: from smtp2.dismail.de (localhost [127.0.0.1]) by smtp2.dismail.de (OpenSMTPD) with ESMTP id 2766005e; Sat, 1 Oct 2022 17:40:01 +0200 (CEST) Received: by dismail.de (OpenSMTPD) with ESMTPSA id 34c1a356 (TLSv1.3:TLS_AES_256_GCM_SHA384:256:NO); Sat, 1 Oct 2022 17:40:00 +0200 (CEST) Date: Sat, 1 Oct 2022 11:39:33 -0400 Message-Id: <20221001153933.6325-1-jbranso@dismail.de> X-Mailer: git-send-email 2.37.3 MIME-Version: 1.0 X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list X-BeenThere: guix-patches@gnu.org List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+patchwork=mira.cbaines.net@gnu.org Sender: "Guix-patches" Reply-to: Joshua Branson X-ACL-Warn: , Joshua Branson via Guix-patches X-Patchwork-Original-From: Joshua Branson via Guix-patches via From: Joshua Branson X-getmail-retrieved-from-mailbox: Patches * 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 +;; 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 . + +;;; 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