diff options
| author | Pierre Neidhardt <mail@ambrevar.xyz> | 2018-10-10 17:33:42 +0200 |
|---|---|---|
| committer | Pierre Neidhardt <mail@ambrevar.xyz> | 2018-10-10 17:33:42 +0200 |
| commit | d634db9401ac320383d45e24431442259cf6a2a4 (patch) | |
| tree | f6cf9c6fbc482c2a821da3e7a4e32a7b3db1a768 | |
| parent | 903378910e32a6981199a1669e67c46ca9be2187 (diff) | |
| download | guix-d634db9401ac320383d45e24431442259cf6a2a4.tar.gz | |
etc: Use git-file-name if origin is git-fetch.
* etc/snippets/scheme-mode/guix-origin: Use git-file-name.
| -rw-r--r-- | etc/snippets/scheme-mode/guix-origin | 4 |
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 |