amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

import: nuget: use snake-case.

Browse source 
* 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>
This commit is contained in:
Zheng Junjie 2025-06-19 22:37:21 +08:00 • committed by Sharlatan Hellseher
parent 6d4d231a57
commit 2e6c177149
No known key found for this signature in database
GPG key ID: 76D727BFF62CD2B5
1 changed files with 3 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

9
guix/import/nuget.scm
View file

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