Message ID | 20240502125900.15177-4-herman@rimm.ee |
---|---|
State | New |
Headers | show |
Series | Change imported crate style. | expand |
diff --git a/guix/import/utils.scm b/guix/import/utils.scm index 09a01cf315..e06f06e196 100644 --- a/guix/import/utils.scm +++ b/guix/import/utils.scm @@ -370,6 +370,13 @@ (define* (beautify-description description #:optional (length 80)) (cons* "This" "package" (string-downcase first) rest)) (_ words))) + (new-words + (match new-words + ((rest ... last) + (reverse (cons (if (string-suffix? "." last) + last + (string-append last ".")) + (reverse rest)))))) (cleaned (string-join (map fix-word new-words)))) ;; Use double spacing between sentences