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/user/document.skb | 2 +-
doc/user/src/api2.skb | 2 +-
doc/user/src/bib1.sbib | 2 ++
doc/user/user.skb | 3 ++-
4 files changed, 6 insertions(+), 3 deletions(-)
(limited to 'doc/user')
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