summary refs log tree commit diff
path: root/etc
diff options
context:
space:
mode:
authorLiliana Marie Prikler <liliana.prikler@gmail.com>2023-10-12 20:19:08 +0200
committerLiliana Marie Prikler <liliana.prikler@gmail.com>2023-10-15 12:28:19 +0200
commitef026e68fe58ed3be216c76f7c5f008893ed3095 (patch)
tree7cf90c727182482ba226a7eb38ef9d9f0af00c5c /etc
parentf0a01ff42afd5862a42aa2c6a9aba57061001def (diff)
downloadguix-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’.
Diffstat (limited to 'etc')
-rw-r--r--etc/snippets/tempel/scheme-mode22
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))