diff options
| author | Ludovic Courtes | 2006-03-19 19:55:24 +0000 |
|---|---|---|
| committer | Ludovic Courtes | 2006-03-19 19:55:24 +0000 |
| commit | 8335269810c4de308aa5b8bfd9c1d8300fd280e1 (patch) | |
| tree | 3b45f62f1cb832d5aa5199e8564210de1550b4ee /src/guile | |
| parent | 4c3e6d29d09c38644a826de3483379d1ae88b45e (diff) | |
| download | skribilo-8335269810c4de308aa5b8bfd9c1d8300fd280e1.tar.gz skribilo-8335269810c4de308aa5b8bfd9c1d8300fd280e1.tar.lz skribilo-8335269810c4de308aa5b8bfd9c1d8300fd280e1.zip | |
Lout engine: small fixes.
* src/guile/skribilo/engine/lout.scm (figure): For `@BypassNumber', make
sure NUMBER is not `#f'.
* src/guile/skribilo/package/slide/lout.scm: Don't switch automatically
DOCUMENT-TYPE to `slides'.
git-archimport-id: lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2--patch-49
Diffstat (limited to 'src/guile')
| -rw-r--r-- | src/guile/skribilo/engine/lout.scm | 5 | ||||
| -rw-r--r-- | src/guile/skribilo/package/slide/lout.scm | 18 |
2 files changed, 16 insertions, 7 deletions
diff --git a/src/guile/skribilo/engine/lout.scm b/src/guile/skribilo/engine/lout.scm index c9c6522..3d86eb4 100644 --- a/src/guile/skribilo/engine/lout.scm +++ b/src/guile/skribilo/engine/lout.scm @@ -1740,7 +1740,10 @@ (display " @Tag { ") (display (lout-tagify ident)) (display " }\n") - (printf " @BypassNumber { ~a }\n" number) + (printf " @BypassNumber { ~a }\n" + (cond ((number? number) number) + ((not number) "") + (else number))) (display " @InitialLanguage { ") (display (engine-custom e 'initial-language)) (display " }\n") diff --git a/src/guile/skribilo/package/slide/lout.scm b/src/guile/skribilo/package/slide/lout.scm index 39e0175..c36c793 100644 --- a/src/guile/skribilo/package/slide/lout.scm +++ b/src/guile/skribilo/package/slide/lout.scm @@ -21,11 +21,15 @@ (define-skribe-module (skribilo package slide lout) :use-module (skribilo utils syntax) - ;; FIXME: For some reason, changing the following `autoload' in - ;; `use-modules' doesn't work. + ;; XXX: If changing the following `autoload' to `use-module' doesn't work, + ;; then you need to fix your Guile. See this thread about + ;; `make-autoload-interface': + ;; + ;; http://article.gmane.org/gmane.lisp.guile.devel/5748 + ;; http://lists.gnu.org/archive/html/guile-devel/2006-03/msg00004.html . - :autoload (skribilo engine lout) (lout-tagify lout-output-pdf-meta-info) - ) + :autoload (skribilo engine lout) (lout-tagify lout-output-pdf-meta-info + lout-verbatim-encoding)) (fluid-set! current-reader %skribilo-module-reader) @@ -38,8 +42,10 @@ (let ((le (find-engine 'lout))) - ;; Automatically switch to the `slides' document type. - (engine-custom-set! le 'document-type 'slides) + ;; FIXME: Automatically switching to `slides' is problematic, e.g., for the + ;; user manual which embeds slides. +; ;; Automatically switch to the `slides' document type. +; (engine-custom-set! le 'document-type 'slides)) (markup-writer 'slide le :options '(:title :number :toc :ident) ;; '(:bg :vspace :image) |