diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-07-10 11:52:35 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-07-10 11:52:35 +0200 |
| commit | edd258fd6b341ca9ec1a8cda4437c32e75f8eecc (patch) | |
| tree | 36cc255f2890096f80877b94b843028c4c4e3837 /build-aux/list-packages.scm | |
| parent | 03aedf8d7a05b8ce6793d1d4e0718d41c5a4c894 (diff) | |
| download | guix-edd258fd6b341ca9ec1a8cda4437c32e75f8eecc.tar.gz | |
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.
Diffstat (limited to 'build-aux/list-packages.scm')
| -rwxr-xr-x | build-aux/list-packages.scm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/build-aux/list-packages.scm b/build-aux/list-packages.scm index cdefa1ba97..34839541ec 100755 --- a/build-aux/list-packages.scm +++ b/build-aux/list-packages.scm @@ -107,6 +107,13 @@ exec guile -l "$0" \ (define (list-packages . args) "Return an HTML page listing all the packages found in the GNU distribution, 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 '()) (lambda (p1 p2) (string<? (package-name p1) (package-name p2)))))) |