diff options
| author | Ludovic Courtès | 2012-05-10 23:47:01 +0200 |
|---|---|---|
| committer | Ludovic Courtès | 2012-05-10 23:47:01 +0200 |
| commit | d266c260e569d3372fa09c121a04755e6d3c3bbb (patch) | |
| tree | 82e135756eabfffa6c5a2c5f9dc6d229b4b5286e /src/guile/skribilo/engine/info.scm | |
| parent | 966f7afaf9c370be463543da21f379a85d508804 (diff) | |
| download | skribilo-d266c260e569d3372fa09c121a04755e6d3c3bbb.tar.gz skribilo-d266c260e569d3372fa09c121a04755e6d3c3bbb.tar.lz skribilo-d266c260e569d3372fa09c121a04755e6d3c3bbb.zip | |
info/latex/lout: Set the output port's encoding.
* src/guile/skribilo/engine/html.scm (document): Fix typo in comment.
* src/guile/skribilo/engine/info.scm (document)[guile-2]: Set the
current output port's encoding to "UTF-8".
* src/guile/skribilo/engine/latex.scm (latex-engine)[encoding]: New
custom.
(document): Set the output port's encoding to that. When that
encoding is "UTF-8", add the right \usepackage.
* src/guile/skribilo/engine/lout.scm (lout-engine)[encoding]: New
custom.
(document): Set the output encoding. Emit `@SysInclude { latin2 }'
for ISO-8859-2.
Diffstat (limited to 'src/guile/skribilo/engine/info.scm')
| -rw-r--r-- | src/guile/skribilo/engine/info.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/src/guile/skribilo/engine/info.scm b/src/guile/skribilo/engine/info.scm index ec92ce5..592e1fe 100644 --- a/src/guile/skribilo/engine/info.scm +++ b/src/guile/skribilo/engine/info.scm @@ -1,7 +1,7 @@ ;;; info.scm -- GNU Info engine. ;;; -*- coding: iso-8859-1 -*- ;;; -;;; Copyright 2008, 2009 Ludovic Courtès <ludo@gnu.org> +;;; Copyright 2008, 2009, 2012 Ludovic Courtès <ludo@gnu.org> ;;; Copyright 2001, 2002 Manuel Serrano ;;; ;;; @@ -186,6 +186,11 @@ :options '(:title :author :ending) :action (lambda (doc e) (check-node-title-conflicts doc e) + + (cond-expand + (guile-2 (set-port-encoding! (current-output-port) "UTF-8")) + (else #t)) + (let ((title (markup-option doc :title)) (authors (markup-option doc :author)) (body (markup-body doc)) |