summary refs log tree commit diff
path: root/etc/snippets/scheme-mode/guix-origin
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2017-12-15 23:10:54 +0100
committerRicardo Wurmus <rekado@elephly.net>2017-12-15 23:15:32 +0100
commit42cdcdff1945b112452029c6a79445aac15ffd16 (patch)
treefebbc1a8d8980b89b6313157fc06401ef24b3506 /etc/snippets/scheme-mode/guix-origin
parent7683bf1183cfd05e5c4475265687096589d0239e (diff)
downloadguix-42cdcdff1945b112452029c6a79445aac15ffd16.tar.gz
etc: Add snippets.
* etc/snippets/scheme-mode/guix-cvs-reference,
etc/snippets/scheme-mode/guix-git-reference,
etc/snippets/scheme-mode/guix-hg-reference,
etc/snippets/scheme-mode/guix-origin,
etc/snippets/scheme-mode/guix-package,
etc/snippets/scheme-mode/guix-svn-reference,
etc/snippets/text-mode/guix-commit-message-add-package,
etc/snippets/text-mode/guix-commit-message-update-package: New files.
* doc/contributing.texi (The Perfect Setup): Document snippets.
Diffstat (limited to 'etc/snippets/scheme-mode/guix-origin')
-rw-r--r--etc/snippets/scheme-mode/guix-origin23
1 files changed, 23 insertions, 0 deletions
diff --git a/etc/snippets/scheme-mode/guix-origin b/etc/snippets/scheme-mode/guix-origin
new file mode 100644
index 0000000000..68d47135db
--- /dev/null
+++ b/etc/snippets/scheme-mode/guix-origin
@@ -0,0 +1,23 @@
+# -*- mode: snippet -*-
+# name: guix-origin
+# key: origin...
+# --
+(origin
+ (method ${1:$$(yas-choose-value "url-fetch"
+                                 "url-fetch/tarbomb"
+                                 "url-fetch/zipbomb"
+                                 "cvs-fetch"
+                                 "git-fetch"
+                                 "hg-fetch"
+                                 "svn-fetch")})
+ (uri ${1:$(cond ((equal yas-text "git-fetch") "git-reference...")
+                 ((equal yas-text "svn-fetch") "svn-reference...")
+                 ((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"))
+             "(file-name (string-append name \\"-\\" version \\"-checkout\\"))")
+            (t ""))}
+ (sha256
+  (base32
+    "$2")))
\ No newline at end of file