nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

list-packages: Write out the HTML page as UTF-8. 

* build-aux/list-packages.scm (list-packages): Install the "C" locale.
  Write out as UTF-8.
This commit is contained in:
Ludovic Courtès 2013-07-10 11:52:35 +02:00
parent 03aedf8d7a
commit edd258fd6b
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
build-aux/list-packages.scm
View File

@ -107,6 +107,13 @@ exec guile -l "$0" \
(define (list-packages . args) (define (list-packages . args)
"Return an HTML page listing all the packages found in the GNU distribution, "Return an HTML page listing all the packages found in the GNU distribution,
with gnu.org server-side include and all that." with gnu.org server-side include and all that."
;; Don't attempt to translate descriptions.
(setlocale LC_ALL "C")
;; Output the page as UTF-8 since that's what the gnu.org server-side
;; headers claim.
(set-port-encoding! (current-output-port) "UTF-8")
(let ((packages (sort (fold-packages cons '()) (let ((packages (sort (fold-packages cons '())
(lambda (p1 p2) (lambda (p1 p2)
(string<? (package-name p1) (package-name p2)))))) (string<? (package-name p1) (package-name p2))))))