~ruther/guix-local

2e6c177149eab059e073a8e3476abd118ee58a99 — Zheng Junjie 1 year, 4 months ago 6d4d231
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>
1 files changed, 3 insertions(+), 6 deletions(-)

M guix/import/nuget.scm
M guix/import/nuget.scm => guix/import/nuget.scm +3 -6
@@ 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