[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/06: import: utils: Wrap lines in description.
From: |
guix-commits |
Subject: |
01/06: import: utils: Wrap lines in description. |
Date: |
Fri, 17 Dec 2021 11:31:11 -0500 (EST) |
civodul pushed a commit to branch master
in repository guix.
commit 5cd1019488c44081aaf030fbe8bc357d78daef23
Author: Xinglu Chen <public@yoctocell.xyz>
AuthorDate: Fri Dec 17 14:10:30 2021 +0100
import: utils: Wrap lines in description.
* guix/import/utils.scm (beautify-description): Use ‘fill-paragraph’; add
optional ‘length’ argument.
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
---
guix/import/utils.scm | 14 +++++++++-----
1 file changed, 9 insertions(+), 5 deletions(-)
diff --git a/guix/import/utils.scm b/guix/import/utils.scm
index dc89386..1c3cfa3 100644
--- a/guix/import/utils.scm
+++ b/guix/import/utils.scm
@@ -9,6 +9,7 @@
;;; Copyright © 2020 Martin Becze <mjbecze@riseup.net>
;;; Copyright © 2021 Maxim Cournoyer <maxim.cournoyer@gmail.com>
;;; Copyright © 2021 Sarah Morgensen <iskarian@mgsn.dev>
+;;; Copyright © 2021 Xinglu Chen <public@yoctocell.xyz>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -39,6 +40,7 @@
#:use-module (guix store)
#:use-module (guix download)
#:use-module (guix sets)
+ #:use-module (guix ui)
#:use-module (gnu packages)
#:use-module (ice-9 match)
#:use-module (ice-9 rdelim)
@@ -234,9 +236,10 @@ to in the (guix licenses) module, or #f if there is no
such known license."
with dashes."
(string-join (string-split (string-downcase str) #\_) "-"))
-(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."
+(define* (beautify-description description #:optional (length 80))
+ "Improve the package DESCRIPTION by turning a beginning sentence fragment
into
+a proper sentence and by using two spaces between sentences, and wrap lines at
+LENGTH characters."
(let ((cleaned (cond
((string-prefix? "A " description)
(string-append "This package provides a"
@@ -251,8 +254,9 @@ into a proper sentence and by using two spaces between
sentences."
(string-length "Functions"))))
(else description))))
;; Use double spacing between sentences
- (regexp-substitute/global #f "\\. \\b"
- cleaned 'pre ". " 'post)))
+ (fill-paragraph (regexp-substitute/global #f "\\. \\b"
+ cleaned 'pre ". " 'post)
+ length)))
(define* (package-names->package-inputs names #:optional (output #f))
"Given a list of PACKAGE-NAMES or (PACKAGE-NAME VERSION) pairs, and an
- branch master updated (d6abbfd -> 4204156), guix-commits, 2021/12/17
- 01/06: import: utils: Wrap lines in description.,
guix-commits <=
- 02/06: import: Beautify descriptions when appropriate., guix-commits, 2021/12/17
- 03/06: guix hash: Support several files., guix-commits, 2021/12/17
- 04/06: guix hash: Add 'serializer' option., guix-commits, 2021/12/17
- 05/06: guix hash: Add git serializer., guix-commits, 2021/12/17
- 06/06: doc: Format 'guix hash -S' values as a table., guix-commits, 2021/12/17