me
/
guix
Archived
1
0
Fork 0
Code

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

* guix/import/utils.scm (beautify-description): Handle additional common
initial sentence fragments in descriptions.
master
Ricardo Wurmus 2019-09-14 00:36:51 +02:00
parent 981dcc3b0c
commit 6e377b8893
No known key found for this signature in database
GPG Key ID: 197A5888235FACAC
1 changed files with 13 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
guix/import/utils.scm
View File

@ -212,10 +212,19 @@ with dashes."
(define (beautify-description description) (define (beautify-description description)
"Improve the package DESCRIPTION by turning a beginning sentence fragment "Improve the package DESCRIPTION by turning a beginning sentence fragment
into a proper sentence and by using two spaces between sentences." into a proper sentence and by using two spaces between sentences."
(let ((cleaned (if (string-prefix? "A " description) (let ((cleaned (cond
(string-append "This package provides a" ((string-prefix? "A " description)
(substring description 1)) (string-append "This package provides a"
description))) (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 ;; Use double spacing between sentences
(regexp-substitute/global #f "\\. \\b" (regexp-substitute/global #f "\\. \\b"
cleaned 'pre ". " 'post))) cleaned 'pre ". " 'post)))