amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

import/utils: Add beautify-synopsis.

Browse source 
* guix/import/utils.scm (beautify-synopsis): New procedure.
This commit is contained in:
Ricardo Wurmus 2022-09-28 22:05:52 +02:00
parent e761ed7384
commit 7ea6e9f79f
No known key found for this signature in database
GPG key ID: 197A5888235FACAC
1 changed files with 17 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

18
guix/import/utils.scm
View file

@ -72,6 +72,7 @@
snake-case snake-case
beautify-description beautify-description
beautify-synopsis
alist->package alist->package
@ -295,7 +296,22 @@ LENGTH characters."
;; Use double spacing between sentences ;; Use double spacing between sentences
(fill-paragraph (regexp-substitute/global #f "\\. \\b" (fill-paragraph (regexp-substitute/global #f "\\. \\b"
cleaned 'pre ". " 'post) cleaned 'pre ". " 'post)
length))) length)))
(define (beautify-synopsis synopsis)
"Improve the package SYNOPSIS."
(let ((cleaned (cond
((not (string? synopsis))
(G_ "This package lacks a synopsis. Run \
\"info '(guix) Synopses and Descriptions'\" for more information."))
((string-prefix? "A " synopsis)
(substring synopsis 1))
;; Remove trailing period.
((string-suffix? "." synopsis)
(substring synopsis 0
(1- (string-length synopsis))))
(else synopsis))))
(string-trim-both cleaned)))
(define* (package-names->package-inputs names #:optional (output #f)) (define* (package-names->package-inputs names #:optional (output #f))
"Given a list of PACKAGE-NAMES or (PACKAGE-NAME VERSION) pairs, and an "Given a list of PACKAGE-NAMES or (PACKAGE-NAME VERSION) pairs, and an