unofficial mirror of guix-patches@gnu.org 
 help / color / mirror / code / Atom feed
* [bug#66504] [PATCH] etc: snippets: Do not match unintended quotes.
@ 2023-10-12 18:19 Liliana Marie Prikler
  2023-10-15 10:33 ` bug#66504: " Liliana Marie Prikler
  0 siblings, 1 reply; 2+ messages in thread
From: Liliana Marie Prikler @ 2023-10-12 18:19 UTC (permalink / raw)
  To: 66504

* etc/snippets/tempel/scheme-mode (origin): Unquote ‘git-fetch’, ‘svn-fetch’,
‘hg-fetch’, ‘cvs-fetch’, and ‘bzr-fetch’.  Use ‘otherwise’ instead of ‘t’.
---
 etc/snippets/tempel/scheme-mode | 22 +++++++++++-----------
 1 file 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))

base-commit: 1328c4cca531318e3ed90c6aecb522a5b22a4bcc
prerequisite-patch-id: c1e8930b4fa8edf38130d45c5205a019b6e26dc7
prerequisite-patch-id: 730b3b393d9502ebb6b8339f7ead9589cec71c6f
prerequisite-patch-id: 1fdb09d54aa0ba3082f9501119c9810a36b0c66a
prerequisite-patch-id: 355921c4b3df14383f153b3ba8eb4d0ae6f0ab6c
-- 
2.41.0





^ permalink raw reply related	[flat|nested] 2+ messages in thread

* bug#66504: [PATCH] etc: snippets: Do not match unintended quotes.
  2023-10-12 18:19 [bug#66504] [PATCH] etc: snippets: Do not match unintended quotes Liliana Marie Prikler
@ 2023-10-15 10:33 ` Liliana Marie Prikler
  0 siblings, 0 replies; 2+ messages in thread
From: Liliana Marie Prikler @ 2023-10-15 10:33 UTC (permalink / raw)
  To: 66504-done

Am Donnerstag, dem 12.10.2023 um 20:19 +0200 schrieb Liliana Marie
Prikler:
> * etc/snippets/tempel/scheme-mode (origin): Unquote ‘git-fetch’,
> ‘svn-fetch’,
> ‘hg-fetch’, ‘cvs-fetch’, and ‘bzr-fetch’.  Use ‘otherwise’ instead of
> ‘t’.
> ---
Pushed.




^ permalink raw reply	[flat|nested] 2+ messages in thread

end of thread, other threads:[~2023-10-15 10:33 UTC | newest]

Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2023-10-12 18:19 [bug#66504] [PATCH] etc: snippets: Do not match unintended quotes Liliana Marie Prikler
2023-10-15 10:33 ` bug#66504: " Liliana Marie Prikler

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/guix.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).