17/17: import/utils: beautify-description: Recognize more fragments.

[guix-commits]

rekado pushed a commit to branch master
in repository guix.

commit 6e377b88930226f3f74ba9fac74d80c36494d9be
Author: Ricardo Wurmus <address@hidden>
Date:   Sat Sep 14 00:36:51 2019 +0200

    import/utils: beautify-description: Recognize more fragments.
    
    * guix/import/utils.scm (beautify-description): Handle additional common
    initial sentence fragments in descriptions.
---
 guix/import/utils.scm | 17 +++++++++++++----
 1 file changed, 13 insertions(+), 4 deletions(-)

diff --git a/guix/import/utils.scm b/guix/import/utils.scm
index 252875e..4694b6e 100644
--- a/guix/import/utils.scm
+++ b/guix/import/utils.scm
@@ -212,10 +212,19 @@ with dashes."
 (define (beautify-description description)
   "Improve the package DESCRIPTION by turning a beginning sentence fragment
 into a proper sentence and by using two spaces between sentences."
-  (let ((cleaned (if (string-prefix? "A " description)
-                     (string-append "This package provides a"
-                                    (substring description 1))
-                     description)))
+  (let ((cleaned (cond
+                  ((string-prefix? "A " description)
+                   (string-append "This package provides a"
+                                  (substring description 1)))
+                  ((string-prefix? "Provides " description)
+                   (string-append "This package provides"
+                                  (substring description
+                                             (string-length "Provides"))))
+                  ((string-prefix? "Functions " description)
+                   (string-append "This package provides functions"
+                                  (substring description
+                                             (string-length "Functions"))))
+                  (else description))))
     ;; Use double spacing between sentences
     (regexp-substitute/global #f "\\. \\b"
                               cleaned 'pre ".  " 'post)))