summaryrefslogtreecommitdiff
path: root/etc/snippets
diff options
context:
space:
mode:
authorPierre Neidhardt <mail@ambrevar.xyz>2018-10-10 17:33:42 +0200
committerPierre Neidhardt <mail@ambrevar.xyz>2018-10-10 17:33:42 +0200
commitd634db9401ac320383d45e24431442259cf6a2a4 (patch)
treef6cf9c6fbc482c2a821da3e7a4e32a7b3db1a768 /etc/snippets
parent903378910e32a6981199a1669e67c46ca9be2187 (diff)
etc: Use git-file-name if origin is git-fetch.
* etc/snippets/scheme-mode/guix-origin: Use git-file-name.
Diffstat (limited to 'etc/snippets')
-rw-r--r--etc/snippets/scheme-mode/guix-origin4
1 files changed, 3 insertions, 1 deletions
diff --git a/etc/snippets/scheme-mode/guix-origin b/etc/snippets/scheme-mode/guix-origin
index 68d47135db..1a068f8859 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