futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

sync-descriptions: Improve output of proposed descriptions.

Browse Source 
* build-aux/sync-descriptions.scm (escape-quotes): New procedure.
  Use it.  Add quotes around the proposed description.
This commit is contained in:
Ludovic Courtès 2014-09-13 15:26:37 +02:00
parent 6bddfbc98d
commit bed035c560
1 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
build-aux/sync-descriptions.scm
View File

@ -47,6 +47,16 @@
result)) result))
'()))) '())))
(define (escape-quotes str)
"Replace any quote character in STR by an escaped quote character."
(list->string
(string-fold-right (lambda (chr result)
(match chr
(#\" (cons* #\\ #\"result))
(_ (cons chr result))))
'()
str)))
;; Iterate over GNU packages. Report those whose synopsis defers from that ;; Iterate over GNU packages. Report those whose synopsis defers from that
;; found upstream. ;; found upstream.
(for-each (match-lambda (for-each (match-lambda
@ -69,7 +79,7 @@
(not (string=? (fill-paragraph upstream 100) (not (string=? (fill-paragraph upstream 100)
(fill-paragraph downstream 100)))) (fill-paragraph downstream 100))))
(format (guix-warning-port) (format (guix-warning-port)
"~a: ~a: proposed description:~% ~a~%" "~a: ~a: proposed description:~% \"~a\"~%"
(location->string loc) (package-name package) (location->string loc) (package-name package)
(fill-paragraph upstream 77 7)))))) (fill-paragraph (escape-quotes upstream) 77 7))))))
gnus) gnus)