Subject: bug#49141: closed (Re: bug#49141: [PATCH] etc: snippets: Use‘hg-file-name’ when origin uses‘hg-fetch’.)

From: [email-masked] (GNU bug Tracking System)
Date: Sat, 26 Jun 2021 20:46:02 +0000

Your bug report

#49141: [PATCH] etc: snippets: Use ‘hg-file-name’ when origin uses ‘hg-fetch’.

which was filed against the guix-patches package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to [email-masked].

-- 
49141: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=49141
GNU Bug Tracking System
Contact [email-masked] with problems

Subject: Re: bug#49141: [PATCH] etc: snippets: Use ‘hg-file-name’ when origin uses ‘hg-fetch’.
From: Ludovic Courtès <[email-masked]>
To: Xinglu Chen <[email-masked]>
Cc: [email-masked]
Date: Sat, 26 Jun 2021 22:45:39 +0200
List-Id: <debbugs-submit.debbugs.gnu.org>

Hi,

Xinglu Chen <[email-masked]> skribis:

> Adjust to changes in commit aaafd19bd1e37265de07e246286a6819792c25b4.
>
> * etc/snippets/scheme-mode/guix-origin: Use ‘hg-file-name’ instead of
> ‘string-append’ when ‘method’ for origin is ‘hg-fetch’.

Applied, thanks!

Ludo’.

Subject: [PATCH] etc: snippets: Use ‘hg-file-name’ when origin uses ‘hg-fetch’.
From: Xinglu Chen <[email-masked]>
To: [email-masked]
Date: Sun, 20 Jun 2021 18:30:14 +0200
List-Id: <debbugs-submit.debbugs.gnu.org>

Adjust to changes in commit aaafd19bd1e37265de07e246286a6819792c25b4.

* etc/snippets/scheme-mode/guix-origin: Use ‘hg-file-name’ instead of
‘string-append’ when ‘method’ for origin is ‘hg-fetch’.
---
 etc/snippets/scheme-mode/guix-origin | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/etc/snippets/scheme-mode/guix-origin b/etc/snippets/scheme-mode/guix-origin
index 2820a369f3..b763a32926 100644
--- a/etc/snippets/scheme-mode/guix-origin
+++ b/etc/snippets/scheme-mode/guix-origin
@@ -19,6 +19,8 @@
                  (t "(string-append \\"https://\\" version \\".tar.gz\\")"))}$0)
  ${1:$(cond ((equal yas-text "git-fetch")
              "(file-name (git-file-name name version))")
+            ((equal yas-text "hg-fetch")
+             "(file-name (hg-file-name name version))")
             ((member yas-text '("svn-fetch" "hg-fetch" "cvs-fetch" "bzr-fetch"))
              "(file-name (string-append name \\"-\\" version \\"-checkout\\"))")
             (t ""))}

base-commit: a211078f992bc5a26eaf787c6b01caa41de67597
-- 
2.32.0