diff options
| author | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2024-12-12 21:03:03 +0900 |
|---|---|---|
| committer | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2024-12-16 09:54:23 +0900 |
| commit | 2c9867fde520bc05f85975e9a6fd4e46dc1dc4f9 (patch) | |
| tree | eb39caac429b6e4cd964df06a7b2192c6cd8bbab | |
| parent | a945eb151a7c85b4708955388674b50b92ed16c7 (diff) | |
| download | guix-2c9867fde520bc05f85975e9a6fd4e46dc1dc4f9.tar.gz guix-2c9867fde520bc05f85975e9a6fd4e46dc1dc4f9.zip | |
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 <ludo@gnu.org>
| -rw-r--r-- | guix/import/utils.scm | 9 |
1 files 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 |