02/02: etc: Use git-file-name if origin is git-fetch.

[Pierre Neidhardt]

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