From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mp12.migadu.com ([2001:41d0:2:bcc0::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by ms5.migadu.com with LMTPS id eDbsI0OlPmMNowAAbAwnHQ (envelope-from ) for ; Thu, 06 Oct 2022 11:52:03 +0200 Received: from aspmx1.migadu.com ([2001:41d0:2:bcc0::]) (using TLSv1.3 with cipher TLS_AES_256_GCM_SHA384 (256/256 bits)) by mp12.migadu.com with LMTPS id qF/PI0OlPmMZ7QAAauVa8A (envelope-from ) for ; Thu, 06 Oct 2022 11:52:03 +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 4806132EAD for ; Thu, 6 Oct 2022 11:52:03 +0200 (CEST) Received: from localhost ([::1]:38894 helo=lists1p.gnu.org) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1ogNXu-00019E-8y for larch@yhetil.org; Thu, 06 Oct 2022 05:52:02 -0400 Received: from eggs.gnu.org ([2001:470:142:3::10]:43972) by lists.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_256_GCM_SHA384:256) (Exim 4.90_1) (envelope-from ) id 1ogNWa-000158-Nv for guix-devel@gnu.org; Thu, 06 Oct 2022 05:50:43 -0400 Received: from mail-wr1-x42d.google.com ([2a00:1450:4864:20::42d]:39663) by eggs.gnu.org with esmtps (TLS1.2:ECDHE_RSA_AES_128_GCM_SHA256:128) (Exim 4.90_1) (envelope-from ) id 1ogNWY-0000NM-Td; Thu, 06 Oct 2022 05:50:40 -0400 Received: by mail-wr1-x42d.google.com with SMTP id f11so1858401wrm.6; Thu, 06 Oct 2022 02:50:37 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20210112; h=content-transfer-encoding:mime-version:message-id:date:references :in-reply-to:subject:cc:to:from:from:to:cc:subject:date; bh=5wgBCIrcgT3Y7ssttdbydkpo3CG90yz3EzAxhfNjR6M=; b=L6+meJmlyF2wsQ4/xOGKhZFpyOVbuylCA5Z/AvkVff/3uucN8bfLZgo4MP7+3GXGNP gZYqO+Cp8fQ9k/tg6f6decuzmPS5VqJOJYm1YC2dFVGpiYsbNuo9qRN9DIyNWFNSQPw9 88vWyTaMJ6DPTAEB20bRXpLLWjvLrSwo1M80JPou1K6D7qCYwCkXk1NKI/4RZ/kZozpZ 1xjDmG7LSvHVqvAOTjyZnMEGt97g6Azx75RM3VG1r17F/aUmqGdGOxpS2k7LuxB/CgH7 r5/hd4UuwDqXRE2WdyWHwMtm5tmsCZvDazidKlibW5b/73i3K+zDVI0I09Znq2agthAm D1LA== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20210112; h=content-transfer-encoding:mime-version:message-id:date:references :in-reply-to:subject:cc:to:from:x-gm-message-state:from:to:cc :subject:date; bh=5wgBCIrcgT3Y7ssttdbydkpo3CG90yz3EzAxhfNjR6M=; b=bgejuEn/ywrlblQT600TAud82pyhJ0BFs8BwbQsSBzEUQIzEkA3JqdJmDCoITh2OTW 8G4qeJpqNV6l+DCb7Aw4CLdc1NNugDBkW7JrmTqw4jz1sxEXoqNTiNh3i0HfDkbtdpjP j2l6mkK+E+Lbu6EciSW+1SdMzYGEZSQ4R1+6wTLl1fRqRpZmfZ/RPmSKhDDcrg4VJIP7 IYi1eAweFOZpAqRdjQJyIiA8v9b/7F5yZFo5QSqGpnvLoeE2fWvNdyOqWku8ooh8lwwj PHPgcscI/SEOEZaTs88ukEOby8HGRQ9kFIdoVYmYRax1PfnwXMM+ryObLDYFZcF0VnM+ gA/Q== X-Gm-Message-State: ACrzQf2ITuwWUq/9jY/D1F+bAl6fJlbwBR6PY+rtwuw0e8p/rTZ4tA9M 0KyyX3P9IyOnN/Rzlqk/ZwJzBSYcosE= X-Google-Smtp-Source: AMsMyM5vEE5UWOrYG3ylSC4xM9vgDzSV5qg/g7F3fZI3DT6iDWzqwwwdAuPwOfkZB/tPhUaQ0Wte5w== X-Received: by 2002:a5d:68d0:0:b0:22c:dfba:3bd6 with SMTP id p16-20020a5d68d0000000b0022cdfba3bd6mr2432251wrw.300.1665049836716; Thu, 06 Oct 2022 02:50:36 -0700 (PDT) Received: from pfiuh07 ([193.48.40.241]) by smtp.gmail.com with ESMTPSA id i30-20020a1c541e000000b003b486027c8asm4445606wmb.20.2022.10.06.02.50.35 (version=TLS1_3 cipher=TLS_AES_256_GCM_SHA384 bits=256/256); Thu, 06 Oct 2022 02:50:36 -0700 (PDT) From: zimoun To: jbranso@dismail.de, Ludovic =?utf-8?Q?Court=C3=A8s?= Cc: guix-devel@gnu.org Subject: debbugs-guix.el helper function In-Reply-To: <20a86654f42bf996c4f3bacaa4ed89e9@dismail.de> References: <878rlzec5e.fsf@gnu.org> <87mtbc3g5e.fsf@cbaines.net> <87sfkneqmm.fsf@cbaines.net> <20a86654f42bf996c4f3bacaa4ed89e9@dismail.de> Date: Thu, 06 Oct 2022 11:11:56 +0200 Message-ID: <87a669uxib.fsf@gmail.com> MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Received-SPF: pass client-ip=2a00:1450:4864:20::42d; envelope-from=zimon.toutoune@gmail.com; helo=mail-wr1-x42d.google.com X-Spam_score_int: -20 X-Spam_score: -2.1 X-Spam_bar: -- X-Spam_report: (-2.1 / 5.0 requ) BAYES_00=-1.9, DKIM_SIGNED=0.1, DKIM_VALID=-0.1, DKIM_VALID_AU=-0.1, DKIM_VALID_EF=-0.1, FREEMAIL_FROM=0.001, RCVD_IN_DNSWL_NONE=-0.0001, SPF_HELO_NONE=0.001, SPF_PASS=-0.001 autolearn=ham autolearn_force=no X-Spam_action: no action X-BeenThere: guix-devel@gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: "Development of GNU Guix and the GNU System distribution." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-devel-bounces+larch=yhetil.org@gnu.org Sender: "Guix-devel" 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=1665049923; h=from:from:sender:sender:reply-to:subject:subject:date:date: message-id:message-id:to:to:cc:cc:mime-version:mime-version: content-type:content-type: content-transfer-encoding:content-transfer-encoding: in-reply-to:in-reply-to:references:references:list-id:list-help: list-unsubscribe:list-subscribe:list-post:dkim-signature; bh=5wgBCIrcgT3Y7ssttdbydkpo3CG90yz3EzAxhfNjR6M=; b=NWrBT+oBEMg1V3tVZo5M7taSRhRb/eASvE5BuRc4Rg8hAHOf2+KVru7NweXtk0GE4cBscP zg7/eiplcPwbHYL8C6SqHTlyBZR7DfClTZjg64IDqTgdiSbG5/3rOMXsb47k/EhBLhE0S1 e0WEFMIvtnJ6/oh3Q1UCANBCaRZ3icS61mc+HL3X+YcL7tGTowPLDF0HXuUeE9WUC5YT9l fGOwDMU2eszixU0Xi4PUo6mkbjmmaMp4akLffOB89zJJ70MBNAzBCFhzxj1f18C5Zlc+Li P73bCqk3NSVJpnh9GB/eYEv/AOAg9e7JSHTjlfH8siHgvj655YLYQJA0WXbbMQ== ARC-Seal: i=1; s=key1; d=yhetil.org; t=1665049923; a=rsa-sha256; cv=none; b=mlLBbgUWpb9fd1ZwMgm7h/QfHcfH+JYq9m1Is/fc71fYPvoCrWbIYVXmSDzdYprrbq/pdE FLMGL9dGguHTbILF7a8pa1f76+xYxaU0V9m1Vo+C3PFLOvvf5GeOcp/UD8bAEngizNPXyM F4Bz3GQsvamQBjhMhP4MFDVU0rSIoOWuHyhX092eL6iLLDq+MWvvUp8+8PXVvoiqvgoVKB aP6Fh+Fl5KFszOgUslbiCUw1DmxgS+wdMt3LBq2/yT3Zgg8ahdnZiglsiUh7m7dvpP648E TLMhfOBu+Jtx0Mw/pjI4iOX1PKchShPPvTRZZwY9RrLiimJ3WZYm+PaN3M4mQw== ARC-Authentication-Results: i=1; aspmx1.migadu.com; dkim=pass header.d=gmail.com header.s=20210112 header.b=L6+meJml; dmarc=pass (policy=none) header.from=gmail.com; spf=pass (aspmx1.migadu.com: domain of "guix-devel-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="guix-devel-bounces+larch=yhetil.org@gnu.org" X-Migadu-Spam-Score: -5.37 Authentication-Results: aspmx1.migadu.com; dkim=pass header.d=gmail.com header.s=20210112 header.b=L6+meJml; dmarc=pass (policy=none) header.from=gmail.com; spf=pass (aspmx1.migadu.com: domain of "guix-devel-bounces+larch=yhetil.org@gnu.org" designates 209.51.188.17 as permitted sender) smtp.mailfrom="guix-devel-bounces+larch=yhetil.org@gnu.org" X-Migadu-Queue-Id: 4806132EAD X-Spam-Score: -5.37 X-Migadu-Scanner: scn0.migadu.com X-TUID: ApZKe9crnfAG Hi, On mer., 05 oct. 2022 at 22:49, jbranso@dismail.de wrote: > October 1, 2022 1:08 PM, "Ludovic Court=C3=A8s" wrote: >> --8<---------------cut here---------------start------------->8--- >> (defun ludo-jump-to-guix-qa-url () >> "Jump to the QA page of the Debbugs issue at point." >> (interactive) >> (let ((url (concat "https://qa.guix.gnu.org/issue" >> (number-to-string (debbugs-gnu-current-id))))) >> (browse-url url))) >>=20 >> (define-key debbugs-gnu-mode-map (kbd "C-M-j") 'ludo-jump-to-guix-qa-url) >> --8<---------------cut here---------------end--------------->8--- > > Would it make sense to add something like this to debbugs? In the same spirit, I have: --8<---------------cut here---------------start------------->8--- (defmacro defun-bug->url (name url &optional docstring) "Macro returning yankage #bug URL. The `interactive' function that the macro returns is then referred by NAME. Please provide a DOCSTRING." (let ((fun (intern (symbol-name name))) (doc (concat docstring "\n\n" (format "Yankable result: `%sNUMBER'." url)))) `(defun ,fun (number) ,doc (interactive (list (progn (when (not (boundp 'debbugs-gnu-bug-number)) (setq debbugs-gnu-bug-number -2)) (read-string (format "Bug number (%s): " debbugs-gnu-bug-number) nil nil debbugs-gnu-bug-number)))) (let ((str (format "%s%s" ,url number))) (kill-new str) (when current-prefix-arg (browse-url str)) (message (format "%s killed." str)))))) (defun-bug->url my/guix-issues "http://issues.guix.gnu.org/issue/" "Add URL of bug NUMBER to `kill-ring'.") (defun-bug->url my/guix-debbugs "https://debbugs.gnu.org/cgi/bugreport.cgi?= bug=3D" "Add (old) URL of bug NUMBER to `kill-ring'.") (defun my/guix-data (package) "Add URL of PACKAGE to `kill-ring'. Yankable result: `https://data.guix.gnu.org/repository/1/branch/master/package/PACKAGE/outpu= t-history'. With `universal-argument', load URL using `browse-url'." (interactive "sPackage: ") (let ((url (format "https://data.guix.gnu.org/repository/1/branch/master/package/%s/= output-history" package))) (kill-new url) (when current-prefix-arg (browse-url url)) (message (format "%s killed." url)))) --8<---------------cut here---------------end--------------->8--- And because I find Message-ID and public-inbox nice interface, I also have: --8<---------------cut here---------------start------------->8--- (defun my/public-inbox-insert (number) "TODO" (interactive "nBug number: ") (let* ((meta (car (debbugs-get-status number))) (inbox (car (debbugs-get-attribute meta 'package))) ;Probably in= accurate for the general case (raw (debbugs-get-attribute meta 'msgid)) (msgid (replace-regexp-in-string "<\\|>" "" raw))) (message "Message-ID: %s from %s." msgid inbox) (my/piem-inject-thread-into-maildir msgid inbox) (notmuch-command-to-string "new" "--no-hooks"))) --8<---------------cut here---------------end--------------->8--- which can be adapted (by removing the part about emacs-piem, great package BTW! and the part about emacs-notmuch). Well, I have in my TODO list to implement the extraction of Message-ID from Emacs-Debbugs. But it is not about debbugs.el and instead about Gnus. It could be very helpful to have a way to stash to the kill-ring the Message-ID of one specific message in the thread; and not only the Message-ID of the first message in that thread. Cheers, simon