From 2e6c177149eab059e073a8e3476abd118ee58a99 Mon Sep 17 00:00:00 2001
From: Zheng Junjie <z572@z572.online>
Date: Thu, 19 Jun 2025 22:37:21 +0800
Subject: [PATCH] import: nuget: use snake-case.

* guix/import/nuget.scm (nuget-name->guix-name): use snake-case.

Change-Id: I8371d2fd6b33170c61c86302117f7952123e05b5
Reviewed-by: Danny Milosavljevic <dannym@friendly-machines.com>
Signed-off-by: Sharlatan Hellseher <sharlatanus@gmail.com>
---
 guix/import/nuget.scm | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/guix/import/nuget.scm b/guix/import/nuget.scm
index baa61e20252..cbe36e29a92 100644
--- a/guix/import/nuget.scm
+++ b/guix/import/nuget.scm
@@ -7,6 +7,7 @@
 ;;; Copyright © 2021 Simon Tournier <zimon.toutoune@gmail.com>
 ;;; Copyright © 2022 Hartmut Goebel <h.goebel@crazy-compilers.com>
 ;;; Copyright © 2025 Danny Milosavljevic <dannym@friendly-machines.com>
+;;; Copyright © 2025 Zheng Junjie <z572@z572.online>
 ;;;
 ;;; This file is part of GNU Guix.
 ;;;
@@ -49,7 +50,7 @@
   #:use-module (guix memoization)
   #:use-module (guix utils)
   #:use-module ((guix import utils)
-                #:select (factorize-uri recursive-import flatten))
+                #:select (factorize-uri snake-case recursive-import flatten))
   #:use-module (guix base32)
   #:use-module (guix build utils)
   #:use-module (guix git)
@@ -301,11 +302,7 @@ success, or #f on failure."
         '()))))
 
 (define (nuget-name->guix-name name)
-  (string-downcase (string-append "dotnet-" (string-map (lambda (c)
-                                                          (if (char=? c #\.)
-                                                              #\-
-                                                              c))
-                                                        name))))
+  (string-append "dotnet-" (snake-case name)))
 
 (define nuget->guix-package
   (memoize