tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00
Code Activity

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
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
guix/lint.scm
View File

@@ -473,7 +473,7 @@ trademark sign '~a' at ~d")
(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 @@
'() '()
(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: ™"