From b09b035d86267aa363430f5ff8b5900b37c15ea8 Mon Sep 17 00:00:00 2001
From: Ludovic Court`es
Date: Wed, 1 Mar 2006 17:25:24 +0000
Subject: Various fixes in the documentation code.

* doc/skr/manual.skr: Fixed uses of `format'.

* doc/user/document.skb (dummy-document-output): Fixed handling of
  non-list author.

* doc/user/src/api2.skb: Fixed the title.  ;-)

* doc/user/src/bib1.sbib (bigloo): Added a year and author as expected by
  `bib5.skb'.

* doc/user/user.skb (Introduction): Explicitly added `:file #f'.

git-archimport-id: lcourtes@laas.fr--2004-libre/skribilo--devel--1.2--patch-61
---
 doc/skr/manual.skr     | 5 +++--
 doc/user/document.skb  | 2 +-
 doc/user/src/api2.skb  | 2 +-
 doc/user/src/bib1.sbib | 2 ++
 doc/user/user.skb      | 3 ++-
 5 files changed, 9 insertions(+), 5 deletions(-)

diff --git a/doc/skr/manual.skr b/doc/skr/manual.skr
index e6b7d64..f8b022c 100644
--- a/doc/skr/manual.skr
+++ b/doc/skr/manual.skr
@@ -22,7 +22,8 @@
 		    (skribe-eval (mark ident) e)
 		    (skribe-eval (center
 				  (markup-body n)
-				  (if number (bold (format "Ex. ~a: " number)))
+				  (if number
+				      (bold (format #f "Ex. ~a: " number)))
 				  legend)
 				 e)))))
 
@@ -279,7 +280,7 @@
 ;*---------------------------------------------------------------------*/
 (define-markup (compiler-options bin)
    (skribe-message "  [executing: ~a --options]\n" bin)
-   (let ((port (open-input-file (format "| ~a --options" bin))))
+   (let ((port (open-input-file (format #f "| ~a --options" bin))))
       (let ((opts (read port)))
 	 (close-input-port port)
 	 (apply description (map (lambda (opt) (item :key (bold (car opt))
diff --git a/doc/user/document.skb b/doc/user/document.skb
index 09f8cb3..5797da8 100644
--- a/doc/user/document.skb
+++ b/doc/user/document.skb
@@ -19,7 +19,7 @@
 	     (b (markup-body n))
 	     (ta (table (tr (map (lambda (n) 
 				    (td :valign 'top :align 'center n))
-				 a)))))
+	                         (if (list? a) a (list a)))))))
 	 (skribe-eval (center (bold t)) e)
 	 (skribe-eval (center ta) e)
 	 (output b e))))
diff --git a/doc/user/src/api2.skb b/doc/user/src/api2.skb
index 2c20965..4a89705 100644
--- a/doc/user/src/api2.skb
+++ b/doc/user/src/api2.skb
@@ -1,4 +1,4 @@
-(document :title "This is a Scribe document"
+(document :title "This is a Skribilo document"
           :author (list (author :name "Foo" :email (mailto "foo@nowhere.org"))
 			(author :name "Bar" :email (mailto "bar@anywhere.org"))
 			(author :name "Gee" :email (mailto "gee@nowhere.org")))
diff --git a/doc/user/src/bib1.sbib b/doc/user/src/bib1.sbib
index 3f1c04f..6afff71 100644
--- a/doc/user/src/bib1.sbib
+++ b/doc/user/src/bib1.sbib
@@ -12,6 +12,8 @@
    (year "1991"))
 
 (misc bigloo
+   (author "Manuel Serrano")
+   (year "2006")
    (url "http://www.inria.fr/mimosa/fp/Bigloo"))
 
 (misc scheme:r4rs
diff --git a/doc/user/user.skb b/doc/user/user.skb
index fb0c8d2..1403e71 100644
--- a/doc/user/user.skb
+++ b/doc/user/user.skb
@@ -38,6 +38,7 @@
 (define *function-index* (make-index "function"))
 (define *package-index* (make-index "package"))
 
+
 ;*---------------------------------------------------------------------*/
 ;*    The document                                                     */
 ;*---------------------------------------------------------------------*/
@@ -59,7 +60,7 @@ This is the documentation for Skribe version
    (linebreak 1)
 
 ;;; Introduction
-(chapter :title "Introduction" :number #f :toc #f [
+(chapter :title "Introduction" :number #f :toc #f :file #f [
 Skribe is a programming language designed for implementing electronic
 documents. It is mainly designed for the writing of technical documents
 such as the documentation of computer programs. With Skribe these
-- 
cgit v1.2.3


From fa0b07b863a029896688805f411fc7e361f837f0 Mon Sep 17 00:00:00 2001
From: Ludovic Court`es
Date: Wed, 1 Mar 2006 17:27:33 +0000
Subject: Lout engine: use `push-default-engine' and `pop-default-engine'.

* src/guile/skribilo/engine/lout.scm: Once `lout-engine' is defined,
  invoke `push-default-engine'.  Invoke `pop-default-engine' at the end.

git-archimport-id: lcourtes@laas.fr--2004-libre/skribilo--devel--1.2--patch-62
---
 src/guile/skribilo/engine/lout.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/guile/skribilo/engine/lout.scm b/src/guile/skribilo/engine/lout.scm
index c49211f..cfd58c7 100644
--- a/src/guile/skribilo/engine/lout.scm
+++ b/src/guile/skribilo/engine/lout.scm
@@ -701,6 +701,10 @@
 				(format #f "@Eq { ~a }\n" m)))))
 
 
+;; So that calls to `markup-writer' automatically use `lout-engine'...
+(push-default-engine lout-engine)
+
+
 
 ;; User-level implementation of PDF bookmarks.
 ;;
@@ -2883,7 +2887,7 @@
 ;*---------------------------------------------------------------------*/
 ;*    Restore the base engine                                          */
 ;*---------------------------------------------------------------------*/
-(default-engine-set! (find-engine 'base))
+(pop-default-engine)
 
 
 ;; Local Variables: --
-- 
cgit v1.2.3