lint: Improve 'check-texinfo-markup'.

* guix/scripts/lint.scm (check-description-style): Set 'field' parameter
  when emitting a warning in 'check-texinfo-markup'.  Catch any error
  that may occur in during the 'texi->plain-text' conversion.  This is a
  followup to commit 2748ee3.
master
Mathieu Lirzin 2015-09-25 00:37:36 +02:00
parent 15d5ca1356
commit 5d8d8f3b0a
1 changed files with 5 additions and 5 deletions

View File

@ -146,11 +146,11 @@ monad."
(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."
(catch 'parser-error
(lambda () (texi->plain-text description))
(lambda (keys . args)
(emit-warning package (_ "Texinfo markup in description is invalid"))
#f)))
(unless (false-if-exception (texi->plain-text description))
(emit-warning package
(_ "Texinfo markup in description is invalid")
'description)
#f))
(define (check-proper-start description)
(unless (or (properly-starts-sentence? description)