diff options
| -rw-r--r-- | guix/lint.scm | 3 | ||||
| -rw-r--r-- | tests/lint.scm | 6 |
2 files changed, 8 insertions, 1 deletions
diff --git a/guix/lint.scm b/guix/lint.scm index d6d48ad27c5..396ee01fed7 100644 --- a/guix/lint.scm +++ b/guix/lint.scm @@ -743,7 +743,8 @@ the synopsis") '())) (define (check-proper-start synopsis) - (if (properly-starts-sentence? synopsis) + (if (or (properly-starts-sentence? synopsis) + (starts-with-texinfo-markup? synopsis)) '() (list (make-warning package diff --git a/tests/lint.scm b/tests/lint.scm index df7042c4705..66310341510 100644 --- a/tests/lint.scm +++ b/tests/lint.scm @@ -307,6 +307,12 @@ (check-synopsis-style pkg))) string<?)) +(test-equal "synopsis: starts with texinfo markup" + '() + (let ((pkg (dummy-package "x" + (synopsis "@code{help}")))) + (check-synopsis-style pkg))) + (test-equal "synopsis: too long" "synopsis should be less than 80 characters long" (single-lint-warning-message |