From debbugs-submit-bounces@debbugs.gnu.org Sun Oct 25 10:41:45 2020 Received: (at 43893) by debbugs.gnu.org; 25 Oct 2020 14:41:45 +0000 Received: from localhost ([127.0.0.1]:37254 helo=debbugs.gnu.org) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1kWhDN-0001Xg-4R for submit@debbugs.gnu.org; Sun, 25 Oct 2020 10:41:45 -0400 Received: from eggs.gnu.org ([209.51.188.92]:36198) by debbugs.gnu.org with esmtp (Exim 4.84_2) (envelope-from ) id 1kWhDL-0001XR-S9 for 43893@debbugs.gnu.org; Sun, 25 Oct 2020 10:41:44 -0400 Received: from fencepost.gnu.org ([2001:470:142:3::e]:35313) by eggs.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1kWhDG-0005xY-Ez; Sun, 25 Oct 2020 10:41:38 -0400 Received: from [2a01:e0a:1d:7270:af76:b9b:ca24:c465] (port=55046 helo=ribbon) by fencepost.gnu.org with esmtpsa (TLS1.2:RSA_AES_256_CBC_SHA1:256) (Exim 4.82) (envelope-from ) id 1kWhDF-0001vk-Nj; Sun, 25 Oct 2020 10:41:37 -0400 From: =?utf-8?Q?Ludovic_Court=C3=A8s?= To: Maxim Cournoyer Subject: Re: bug#43893: [PATCH v3] maint: update-guix-package: Prevent accidentally breaking guix pull. References: <87imbedsko.fsf@gnu.org> <20201014031705.4516-1-maxim.cournoyer@gmail.com> Date: Sun, 25 Oct 2020 15:41:36 +0100 In-Reply-To: <20201014031705.4516-1-maxim.cournoyer@gmail.com> (Maxim Cournoyer's message of "Tue, 13 Oct 2020 23:17:05 -0400") Message-ID: <873622gyfz.fsf@gnu.org> User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/27.1 (gnu/linux) MIME-Version: 1.0 Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable X-Spam-Score: -2.3 (--) X-Debbugs-Envelope-To: 43893 Cc: 43893@debbugs.gnu.org, marius@gnu.org X-BeenThere: debbugs-submit@debbugs.gnu.org X-Mailman-Version: 2.1.18 Precedence: list List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: debbugs-submit-bounces@debbugs.gnu.org Sender: "Debbugs-submit" X-Spam-Score: -3.3 (---) Hi, Maxim Cournoyer skribis: > +(define %savannah-guix-git-repo-push-url > + "git.savannah.gnu.org/srv/git/guix.git") [...] > +(define (find-origin-remote) > + "Find the name of the git remote with the Savannah Guix git repo URL." > + (and-let* ((remotes (string-split (with-input-pipe-to-string > + "git" "remote" "-v") > + #\newline)) > + (origin-entry (find (cut string-contains <> > + (string-append > + %savannah-guix-git-repo-push-url > + " (push)")) > + remotes))) > + (first (string-split origin-entry #\tab)))) I noticed that this returns #f for me because I=E2=80=99m using git.sv.gnu.= org, not git.savannah.gnu.org. Initially I thought it would break due to i18n, but it seems that the string =E2=80=9Cpush=E2=80=9D is not translated (currently). Ludo=E2=80=99.