ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-26 14:28:15 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

import/utils: Add more initial words to beautify-description.

Browse source 
* guix/import/utils.scm (beautify-description): Add "Classes" and "Tools" to
initial words to be prefixed with "This package provides".
This commit is contained in:
Ricardo Wurmus 2023-07-19 15:23:32 +02:00
parent 571ad39628
commit 45bf1a9a6b
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
guix/import/utils.scm
View file

@ -2,7 +2,7 @@
;;; Copyright © 2012, 2013, 2018, 2019, 2020, 2023 Ludovic Courtès <ludo@gnu.org>
;;; Copyright © 2016 Jelle Licht <jlicht@fsfe.org>
;;; Copyright © 2016 David Craven <david@craven.ch>
;;; Copyright © 2017, 2019, 2020, 2022 Ricardo Wurmus <rekado@elephly.net>
;;; Copyright © 2017, 2019, 2020, 2022, 2023 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>
@ -342,7 +342,8 @@ (define* (beautify-description description #:optional (length 80))
(char-set #\space #\newline))))
(new-words
(match words
(((and (or "A" "Functions" "Methods") first) . rest)
(((and (or "A" "Classes" "Functions" "Methods" "Tools")
first) . rest)
(cons* "This" "package" "provides"
(string-downcase first) rest))
(((and (or "Contains"