[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/02: etc: Use git-file-name if origin is git-fetch.
From: |
Pierre Neidhardt |
Subject: |
02/02: etc: Use git-file-name if origin is git-fetch. |
Date: |
Wed, 10 Oct 2018 11:34:53 -0400 (EDT) |
ambrevar pushed a commit to branch master
in repository guix.
commit d634db9401ac320383d45e24431442259cf6a2a4
Author: Pierre Neidhardt <address@hidden>
Date: Wed Oct 10 17:33:42 2018 +0200
etc: Use git-file-name if origin is git-fetch.
* etc/snippets/scheme-mode/guix-origin: Use git-file-name.
---
etc/snippets/scheme-mode/guix-origin | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/etc/snippets/scheme-mode/guix-origin
b/etc/snippets/scheme-mode/guix-origin
index 68d4713..1a068f8 100644
--- a/etc/snippets/scheme-mode/guix-origin
+++ b/etc/snippets/scheme-mode/guix-origin
@@ -15,7 +15,9 @@
((equal yas-text "hg-fetch") "hg-reference...")
((equal yas-text "cvs-fetch") "cvs-reference...")
(t "(string-append \\"https://\\" version
\\".tar.gz\\")"))}$0)
- ${1:$(cond ((member yas-text '("git-fetch" "svn-fetch" "hg-fetch"
"cvs-fetch"))
+ ${1:$(cond ((equal yas-text "git-fetch")
+ "(file-name (git-file-name name version))")
+ ((member yas-text '("svn-fetch" "hg-fetch" "cvs-fetch"))
"(file-name (string-append name \\"-\\" version
\\"-checkout\\"))")
(t ""))}
(sha256