From 15a6d433ff33c44ffef406ad77e196d6a5ef0822 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Fri, 7 Nov 2014 17:44:30 +0100 Subject: lint: Allow synopses that start with an abbreviation. * guix/scripts/lint.scm (starts-with-abbreviation?): New procedure. (check-synopsis-style)[check-start-with-package-name]: Use it. * tests/lint.scm ("synopsis: start with abbreviation"): New test. --- guix/scripts/lint.scm | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'guix/scripts') diff --git a/guix/scripts/lint.scm b/guix/scripts/lint.scm index 350a35222c..237709848f 100644 --- a/guix/scripts/lint.scm +++ b/guix/scripts/lint.scm @@ -80,6 +80,10 @@ (define (list-checkers-and-exit) (define (properly-starts-sentence? s) (string-match "^[(\"'[:upper:][:digit:]]" 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)) + (define (check-description-style package) ;; Emit a warning if stylistic issues are found in the description of PACKAGE. (define (check-not-empty description) @@ -180,7 +184,8 @@ (define (check-proper-start synopsis) 'synopsis))) (define (check-start-with-package-name synopsis) - (when (regexp-exec (package-name-regexp package) synopsis) + (when (and (regexp-exec (package-name-regexp package) synopsis) + (not (starts-with-abbreviation? synopsis))) (emit-warning package "synopsis should not start with the package name" 'synopsis))) -- cgit v1.2.3