From e62fd9004bf0e4a9b32f7ce3c1192aa067349b83 Mon Sep 17 00:00:00 2001 From: Herman Rimm Date: Sun, 12 May 2024 21:08:31 +0200 Subject: import: crate: Include a main verb in crate importer descriptions. MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * guix/import/crate.scm (make-crate-sexp): Start description with 'This package provides '. * tests/crate.scm: Set descriptions to "This package provides summary". Signed-off-by: Ludovic Courtès Change-Id: If0f47a68f986b9e878fd5caa3e365c5ad863089a --- guix/import/crate.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'guix') diff --git a/guix/import/crate.scm b/guix/import/crate.scm index 921e5499da..c4551688f6 100644 --- a/guix/import/crate.scm +++ b/guix/import/crate.scm @@ -187,6 +187,7 @@ (define (format-inputs inputs) (guix-name (crate-name->package-name name)) (cargo-inputs (format-inputs cargo-inputs)) (cargo-development-inputs (format-inputs cargo-development-inputs)) + (description (beautify-description description)) (pkg `(package (name ,guix-name) (version ,version) @@ -212,7 +213,10 @@ (define (format-inputs inputs) cargo-development-inputs))) (home-page ,home-page) (synopsis ,(beautify-synopsis synopsis)) - (description ,(beautify-description description)) + (description ,(if (string-prefix? "This" description) + description + (string-append "This package provides " + description))) (license ,(match license (() #f) (#f #f) -- cgit v1.2.3