mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-29 07:42:23 -05:00
d92ec2f281
Since we encourage using variables rather than magic hashes in the commit fields, e.g. (commit version) and (commit commit), the default for tempel to use quoted strings is rather off. Thus, let the placeholder reflect actual usage. * etc/snippets/tempel/scheme-mode (git-reference...)[commit]: Use field name as placeholder and don't quote value. (svn-reference..., bzr-reference...)[revision]: Likewise. (hg-reference...)[changeset]: Likewise.
89 lines
2.3 KiB
Text
89 lines
2.3 KiB
Text
-*- mode: lisp-data -*-
|
|
|
|
scheme-mode
|
|
|
|
(package...
|
|
"(define-public " (s name)
|
|
n> "(package"
|
|
n > "(name \"" (s name) "\")"
|
|
n > "(version \"" p "\")"
|
|
n > "(source origin...)"
|
|
n > "(build-system " (p "gnu") "-build-system)"
|
|
n > "(home-page \"" p "\")"
|
|
n > "(synopsis \"" p "\")"
|
|
n > "(description \"" p "\")"
|
|
n > "(license license:" (p "unknown") ")))" n)
|
|
|
|
(origin...
|
|
"(origin"
|
|
n> "(method " (p "url-fetch" method) ")"
|
|
n> "(uri " (cl-case (and method (intern method))
|
|
('git-fetch "git-reference...")
|
|
('svn-fetch "svn-reference...")
|
|
('hg-fetch "hg-reference...")
|
|
('cvs-fetch "cvs-reference...")
|
|
('bzr-fetch "bzr-reference...")
|
|
(t "\"https://...\""))
|
|
")"
|
|
n>
|
|
(cl-case (and method (intern method))
|
|
('git-fetch
|
|
(insert "(file-name (git-file-name name version))")
|
|
(newline)
|
|
(indent-according-to-mode))
|
|
('hg-fetch
|
|
(insert "(file-name (hg-file-name name version))")
|
|
(newline)
|
|
(indent-according-to-mode))
|
|
('svn-fetch
|
|
(insert "(file-name (string-append name \"-\" version \"-checkout\"))")
|
|
(newline)
|
|
(indent-according-to-mode))
|
|
('cvs-fetch
|
|
(insert "(file-name (string-append name \"-\" version \"-checkout\"))")
|
|
(newline)
|
|
(indent-according-to-mode))
|
|
('bzr-fetch
|
|
(insert "(file-name (string-append name \"-\" version \"-checkout\"))")
|
|
(newline)
|
|
(indent-according-to-mode))
|
|
(t ""))
|
|
> "(sha256"
|
|
n > "(base32 \""
|
|
;; hash of an empty directory
|
|
(p "0sjjj9z1dhilhpc8pq4154czrb79z9cm044jvn75kxcjv6v5l2m5") "\")))")
|
|
|
|
(git-reference...
|
|
"(git-reference"
|
|
n> "(url \"" p "\")"
|
|
n> "(commit " (p "commit") "))")
|
|
|
|
(svn-reference...
|
|
"(svn-reference"
|
|
n> "(url \"" p "\")"
|
|
n> "(revision " (p "revision") "))")
|
|
|
|
(cvs-reference...
|
|
"(cvs-reference"
|
|
n> "(root-directory \"" p "\")"
|
|
n> "(module \"" p "\")"
|
|
n> "(revision \"" p "\"))")
|
|
|
|
(hg-reference...
|
|
"(hg-reference"
|
|
n> "(url \"" p "\")"
|
|
n> "(changeset " (p "changeset") "))")
|
|
|
|
(bzr-reference...
|
|
"(bzr-reference"
|
|
n> "(url \"" p "\")"
|
|
n> "(revision " (p "revision") "))")
|
|
|
|
(:phases\ "#:phases (modify-phases %standard-phases"
|
|
n> p ")")
|
|
|
|
(add-before\ "(add-before '" p " '" p
|
|
n > p ")")
|
|
(add-after\ "(add-after '" p " '" p
|
|
n > p ")")
|
|
(replace\ "(replace '" p " " p")")
|