me
/
guix
Archived
1
0
Fork 0

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’.
Liliana Marie Prikler 2023-10-12 20:19:08 +02:00
parent f0a01ff42a
commit ef026e68fe
No known key found for this signature in database
GPG Key ID: 442A84B8C70E2F87
1 changed files with 11 additions and 11 deletions

View File

@ -18,32 +18,32 @@ scheme-mode
"(origin" "(origin"
n> "(method " (p "url-fetch" method) ")" n> "(method " (p "url-fetch" method) ")"
n> "(uri " (cl-case (and method (intern method)) n> "(uri " (cl-case (and method (intern method))
('git-fetch "git-reference...") (git-fetch "git-reference...")
('svn-fetch "svn-reference...") (svn-fetch "svn-reference...")
('hg-fetch "hg-reference...") (hg-fetch "hg-reference...")
('cvs-fetch "cvs-reference...") (cvs-fetch "cvs-reference...")
('bzr-fetch "bzr-reference...") (bzr-fetch "bzr-reference...")
(t "\"https://...\"")) (otherwise "\"https://...\""))
")" ")"
n> n>
(cl-case (and method (intern method)) (cl-case (and method (intern method))
('git-fetch (git-fetch
(insert "(file-name (git-file-name name version))") (insert "(file-name (git-file-name name version))")
(newline) (newline)
(indent-according-to-mode)) (indent-according-to-mode))
('hg-fetch (hg-fetch
(insert "(file-name (hg-file-name name version))") (insert "(file-name (hg-file-name name version))")
(newline) (newline)
(indent-according-to-mode)) (indent-according-to-mode))
('svn-fetch (svn-fetch
(insert "(file-name (string-append name \"-\" version \"-checkout\"))") (insert "(file-name (string-append name \"-\" version \"-checkout\"))")
(newline) (newline)
(indent-according-to-mode)) (indent-according-to-mode))
('cvs-fetch (cvs-fetch
(insert "(file-name (string-append name \"-\" version \"-checkout\"))") (insert "(file-name (string-append name \"-\" version \"-checkout\"))")
(newline) (newline)
(indent-according-to-mode)) (indent-according-to-mode))
('bzr-fetch (bzr-fetch
(insert "(file-name (string-append name \"-\" version \"-checkout\"))") (insert "(file-name (string-append name \"-\" version \"-checkout\"))")
(newline) (newline)
(indent-according-to-mode)) (indent-according-to-mode))