diff options
| author | Gabriel Wicki <gabriel@erlikon.ch> | 2024-12-02 23:37:40 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2024-12-12 12:52:07 +0100 |
| commit | 687f4e22e666aa06dfac7344ff652fb51e47a4b0 (patch) | |
| tree | 7cbbdd02c80f90eca47c1718162511697f495420 | |
| parent | f28c32089d14303e2dd261009600478bc4ae0463 (diff) | |
| download | guix-687f4e22e666aa06dfac7344ff652fb51e47a4b0.tar.gz guix-687f4e22e666aa06dfac7344ff652fb51e47a4b0.zip | |
lint: Allow texinfo markup at beginning of synopsis.
* guix/lint.scm(check-synopsis-style)[check-proper-start]: Add condition.
* tests/lint.scm: Add test case.
Change-Id: I2509b3a4e7e51c6a274697ceb5f776c22e27c5f9
Signed-off-by: Ludovic Courtès <ludo@gnu.org>
| -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 d6d48ad27c..396ee01fed 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 df7042c470..6631034151 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 |