mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 21:38:07 -05:00
import/utils: beautify-description: Add case for "Implements".
* guix/import/utils.scm (beautify-description): Add case to transform sentences beginning with "Implements".
This commit is contained in:
parent
a901d8e0da
commit
b0c9f03248
1 changed files with 5 additions and 1 deletions
|
@ -2,7 +2,7 @@
|
|||
;;; Copyright © 2012, 2013, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
|
||||
;;; Copyright © 2016 Jelle Licht <jlicht@fsfe.org>
|
||||
;;; Copyright © 2016 David Craven <david@craven.ch>
|
||||
;;; Copyright © 2017, 2019, 2020 Ricardo Wurmus <rekado@elephly.net>
|
||||
;;; Copyright © 2017, 2019, 2020, 2022 Ricardo Wurmus <rekado@elephly.net>
|
||||
;;; Copyright © 2018 Oleg Pykhalov <go.wigust@gmail.com>
|
||||
;;; Copyright © 2019 Robert Vollmert <rob@vllmrt.net>
|
||||
;;; Copyright © 2020 Helio Machado <0x2b3bfa0+guix@googlemail.com>
|
||||
|
@ -283,6 +283,10 @@ (define* (beautify-description description #:optional (length 80))
|
|||
(string-append "This package provides"
|
||||
(substring description
|
||||
(string-length "Provides"))))
|
||||
((string-prefix? "Implements " description)
|
||||
(string-append "This package implements"
|
||||
(substring description
|
||||
(string-length "Implements"))))
|
||||
((string-prefix? "Functions " description)
|
||||
(string-append "This package provides functions"
|
||||
(substring description
|
||||
|
|
Loading…
Reference in a new issue