Skip to content
Snippets Groups Projects
Commit cd8b7cfb authored by Mathieu Lirzin's avatar Mathieu Lirzin
Browse files

lint: Fix 'check-texinfo-markup'.

Fixes a regression introduced in 5d8d8f3b.

* guix/scripts/lint.scm (check-description-style): When no exception is
  thrown in 'check-texinfo-markup', return the rendered description.
parent ba7d6c76
No related branches found
No related tags found
No related merge requests found
......@@ -146,11 +146,13 @@ (define (check-not-empty description)
(define (check-texinfo-markup description)
"Check that DESCRIPTION can be parsed as a Texinfo fragment. If the
markup is valid return a plain-text version of DESCRIPTION, otherwise #f."
(unless (false-if-exception (texi->plain-text description))
(emit-warning package
(_ "Texinfo markup in description is invalid")
'description)
#f))
(catch #t
(lambda () (texi->plain-text description))
(lambda (keys . args)
(emit-warning package
(_ "Texinfo markup in description is invalid")
'description)
#f)))
(define (check-proper-start description)
(unless (or (properly-starts-sentence? description)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment