ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 22:08:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

import/utils: beautify-description: Add case for "Implements".

Browse source 
* guix/import/utils.scm (beautify-description): Add case to transform
sentences beginning with "Implements".
This commit is contained in:
Ricardo Wurmus 2022-08-25 11:51:41 +02:00
parent a901d8e0da
commit b0c9f03248
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
guix/import/utils.scm
View file

@ -2,7 +2,7 @@
;;; Copyright © 2012, 2013, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2012, 2013, 2018, 2019, 2020 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016 Jelle Licht <jlicht@fsfe.org> ;;; Copyright © 2016 Jelle Licht <jlicht@fsfe.org>
;;; Copyright © 2016 David Craven <david@craven.ch> ;;; 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 © 2018 Oleg Pykhalov <go.wigust@gmail.com>
;;; Copyright © 2019 Robert Vollmert <rob@vllmrt.net> ;;; Copyright © 2019 Robert Vollmert <rob@vllmrt.net>
;;; Copyright © 2020 Helio Machado <0x2b3bfa0+guix@googlemail.com> ;;; Copyright © 2020 Helio Machado <0x2b3bfa0+guix@googlemail.com>
@ -283,6 +283,10 @@ (define* (beautify-description description #:optional (length 80))
(string-append "This package provides" (string-append "This package provides"
(substring description (substring description
(string-length "Provides")))) (string-length "Provides"))))
((string-prefix? "Implements " description)
(string-append "This package implements"
(substring description
(string-length "Implements"))))
((string-prefix? "Functions " description) ((string-prefix? "Functions " description)
(string-append "This package provides functions" (string-append "This package provides functions"
(substring description (substring description