~ruther/guix-local

287be006306d7febad654c23199bcd3ebf8aae85 — Gabriel Wicki 1 year, 11 months ago 9447629
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>
2 files changed, 2 insertions(+), 2 deletions(-)

M guix/lint.scm
M tests/lint.scm
M guix/lint.scm => guix/lint.scm +1 -1
@@ 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)

M tests/lint.scm => tests/lint.scm +1 -1
@@ 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: ™"