TakeV/guix
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

lint: Fix 'check-texinfo-markup'.

Browse source 
Fixes a regression introduced in 5d8d8f3.

* guix/scripts/lint.scm (check-description-style): When no exception is
  thrown in 'check-texinfo-markup', return the rendered description.
This commit is contained in:
Mathieu Lirzin 2015-09-26 18:47:37 +02:00
parent ba7d6c763c
commit cd8b7cfb3f
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
guix/scripts/lint.scm
View file

@ -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)