apteryx pushed a commit to branch master
in repository guix.
commit 2c9867fde520bc05f85975e9a6fd4e46dc1dc4f9
Author: Maxim Cournoyer <[email protected]>
AuthorDate: Thu Dec 12 21:03:03 2024 +0900
import/utils: Replace '.' by '-' in snake-case procedure.
* guix/import/utils.scm (snake-case): Replace '.' by '-'. Update doc.
Change-Id: I46f2e066c82849627464d0690549288ebbc4e926
Reviewed-by: Ludovic Courtès <[email protected]>
---
guix/import/utils.scm | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/guix/import/utils.scm b/guix/import/utils.scm
index ccf18a7bf9..e45c8dfb20 100644
--- a/guix/import/utils.scm
+++ b/guix/import/utils.scm
@@ -317,9 +317,12 @@ object is bound to in the (guix licenses) module, such as
'license:gpl3+, or
(assoc-ref licenses license))
(define (snake-case str)
- "Return a downcased version of the string STR where underscores are replaced
-with dashes."
- (string-join (string-split (string-downcase str) #\_) "-"))
+ "Return a downcased version of the string STR where underscores and periods
+are replaced with dashes."
+ (string-map (match-lambda
+ ((or #\_ #\.) #\-)
+ (chr chr))
+ (string-downcase str)))
(define* (beautify-description description #:optional (length 80))
"Improve the package DESCRIPTION by turning a beginning sentence fragment
into
