From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:470:142:3::10]:40575) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1j7GC8-0004VB-Tt for guix-patches@gnu.org; Thu, 27 Feb 2020 05:15:08 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1j7GC6-0001kE-PJ for guix-patches@gnu.org; Thu, 27 Feb 2020 05:15:04 -0500 Received: from debbugs.gnu.org ([209.51.188.43]:52724) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1j7GC6-0001jh-LJ for guix-patches@gnu.org; Thu, 27 Feb 2020 05:15:02 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1j7GC6-0004hM-GV for guix-patches@gnu.org; Thu, 27 Feb 2020 05:15:02 -0500 Subject: [bug#38738] [PATCH WIP v2] etc: Add "tarball" snippet Resent-Message-ID: From: Pierre Neidhardt References: <87h81pymzj.fsf@gnu.org> <87eewszz20.fsf@gnu.org> Date: Thu, 27 Feb 2020 11:14:26 +0100 In-Reply-To: <87eewszz20.fsf@gnu.org> (Brett Gilio's message of "Wed, 25 Dec 2019 00:42:15 -0600") Message-ID: <87wo8872wt.fsf@ambrevar.xyz> MIME-Version: 1.0 Content-Type: multipart/signed; boundary="=-=-="; micalg=pgp-sha256; protocol="application/pgp-signature" List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: Brett Gilio Cc: 38738@debbugs.gnu.org --=-=-= Content-Type: text/plain Content-Transfer-Encoding: quoted-printable Looks good to me! If you want to print only one "[source]:" I suggest the following, untested: * `(car (magit-staged-files))` ($1): Modify package to use stable git refer= ences. `(with-temp-buffer (magit-git-wash #'magit-diff-wash-diffs "diff" "--staged") (let ((source-block "[source]: ") (wrote-source-block? nil)) (beginning-of-buffer) (when (search-forward "(method git-fetch" nil 'noerror) (setq wrote-source-block? t) (print (format "%sUse GIT-FETCH." source-block))) (beginning-of-buffer) (when (search-forward "(file-name (git-file-name" nil 'noerror) (print (format "%sUse GIT-FILE-NAME." (if wrote-source-block? "" "[s= ource]:"))))))` =2D-=20 Pierre Neidhardt https://ambrevar.xyz/ --=-=-= Content-Type: application/pgp-signature; name="signature.asc" -----BEGIN PGP SIGNATURE----- iQEzBAEBCAAdFiEEUPM+LlsMPZAEJKvom9z0l6S7zH8FAl5XloIACgkQm9z0l6S7 zH/56wgAmSr/Dwtash1hoaudTY1DMtgfEpcbZNFuoUpOZDcbF16JN88wn6DjEth+ FZde8Q35OYdkWbNufzf9Xl9cZT89pS+oH8OFpq6oYyX6kXT6JFXJ6UGDt8B0pQmY geE6ampU3VaLh0nwGqpV8CjyIR4VT4TcG7iRDWyECSdDsbVrpq1S8NHh6UNCLFSl FSMyUMcz6JirZcz21W0pk4fvviCDxCGLuU7bM+ylxKciGu2+zveyFGWKyk9yuLrC 3+dbMO30AJqFlqcC+6+RXRD8qjvE2yKBOxSQ71aPaiuHgkRojfSZSYXPsLcF32db kWgdLLhr+FkqGK3bHKN0+pTZmacmpw== =w1Z+ -----END PGP SIGNATURE----- --=-=-=--