mirror/guix
mirror/guix
1
Fork 0
mirror of https://https.git.savannah.gnu.org/git/guix.git/ synced 2025-07-13 10:30:43 +02:00
Code Releases Activity

Add (guix bzr-download).

Browse source 
* guix/bzr-download.scm, guix/build/bzr.scm,
etc/snippets/scheme-mode/guix-bzr-reference: New files.
* Makefile.am (MODULES): Add them.
* etc/snippets/scheme-mode/guix-origin: Add "bzr-fetch" to the origin choices.
This commit is contained in:
Maxim Cournoyer 2018-11-20 23:11:29 -05:00
parent c526b3176f
commit 4ac69ea10f
No known key found for this signature in database
GPG key ID: 1260E46482E63562
5 changed files with 142 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
etc/snippets/scheme-mode/guix-bzr-reference Normal file
View file

@ -0,0 +1,7 @@
# -*- mode: snippet -*-
# name: guix-bzr-reference
# key: bzr-reference...
# --
(bzr-reference
(url "$1")
(revision ${2:ref}))

6
etc/snippets/scheme-mode/guix-origin
View file

@ -9,15 +9,17 @@
"cvs-fetch"
"git-fetch"
"hg-fetch"
"svn-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))")
((member yas-text '("svn-fetch" "hg-fetch" "cvs-fetch"))
((member yas-text '("svn-fetch" "hg-fetch" "cvs-fetch" "bzr-fetch"))
"(file-name (string-append name \\"-\\" version \\"-checkout\\"))")
(t ""))}
(sha256