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

lint: Allow texinfo markup at beginning of description.

Browse source 
* guix/lint.scm(starts-with-texinfo-markup?): New function.
(check-description-style)[check-proper-start]: Add condition.
* tests/lint.scm: Add test case.

Change-Id: I674988882265d9e2041d48dba0f9627cd68bf292
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Gabriel Wicki 2024-12-02 23:36:44 +01:00 • committed by Ludovic Courtès
parent 00879f94ee
commit f28c32089d
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 12 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
guix/lint.scm
View file

@ -370,6 +370,9 @@ superfluous when building natively and incorrect when cross-compiling."
(define (properly-starts-sentence? s)
(string-match "^[(\"'`[:upper:][:digit:]]" s))
(define (starts-with-texinfo-markup? s)
(string-match "^@(acronym|dfn|code|command|emph|file|quotation|samp|uref|url)\\{.*?\\}" s))
(define (starts-with-abbreviation? s)
"Return #t if S starts with what looks like an abbreviation or acronym."
(string-match "^[A-Z][A-Z0-9]+\\>" s))
@ -447,6 +450,7 @@ trademark sign '~a' at ~d")
'pre "-" 'post)))
(if (or (string-null? description)
(properly-starts-sentence? description)
(starts-with-texinfo-markup? description)
(string-prefix-ci? first-word (package-name package))
(string-suffix-ci? first-word (package-name package)))
'()
@ -513,7 +517,9 @@ by two spaces; possible infraction~p at ~{~a~^, ~}")
(match (check-texinfo-markup description)
((and warning (? lint-warning?)) (list warning))
(plain-description
(check-proper-start plain-description))))
(if (string-prefix? "@" description)
'()
(check-proper-start plain-description)))))
(list
(make-warning package
(G_ "invalid description: ~s")