aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--doc/user/sectioning.skb20
-rw-r--r--doc/user/src/api4.skb2
-rw-r--r--doc/user/src/api5.skb5
3 files changed, 7 insertions, 20 deletions
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.]))