me/guix
Archived
1
0
Fork 0
Code Activity

lint: Skip starting-article test for the synopses of GNU packages.

Browse source 
* guix/scripts/lint.scm (check-synopsis-style)[check-start-article]:
  Change to (const #t) when PACKAGE matches 'gnu-package?'.
This commit is contained in:
Ludovic Courtès 2014-11-07 17:34:15 +01:00
parent 431e5f5a3e
commit 105c260f00
1 changed files with 12 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
guix/scripts/lint.scm
View file

@ -23,6 +23,7 @@
#:use-module (guix records) #:use-module (guix records)
#:use-module (guix ui) #:use-module (guix ui)
#:use-module (guix utils) #:use-module (guix utils)
#:use-module (guix gnu-maintenance)
#:use-module (gnu packages) #:use-module (gnu packages)
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:use-module (ice-9 regex) #:use-module (ice-9 regex)
@ -154,12 +155,17 @@ line."
"no period allowed at the end of the synopsis" "no period allowed at the end of the synopsis"
'synopsis))) 'synopsis)))
(define (check-start-article synopsis) (define check-start-article
(when (or (string-prefix-ci? "A " synopsis) ;; Skip this check for GNU packages, as suggested by Karl Berry's reply to
(string-prefix-ci? "An " synopsis)) ;; <http://lists.gnu.org/archive/html/bug-womb/2014-11/msg00000.html>.
(emit-warning package (if (false-if-exception (gnu-package? package))
"no article allowed at the beginning of the synopsis" (const #t)
'synopsis))) (lambda (synopsis)
(when (or (string-prefix-ci? "A " synopsis)
(string-prefix-ci? "An " synopsis))
(emit-warning package
"no article allowed at the beginning of the synopsis"
'synopsis)))))
(define (check-synopsis-length synopsis) (define (check-synopsis-length synopsis)
(when (>= (string-length synopsis) 80) (when (>= (string-length synopsis) 80)