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’.
This commit is contained in:
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

View File

@ -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))