From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!.POSTED!not-for-mail From: Oleg Pykhalov Newsgroups: gmane.emacs.devel Subject: [PATCH] Recognize bugs.gnu.org in debbugs Date: Wed, 17 Jan 2018 17:26:39 +0300 Message-ID: <87bmhstvc0.fsf@gmail.com> NNTP-Posting-Host: blaine.gmane.org Mime-Version: 1.0 Content-Type: multipart/signed; boundary="==-=-="; micalg=pgp-sha512; protocol="application/pgp-signature" X-Trace: blaine.gmane.org 1516199183 15850 195.159.176.226 (17 Jan 2018 14:26:23 GMT) X-Complaints-To: usenet@blaine.gmane.org NNTP-Posting-Date: Wed, 17 Jan 2018 14:26:23 +0000 (UTC) To: emacs-devel@gnu.org Original-X-From: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Wed Jan 17 15:26:18 2018 Return-path: Envelope-to: ged-emacs-devel@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by blaine.gmane.org with esmtp (Exim 4.84_2) (envelope-from ) id 1eboey-0002Jr-FZ for ged-emacs-devel@m.gmane.org; Wed, 17 Jan 2018 15:25:48 +0100 Original-Received: from localhost ([::1]:39591 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ebogy-0001qF-8t for ged-emacs-devel@m.gmane.org; Wed, 17 Jan 2018 09:27:52 -0500 Original-Received: from eggs.gnu.org ([2001:4830:134:3::10]:46124) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1ebog3-0001ok-TV for emacs-devel@gnu.org; Wed, 17 Jan 2018 09:26:57 -0500 Original-Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1ebofz-0000Im-Rt for emacs-devel@gnu.org; Wed, 17 Jan 2018 09:26:55 -0500 Original-Received: from mail-lf0-x231.google.com ([2a00:1450:4010:c07::231]:34178) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1ebofz-0000H0-J1 for emacs-devel@gnu.org; Wed, 17 Jan 2018 09:26:51 -0500 Original-Received: by mail-lf0-x231.google.com with SMTP id k19so1980504lfj.1 for ; Wed, 17 Jan 2018 06:26:51 -0800 (PST) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=from:to:subject:date:message-id:mime-version; bh=l5z+MCJ4CgeYN6M7dEbIdwlZtAVkpjIqgFyP+zOF5K4=; b=sgBRfS+mQ02liJe5L0Ki8n5nsfMK2k/65EZArSr/6sYQbu8LDZnipQKUIK3V57dQdn DNDym/7D4n4GaY2N1JTnJoi8PHCQT7aja5ROePArCdOOSwyfQ8ipxvoG9lZQdhxfkZZW /Jni3e1zkLdM177VySXDn5JqlCvoiDOwIUbNy2DA7tqo1CwxDL4Zn7iBsEAAAs6rSYPK KkwwVXO68G+K37a16PRECMuqG83SyZeP3bBEcQd9EHXaumpFaTTyYoHYt91eapkCFRs5 debLyDYGB2idTqR9/mSrU03QmahWHt8Hte7EDK2LCjyw98q3tMm3UM2ol7aQbKsLcWTY u7TQ== X-Google-DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=1e100.net; s=20161025; h=x-gm-message-state:from:to:subject:date:message-id:mime-version; bh=l5z+MCJ4CgeYN6M7dEbIdwlZtAVkpjIqgFyP+zOF5K4=; b=TVwC9IUryvCx5kAQRkO45Jioip2WW7jSJjTkoZ8gV6qEaslDaxEgdpgkvVulQw1/ef gVzo5r5/oSiAIj3SLHzoOQpL9YLsWsDxOTJhtVxmjBO67omEHc79f6QBsRQT6W3FG74c DpRQcdAH8gmXrQZmij7laBwt1LRsU7kIakCsWpzwhE0RvYpVxsna6H4vYg1RrR6gPZdY idePzMlmPMefObsMk6WIrxbeQ9KQLDeQ/qyPgpKw3SQJwZTd8leVPwc95IEdINRfAJaX 6hIRS1BHguyJA6sQNgHpX1wIw5hzXJwLIs3pqDc9MOtezRo55yTsU3iyCi27h2KcoeGT CdQQ== X-Gm-Message-State: AKwxyteym2ekTySUz2fMnRxEeSOb8ySiILHr56XQAbe1nRVJppMpAdgA PAo6PS2vmmiQ04cM/zlwtj6vzh1U X-Google-Smtp-Source: ACJfBotJBJOniTEww26PmibI6mHkSIrqbfKpS2dKitaKyaGCm5EQxWjcNxudLPDPLdnpzqaoql1PcA== X-Received: by 10.25.72.203 with SMTP id v194mr373265lfa.26.1516199209841; Wed, 17 Jan 2018 06:26:49 -0800 (PST) Original-Received: from magnolia ([178.69.38.73]) by smtp.gmail.com with ESMTPSA id h27sm890249ljb.30.2018.01.17.06.26.48 for (version=TLS1_2 cipher=ECDHE-RSA-CHACHA20-POLY1305 bits=256/256); Wed, 17 Jan 2018 06:26:48 -0800 (PST) X-detected-operating-system: by eggs.gnu.org: Genre and OS details not recognized. X-Received-From: 2a00:1450:4010:c07::231 X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1.21 Precedence: list List-Id: "Emacs development discussions." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Original-Sender: "Emacs-devel" Xref: news.gmane.org gmane.emacs.devel:222044 Archived-At: --==-=-= Content-Type: multipart/mixed; boundary="=-=-=" --=-=-= Content-Type: text/plain Hello, This patch adds a support for bugs.gnu.org URLs to debbugs-browse-url. I'm using this with the following workflow: --8<---------------cut here---------------start------------->8--- (add-to-list 'load-path "/srv/src/elpa/packages/debbugs/") (require 'debbugs) (require 'debbugs-gnu) (require 'debbugs-browse) (setq browse-url-browser-function `((,debbugs-browse-url-regexp . debbugs-browse-url) ("." . browse-url-conkeror))) ;; Example: call those or M-x ffap on URLs (debbugs-browse-url "https://bugs.gnu.org/29552") (debbugs-browse-url "https://debbugs.gnu.org/29552") (debbugs-browse-url "https://debbugs.gnu.org/cgi/bugreport.cgi?bug=29552") --8<---------------cut here---------------end--------------->8--- --=-=-= Content-Type: text/x-patch Content-Disposition: attachment; filename=0001-Recognize-bugs.gnu.org-in-debbugs.patch Content-Transfer-Encoding: quoted-printable Content-Description: [PATCH] Recognize bugs.gnu.org in debbugs From=2000144cda27d8c6a935f1d3116b45cace30430f90 Mon Sep 17 00:00:00 2001 From: Oleg Pykhalov Date: Wed, 17 Jan 2018 13:38:41 +0300 Subject: [PATCH] Recognize bugs.gnu.org in debbugs * packages/debbugs/debbugs-browse.el (debbugs-browse-url): Recognize bugs.gnu.org. =2D-- packages/debbugs/debbugs-browse.el | 19 +++++++++++-------- 1 file changed, 11 insertions(+), 8 deletions(-) diff --git a/packages/debbugs/debbugs-browse.el b/packages/debbugs/debbugs-= browse.el index 7e37eb6ec..ee0092610 100644 =2D-- a/packages/debbugs/debbugs-browse.el +++ b/packages/debbugs/debbugs-browse.el @@ -1,6 +1,6 @@ ;; debbugs-browse.el --- browse bug URLs with debbugs-gnu or debbugs-org =20 =2D;; Copyright (C) 2015-2017 Free Software Foundation, Inc. +;; Copyright (C) 2015-2018 Free Software Foundation, Inc. =20 ;; Author: Michael Albinus ;; Keywords: comm, hypermedia, maint @@ -36,15 +36,18 @@ This can be either `debbugs-gnu-bugs' or `debbugs-org-b= ugs'." (const debbugs-org-bugs)) :version "25.1") =20 +(defcustom debbugs-browse-url-regexp + (format "^%s\\(%s\\)?\\([[:digit:]]+\\)$" + "https?://\\(debbugs\\|bugs\\)\\.gnu\\.org/" + (regexp-quote "cgi/bugreport.cgi?bug=3D")) + "Regexp matching Debbugs bug report URL." + :group 'debbugs-gnu + :type 'regexp) + (defun debbugs-browse-url (url &optional _new-window) (when (and (stringp url) =2D (string-match =2D (format =2D "^%s\\(%s\\)?\\([[:digit:]]+\\)$" =2D "https?://debbugs\\.gnu\\.org/" =2D (regexp-quote "cgi/bugreport.cgi?bug=3D")) =2D url)) =2D (funcall debbugs-browse-function (string-to-number (match-string 2 u= rl))) + (string-match debbugs-browse-url-regexp url)) + (funcall debbugs-browse-function (string-to-number (match-string 3 url= ))) ;; Return t for add-function mechanery. t)) =20 =2D-=20 2.15.1 --=-=-= Content-Type: text/plain Oleg. --=-=-=-- --==-=-= Content-Type: application/pgp-signature; name="signature.asc" -----BEGIN PGP SIGNATURE----- iQIzBAEBCgAdFiEEc+OyAXw1EaDPCmAPckbhHGm3lWkFAlpfXR8ACgkQckbhHGm3 lWntWA//SFeOqzk9TKjV63aClRfYPWdJRaA2Vts0wXwCoXyVRKgtk5BKzTsc0ZEq gRycEWvEeY9uEr24RYIW7uIXCn7csERJHtn8/e2dbnXIHs8Z4EbWd11z5xukys9E +cX1hJJVzVHZn/pOy1CgVyWrtDveSFNx0kArWEK8pxmwT65lfSPmTIA71Qdm2FeB Pcg9ONfQGrV29rNfQPLPXHBh6zzGlx+Ssy0gFdn2qXqhxGXHSsZo0siFXLa1qEzu yKrCjkfoFARvIusxvmF+mUcl4hcBZFrrS2OTKIFa5Zdp2NCiOsxbxm0pcYTiRp0v aMUByLD9F70dd6lBqAjWMgTTp6mpmxjDXT8x2ynoLLTKrAkAYu86fXg8WC3BgqCW 2WZJ94EETlKg7zcYpDzZuIFpTtQuIkTMXgv0R+ViIjhj+nKG4ufEkpAYr6qtMS/n nDBk/xGpmsvIhlKdAYOK28zt8+ZewUsZ/SwUlkq1b6kv44oxLG90rDcwut46+liF 6OTVWNP5yROFdFH3yJR4I9Qh4e+aCToUtfvXeXQekckZIzMJZv5r0zKNm8IfC01l yNRst4yQLRMh4PmasiUgNIRv/jj8btoa+zeS0PfOisQ/V5wQzuz6ryPd+jkLVFzr oVCHcEPe7Zz7JcamVfcvH5Fx/bi1CGDGjb4379Rx1sqH1fbJ288= =AMDs -----END PGP SIGNATURE----- --==-=-=--