From 132a5833a49bc828aaeed58c96b9369e6f1bd88f Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Sat, 1 Dec 2007 18:16:26 +0100
Subject: doc: Remove broken `section' example.

* doc/user/sectioning.skb (Sections): Remove broken example.  It
  produced a real section, which confused Lout.
---
 doc/user/sectioning.skb | 20 ++++----------------
 doc/user/src/api4.skb   |  2 --
 doc/user/src/api5.skb   |  5 +++--
 3 files changed, 7 insertions(+), 20 deletions(-)
 delete mode 100644 doc/user/src/api4.skb

(limited to 'doc/user')

diff --git a/doc/user/sectioning.skb b/doc/user/sectioning.skb
index bea8116..db227d7 100644
--- a/doc/user/sectioning.skb
+++ b/doc/user/sectioning.skb
@@ -1,7 +1,7 @@
 ;;; sectioning.skb  --  Sectioning markups
 ;;;
-;;; Copyright 2003, 2004  Manuel Serrano
 ;;; Copyright 2007  Ludovic Courtès <ludo@gnu.org>
+;;; Copyright 2003, 2004  Manuel Serrano
 ;;;
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
@@ -57,7 +57,7 @@ in the main target file.])
 	    :see-also '(document section toc))
 
 (example-produce
- (example :legend "The chapter markup" (prgm :file "src/api4.skb"))
+ (example :legend [The ,(tt [chapter]) markup] (prgm :file "src/api5.skb"))
  (disp 
   (processor :combinator 
 	     (lambda (e1 e2)
@@ -66,7 +66,7 @@ in the main target file.])
 				  :options '(:title :file :number :toc)
 				  :action dummy-section-output)
 		   e))
-	     (include "src/api4.skb")))))
+	     (include "src/api5.skb")))))
 
 ;*--- section ---------------------------------------------------------*/
 (subsection :title "Sections" 
@@ -88,19 +88,7 @@ file. A value of ,(tt "#f") tells the Skribe compiler to embed the chapter
 in the main target file.])
 	      (#!rest node... [The nodes of the section.]))
 	    :others '(subsection subsubsection)
-	    :see-also '(document chapter paragraph toc))
-
-(example-produce
- (example :legend "The chapter markup" (prgm :file "src/api5.skb"))
- (disp 
-  (processor :combinator 
-	     (lambda (e1 e2)
-		(let ((e (copy-engine 'document-engine e2)))
-		   (markup-writer 'chapter e
-				  :options '(:title :file :number :toc)
-				  :action dummy-section-output)
-		   e))
-	     (include "src/api5.skb")))))
+	    :see-also '(document chapter paragraph toc)))
 
 ;*--- paragraph -------------------------------------------------------*/
 (subsection :title "Paragraph"
diff --git a/doc/user/src/api4.skb b/doc/user/src/api4.skb
deleted file mode 100644
index cfe13f7..0000000
--- a/doc/user/src/api4.skb
+++ /dev/null
@@ -1,2 +0,0 @@
-(chapter :title "This is a simple chapter" :number #f :toc #f [
-Its body is just one sentence.])
diff --git a/doc/user/src/api5.skb b/doc/user/src/api5.skb
index 01188c1..072b5e8 100644
--- a/doc/user/src/api5.skb
+++ b/doc/user/src/api5.skb
@@ -1,2 +1,3 @@
-(section :title "This is a simple section" :number #f :toc #f [
-Its body is just one sentence.])
+(chapter :title "This is a simple chapter" :number #f :toc #f
+   
+   (p [Its body is just one sentence.]))
-- 
cgit v1.2.3