aboutsummaryrefslogtreecommitdiff
path: root/etc/snippets/yas/scheme-mode/guix-origin
diff options
context:
space:
mode:
authorNicolas Graves <ngraves@ngraves.fr>2022-08-12 10:58:48 +0200
committerLiliana Marie Prikler <liliana.prikler@gmail.com>2022-08-30 11:50:14 +0200
commitc4acaf412064568a546034871a9e0d3888aa7937 (patch)
tree5e7bded5fd11b96dc65627b54942f6da5792abf8 /etc/snippets/yas/scheme-mode/guix-origin
parent6beadc82df204f315d06ea35f2e232bb32f8e440 (diff)
downloadguix-c4acaf412064568a546034871a9e0d3888aa7937.tar.gz
guix-c4acaf412064568a546034871a9e0d3888aa7937.zip
etc: Add tempel snippets.
* etc/snippets/tempel/scheme-mode: New file. * etc/snippets/tempel/text-mode: New file. * etc/snippets/scheme-mode: Moved from here... * etc/snippets/yas/scheme-mode: ... to here. * etc/snippets/text-mode: Moved from here... * etc/snippets/yas/text-mode: ... to here. * doc/contributing.texi ("The Perfect Setup"): Adjust yasnippet setup accordingly. Add tempel setup. Signed-off-by: Liliana Marie Prikler <liliana.prikler@gmail.com>
Diffstat (limited to 'etc/snippets/yas/scheme-mode/guix-origin')
-rw-r--r--etc/snippets/yas/scheme-mode/guix-origin29
1 files changed, 29 insertions, 0 deletions
diff --git a/etc/snippets/yas/scheme-mode/guix-origin b/etc/snippets/yas/scheme-mode/guix-origin
new file mode 100644
index 0000000000..eb0cdc8242
--- /dev/null
+++ b/etc/snippets/yas/scheme-mode/guix-origin
@@ -0,0 +1,29 @@
+# -*- 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"
+ "bzr-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...")
+ ((equal yas-text "bzr-fetch") "bzr-reference...")
+ (t "(string-append \\"https://\\" version \\".tar.gz\\")"))}$0)
+ ${1:$(cond ((equal yas-text "git-fetch")
+ "(file-name (git-file-name name version))")
+ ((equal yas-text "hg-fetch")
+ "(file-name (hg-file-name name version))")
+ ((member yas-text '("svn-fetch" "cvs-fetch" "bzr-fetch"))
+ "(file-name (string-append name \\"-\\" version \\"-checkout\\"))")
+ (t ""))}
+ (sha256
+ (base32
+ "$2"))) \ No newline at end of file