summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtes2006-03-19 19:55:24 +0000
committerLudovic Courtes2006-03-19 19:55:24 +0000
commit8335269810c4de308aa5b8bfd9c1d8300fd280e1 (patch)
tree3b45f62f1cb832d5aa5199e8564210de1550b4ee
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
-rw-r--r--ChangeLog18
-rw-r--r--src/guile/skribilo/engine/lout.scm5
-rw-r--r--src/guile/skribilo/package/slide/lout.scm18
3 files changed, 34 insertions, 7 deletions
diff --git a/ChangeLog b/ChangeLog
index 7a4ee75..2aeb33a 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,24 @@
# arch-tag: automatic-ChangeLog--lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2
#
+2006-03-19 19:55:24 GMT Ludovic Courtes <ludovic.courtes@laas.fr> patch-49
+
+ Summary:
+ Lout engine: small fixes.
+ Revision:
+ skribilo--devel--1.2--patch-49
+
+ * 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'.
+
+ modified files:
+ ChangeLog src/guile/skribilo/engine/lout.scm
+ src/guile/skribilo/package/slide/lout.scm
+
+
2006-03-19 15:13:13 GMT Ludovic Courtes <ludovic.courtes@laas.fr> patch-48
Summary:
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)