diff options
| author | Liliana Marie Prikler <liliana.prikler@gmail.com> | 2023-10-12 20:19:08 +0200 |
|---|---|---|
| committer | Liliana Marie Prikler <liliana.prikler@gmail.com> | 2023-10-15 12:28:19 +0200 |
| commit | ef026e68fe58ed3be216c76f7c5f008893ed3095 (patch) | |
| tree | 7cf90c727182482ba226a7eb38ef9d9f0af00c5c | |
| parent | f0a01ff42afd5862a42aa2c6a9aba57061001def (diff) | |
| download | guix-ef026e68fe58ed3be216c76f7c5f008893ed3095.tar.gz | |
etc: snippets: Do not match unintended quotes.
* etc/snippets/tempel/scheme-mode (origin): Unquote ‘git-fetch’, ‘svn-fetch’, ‘hg-fetch’, ‘cvs-fetch’, and ‘bzr-fetch’. Use ‘otherwise’ instead of ‘t’.
| -rw-r--r-- | etc/snippets/tempel/scheme-mode | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/etc/snippets/tempel/scheme-mode b/etc/snippets/tempel/scheme-mode index ef73a1e595..249f4ce8e3 100644 --- a/etc/snippets/tempel/scheme-mode +++ b/etc/snippets/tempel/scheme-mode @@ -18,32 +18,32 @@ scheme-mode "(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://...\"")) + (git-fetch "git-reference...") + (svn-fetch "svn-reference...") + (hg-fetch "hg-reference...") + (cvs-fetch "cvs-reference...") + (bzr-fetch "bzr-reference...") + (otherwise "\"https://...\"")) ")" n> (cl-case (and method (intern method)) - ('git-fetch + (git-fetch (insert "(file-name (git-file-name name version))") (newline) (indent-according-to-mode)) - ('hg-fetch + (hg-fetch (insert "(file-name (hg-file-name name version))") (newline) (indent-according-to-mode)) - ('svn-fetch + (svn-fetch (insert "(file-name (string-append name \"-\" version \"-checkout\"))") (newline) (indent-according-to-mode)) - ('cvs-fetch + (cvs-fetch (insert "(file-name (string-append name \"-\" version \"-checkout\"))") (newline) (indent-according-to-mode)) - ('bzr-fetch + (bzr-fetch (insert "(file-name (string-append name \"-\" version \"-checkout\"))") (newline) (indent-according-to-mode)) |