From 2c9867fde520bc05f85975e9a6fd4e46dc1dc4f9 Mon Sep 17 00:00:00 2001 From: Maxim Cournoyer Date: Thu, 12 Dec 2024 21:03:03 +0900 Subject: import/utils: Replace '.' by '-' in snake-case procedure. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * guix/import/utils.scm (snake-case): Replace '.' by '-'. Update doc. Change-Id: I46f2e066c82849627464d0690549288ebbc4e926 Reviewed-by: Ludovic Courtès --- 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 @@ (define licenses (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 -- cgit v1.2.3