From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp12.migadu.com ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms5.migadu.com with LMTPS id UMNRMTe6PWMSWwEAbAwnHQ (envelope-from ) for ; Wed, 05 Oct 2022 19:09:11 +0200 Received: from aspmx1.migadu.com ([2001:41d0:2:4a6f::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp12.migadu.com with LMTPS id 2F9QMTe6PWN2GAAAauVa8A (envelope-from ) for ; Wed, 05 Oct 2022 19:09:11 +0200 Received: from lists.gnu.org (lists.gnu.org [209.51.188.17]) (using TLSv1.2 with cipher ECDHE-RSA-AES256-GCM-SHA384 (256/256 bits)) (No client certificate requested) by aspmx1.migadu.com (Postfix) with ESMTPS id 507066505 for ; Wed, 5 Oct 2022 19:09:11 +0200 (CEST) Received: from localhost ([::1]:42852 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1og7tN-0007G4-Ce for larch@yhetil.org; Wed, 05 Oct 2022 13:09:09 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:39520) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1og7TD-0002Z2-7D for guix-patches@gnu.org; Wed, 05 Oct 2022 12:42:09 -0400 Received: from debbugs.gnu.org ([209.51.188.43]:58835) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1og7T8-0008Ew-FS for guix-patches@gnu.org; Wed, 05 Oct 2022 12:42:06 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1og7T7-0005Oy-Uj for guix-patches@gnu.org; Wed, 05 Oct 2022 12:42:01 -0400 X-Loop: help-debbugs@gnu.org Subject: [bug#56987] [PATCH] new functions 'debbugs-gnu-my-open-bugs' and 'debbugs-gnu-guix-search'. 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: Wed, 05 Oct 2022 16:42: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.166498811320749 (code B ref 56987); Wed, 05 Oct 2022 16:42:01 +0000 Received: (at 56987) by debbugs.gnu.org; 5 Oct 2022 16:41:53 +0000 Received: from localhost ([127.0.0.1]:57913 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1og7Sy-0005Oa-AM for submit@debbugs.gnu.org; Wed, 05 Oct 2022 12:41:52 -0400 Received: from mx1.dismail.de ([78.46.223.134]:38430) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1og7Sw-0005OJ-4w for 56987@debbugs.gnu.org; Wed, 05 Oct 2022 12:41:51 -0400 Received: from mx1.dismail.de (localhost [127.0.0.1]) by mx1.dismail.de (OpenSMTPD) with ESMTP id ae592c07; Wed, 5 Oct 2022 18:41:42 +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=3RKRZOR1YeXb3rP/SbrHBclxiAk7Kz4hWe0hmV+J4nk=; b= VXx0HINq7I1PXQsjlb9A830Bjy5OqPOK4yLc6JamP002NC3paM1wZXMjuyRXFMvi V0iyflhokHhgzL7SnBKjj0wW9b67olIfAtIwiMqSw6klCJDr3a9GC+kqXN98nxqX 3pi3DuNqBZYcGDyZFSyQYanY5yH6aa/VMDnQHbcJtNw//yibqpl4IYBcVXzuLlxn fNB19R+953YY5Ui8klDQD2VlvJXendjLVj5tGaf6i8eGyaV0qKVCXKJIj6fLNkN3 F74t/mr++bLFh6M87CXzkNekNlXkXHLOMCL9tXncdg4UqSS5JAGgmETlfCl1WR5q St0myX/h7lG2gWU87Y42mQ== Received: from smtp1.dismail.de ( [10.240.26.11]) by mx1.dismail.de (OpenSMTPD) with ESMTP id cd7d2df8; Wed, 5 Oct 2022 18:41:42 +0200 (CEST) Received: from smtp1.dismail.de (localhost [127.0.0.1]) by smtp1.dismail.de (OpenSMTPD) with ESMTP id bce27e9a; Wed, 5 Oct 2022 18:41:41 +0200 (CEST) Received: by dismail.de (OpenSMTPD) with ESMTPSA id d76e0457 (TLSv1.3:TLS_AES_256_GCM_SHA384:256:NO); Wed, 5 Oct 2022 18:41:40 +0200 (CEST) Date: Wed, 5 Oct 2022 12:41:32 -0400 Message-Id: <20221005164132.14867-1-jbranso@dismail.de> X-Mailer: git-send-email 2.37.3 MIME-Version: 1.0 Content-Transfer-Encoding: 8bit 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+larch=yhetil.org@gnu.org Sender: "Guix-patches" Reply-to: Joshua Branson X-ACL-Warn: , Joshua Branson via Guix-patches From: Joshua Branson via Guix-patches via X-Migadu-Flow: FLOW_IN X-Migadu-Country: US ARC-Message-Signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=yhetil.org; s=key1; t=1664989751; h=from:from:sender:sender:reply-to:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:cc:mime-version:mime-version: content-transfer-encoding:content-transfer-encoding:resent-cc: resent-from:resent-sender:resent-message-id:in-reply-to:in-reply-to: references:references:list-id:list-help:list-unsubscribe: list-subscribe:list-post:dkim-signature; bh=F8hCcRHM6ywe41HhPKHBtQCOpGxykEvqK4yGv0FR4FI=; b=FGNYVfoZKAo2JmSWFjsOCXUkWzxHcI1q4w7W0zfr9mhtJIQjrC+KdMgc2jLbiT2sJQiMMk GKHU94AHU4YYro5Ked/OeRCXjqSS4t5Vm+biqP2MnpcmXlrfGiVa2aBLFjtGy8WWfSgOCh uNreCZ/B41loKpoqPIl4wQjK0NptkWEeRxtDdU7A/hlgHqFaGQlKo97urh8OxkNTytJ6mf 4AqOvxdk4CPDl/qofbHgM62HxHSLlr0F98Zdo+nHbLXK3K5zmvAT/CcDm+Hu3s1eqGdBh/ rT2DJhtDZBqmmkYOHOv1IU6cmJC2Tf3GdfwbrPo8coA8GbkZo7fop6/RUWAR0A== ARC-Seal: i=1; s=key1; d=yhetil.org; t=1664989751; a=rsa-sha256; cv=none; b=W3lEpg0m6iYxnal50ktL1xIbSak8hoeCf4enMi6+MV/EahnUMHCNH+z7rJHcL9oASkp0Z1 DduMpJ5YlQnf0iJZ0Naka55iNenBgtrTDpDQiTcsELvbsGeE2EwNGb+0Ajw2ZYB6HOAGme ljTJoCMJwfNI/cBcC29c7M7foGNMlSfRbBPl1cChoScGzUr0ZUoEzXcxOUusS44mUDkVxF mYDHAuMUUV0MABEBMjNYZOmSLj010jep7mT3HlFNbJjHGfqm+NQTIF0zDvfx6SgzI/U7rH oB5qfwOdi4SomMeeeaOzri9Q+c0PdpupWVlHaCMtNXTZrpFJIVeFUfD3YI1Hyw== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=fail ("headers rsa verify failed") header.d=dismail.de header.s=20190914 header.b=VXx0HINq; dmarc=pass (policy=none) header.from=gnu.org; spf=pass (aspmx1.migadu.com: domain of "guix-patches-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="guix-patches-bounces+larch=yhetil.org@gnu.org" X-Migadu-Spam-Score: -2.96 Authentication-Results: aspmx1.migadu.com; dkim=fail ("headers rsa verify failed") header.d=dismail.de header.s=20190914 header.b=VXx0HINq; dmarc=pass (policy=none) header.from=gnu.org; spf=pass (aspmx1.migadu.com: domain of "guix-patches-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="guix-patches-bounces+larch=yhetil.org@gnu.org" X-Migadu-Queue-Id: 507066505 X-Spam-Score: -2.96 X-Migadu-Scanner: scn1.migadu.com X-TUID: tnimcbnPGRZC * debbugs-gnu.el (debbugs-gnu-my-open-bugs): new function. * debbugs-org.el (debbugs-org-my-open-bugs): new function. * debbugs-guix.el (debbugs-gnu-guix-search): new function. * debugs-ug.texi (debbugs-gnu-my-open-bugs, debbugs-gnu-guix-search, debbugs-org-my-open-bugs): added documentation for the new functions. --- debbugs-gnu.el | 17 +++++++++++++++++ debbugs-guix.el | 51 +++++++++++++++++++++++++++++++++++++++++++++++++ debbugs-org.el | 16 ++++++++++++++++ debbugs-ug.texi | 22 ++++++++++++++++++++- 4 files changed, 105 insertions(+), 1 deletion(-) create mode 100644 debbugs-guix.el diff --git a/debbugs-gnu.el b/debbugs-gnu.el index e6629156c1..bc6417c5f5 100644 --- a/debbugs-gnu.el +++ b/debbugs-gnu.el @@ -164,6 +164,14 @@ ;; presented, and in the latter case the last 10 bugs are shown, ;; counting from the highest bug number in the repository. +;; M-x debbugs-gnu-my-open-bugs +;; +;; It is a good idea to maintain and eventually close your open bug +;; reports. The function 'debbugs-gnu-my-open-bugs' helps you do +;; this, by retrieving open bug reports, in which you are the +;; submitter. This function assumes that you have defined the +;; variable 'user-mail-address'. + ;; For posting commit to bugs, or constructing a bug closing message ;; based on a pushed commit, use the command ;; @@ -827,6 +835,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 +2494,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..c8d6b281f9 --- /dev/null +++ b/debbugs-guix.el @@ -0,0 +1,51 @@ +;;; 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)) + +;;;###autoload +(defun debbugs-org-guix-search () + "Search for open guix bugs and patches and display the results in an org + buffer." + (interactive) + (let ((debbugs-gnu-show-reports-function #'debbugs-org-show-reports)) + (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..c62ffc0396 100644 --- a/debbugs-org.el +++ b/debbugs-org.el @@ -114,6 +114,14 @@ ;; presented, and in the latter case the last 10 bugs are shown, ;; counting from the highest bug number in the repository. +;; M-x debbugs-org-my-open-bugs +;; +;; It is a good idea to maintain and eventually close your open bug +;; reports. The function 'debbugs-org-my-open-bugs' helps you do +;; this, by retrieving open bug reports, in which you are the +;; submitter. This function assumes that you have defined the +;; variable 'user-mail-address'. + ;;; Code: (require 'debbugs-gnu) @@ -352,6 +360,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..0f0823f722 100644 --- a/debbugs-ug.texi +++ b/debbugs-ug.texi @@ -206,6 +206,17 @@ 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 Headers, , , emacs}). +@end deffn + @deffn {Command} debbugs-gnu-emacs-release-blocking-reports &optional release @deffnx {Command} debbugs-org-emacs-release-blocking-reports &optional release @@ -226,7 +237,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 @@ -367,6 +377,16 @@ These commands show also a progress report when @end deffn +@deffn {Command} debbugs-gnu-guix-search +@deffnx {Command} debbugs-org-guix-search + +By default, @code{debbugs-gnu-search} and @code{debbugs-org-search}, +search for all open bugs in the debbugs database. While this is +extensive search is laudable, it is perhaps not efficient. These two +functions will let you search for only open guix bugs and patches. +@end deffn + + @node Presenting Bugs @chapter Presenting Bugs -- 2.37.3