summaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
authorLudovic Courtes2006-03-19 19:55:24 +0000
committerLudovic Courtes2006-03-19 19:55:24 +0000
commit8335269810c4de308aa5b8bfd9c1d8300fd280e1 (patch)
tree3b45f62f1cb832d5aa5199e8564210de1550b4ee /src/guile
parent4c3e6d29d09c38644a826de3483379d1ae88b45e (diff)
downloadskribilo-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.scm5
-rw-r--r--src/guile/skribilo/package/slide/lout.scm18
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)