mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-18 21:46:35 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

lint: More abbreviations.

Browse source 
* guix/lint.scm: Allow more common abbreviations in double-space-after
sentence check.
* tests/lint.scm: Add tests.

Change-Id: I0eedf73e5fcd0a8c67b3ae3dfa979a57fe0f6253
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Gabriel Wicki 2024-12-02 23:40:35 +01:00 committed by Ludovic Courtès
parent 9447629672
commit 287be00630
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
guix/lint.scm
View file

@ -473,7 +473,7 @@ (define (check-end-of-sentence-space description)
(string-match "[A-Z]$" pre) ;; Initial found (string-match "[A-Z]$" pre) ;; Initial found
(find (lambda (s) (find (lambda (s)
(string-suffix-ci? s pre)) (string-suffix-ci? s pre))
'("i.e" "e.g" "a.k.a" "resp"))) '("i.e" "e.g" "a.k.a" "resp" "cf" "al")))
r r
(cons (match:start m) r)))))))) (cons (match:start m) r))))))))
(if (null? infractions) (if (null? infractions)

2
tests/lint.scm
View file

@ -173,7 +173,7 @@ (define (warning-contains? str warnings)
'() '()
(let ((pkg (dummy-package "x" (let ((pkg (dummy-package "x"
(description (description
"E.g. Foo, i.e. Bar resp. Baz (a.k.a. DVD). Name O. Person")))) "O. Person e.g. Foo, i.e. Bar resp. Baz (a.k.a. DVD). Name et al. cf. some paper."))))
(check-description-style pkg))) (check-description-style pkg)))
(test-equal "description: may not contain trademark signs: ™" (test-equal "description: may not contain trademark signs: ™"