diff options
| author | Gabriel Wicki <gabriel@erlikon.ch> | 2024-12-02 23:40:35 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2024-12-12 12:52:07 +0100 |
| commit | 287be006306d7febad654c23199bcd3ebf8aae85 (patch) | |
| tree | 90188e12c5e08c3e5253e653ea97655502c531d4 | |
| parent | 94476296726b3d74d44b5c76120f62fd3f75ab67 (diff) | |
| download | guix-287be006306d7febad654c23199bcd3ebf8aae85.tar.gz guix-287be006306d7febad654c23199bcd3ebf8aae85.zip | |
lint: More abbreviations.
* 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>
| -rw-r--r-- | guix/lint.scm | 2 | ||||
| -rw-r--r-- | tests/lint.scm | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/guix/lint.scm b/guix/lint.scm index 1c8be911eb..1ea43df6b3 100644 --- a/guix/lint.scm +++ b/guix/lint.scm @@ -473,7 +473,7 @@ trademark sign '~a' at ~d") (string-match "[A-Z]$" pre) ;; Initial found (find (lambda (s) (string-suffix-ci? s pre)) - '("i.e" "e.g" "a.k.a" "resp"))) + '("i.e" "e.g" "a.k.a" "resp" "cf" "al"))) r (cons (match:start m) r)))))))) (if (null? infractions) diff --git a/tests/lint.scm b/tests/lint.scm index 09be160f5d..3e9dbd29db 100644 --- a/tests/lint.scm +++ b/tests/lint.scm @@ -173,7 +173,7 @@ '() (let ((pkg (dummy-package "x" (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))) (test-equal "description: may not contain trademark signs: ™" |