Various documentation fixes + completed the doc automake stuff.

* doc/user/Makefile.am (%.html): Added `-P ../img'.
  (%.lout): Likewise.
  (SUBDIRS): New.

* doc/user/char.skb (Some characters): Use the Lout-specific example for
  `!' when relevant.

* doc/user/figure.skb (The figure markup): Avoid using `example-produce'.

* doc/user/slide.skb (dummy-slide-set-output): New.
  (dummy-slide-output): New.
  (dummy-slide-vspace-output): New.
  (dummy-slide-embed-output): New.
  (Example of Skribilo Slides): Use a processor, as in `document.skb', in
  order to use the dummy output functions.

git-archimport-id: lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2--patch-50

8 files changed, 95 insertions, 18 deletions

diff --git a/doc/user/Makefile.am b/doc/user/Makefile.am
index d6ab75f..d53d46c 100644
--- a/doc/user/Makefile.am
+++ b/doc/user/Makefile.am
@@ -1,3 +1,13 @@
+SUBDIRS = src
+
+EXTRA_DIST = bib.skb char.skb colframe.skb document.skb emacs.skb	\
+  engine.skb enumeration.skb eq.skb examples.skb figure.skb		\
+  font.skb footnote.skb htmle.skb image.skb index.skb			\
+  justify.skb latexe.skb lib.skb line.skb links.skb			\
+  markup.skb ornament.skb package.skb prgm.skb sectioning.skb		\
+  skribe-config.skb skribec.skb skribeinfo.skb slide.skb start.skb	\
+  syntax.skb table.skb toc.skb user.skb xmle.skb
+
 BUILT_SOURCES = user.html
 
 skribilo = $(top_srcdir)/src/skribilo
@@ -5,7 +15,7 @@ load_path = $(top_srcdir)/src/guile:$(top_srcdir)/src/guile/skribilo/package
 
 %.html: %.skb
 	GUILE_LOAD_PATH=$(load_path):$$GUILE_LOAD_PATH \
-	$(skribilo) --target html -I ../ -o $@ $<
+	$(skribilo) --target html -I ../ -P ../img -o $@ $<
 
 if HAVE_LOUT
 
@@ -13,7 +23,7 @@ BUILT_SOURCES += user.ps
 
 %.lout: %.skb
 	GUILE_LOAD_PATH=$(load_path):$$GUILE_LOAD_PATH \
-	$(skribilo) --target lout -I ../ -o $@ $<
+	$(skribilo) --target lout -I ../ -P ../img -o $@ $<
 
 %.ps: %.lout
 	$(LOUT) -c $(<:%.lout=%) -o $@ $<
diff --git a/doc/user/char.skb b/doc/user/char.skb
index 85409f0..fe15831 100644
--- a/doc/user/char.skb
+++ b/doc/user/char.skb
@@ -49,9 +49,12 @@ without any transformation from the engine.])
 (p [The sequences ,(code "$1"), ,(code "$2"), ... in the ,(param 'format)
 are replaced with the actual values of the arguments ,(param 'node).])
 
-(example-produce
- (example :legend "Some characters" (prgm :file "src/api20.skb"))
- (disp (include "src/api20.skb"))))
+(let ((file (if (engine-format? "lout")
+	        "src/api20-lout.skb"
+	        "src/api20-html.skb")))
+  (example-produce
+   (example :legend "Some characters" (prgm :file file))
+   (disp (include file)))))
 
 ;*--- Symbols ---------------------------------------------------------*/
 (subsection :title "Symbols"
diff --git a/doc/user/figure.skb b/doc/user/figure.skb
index 08fbdd5..f6bfe8c 100644
--- a/doc/user/figure.skb
+++ b/doc/user/figure.skb
@@ -32,9 +32,10 @@
 	    
 	    :see-also '(ref document))
 
-(example-produce
+ ;; Note: We can't use `example-produce' because the Lout engine, for
+ ;; instance, forbids the occurrence of `figure' within a table.
  (example :legend "The figure markup" (prgm :file "src/api14.skb"))
- (disp (include "src/api14.skb")))
+ (include "src/api14.skb")
 
 ;*--- List of figures -------------------------------------------------*/
 (subsection :title "List of figures"
@@ -51,8 +52,3 @@ shows how to display the list of figures of a document.])
  (example :legend "The figure markup" (prgm :file "src/api15.skb"))
  (disp (include "src/api15.skb")))))
 
-
-
-
-	      
-
diff --git a/doc/user/slide.skb b/doc/user/slide.skb
index aff8ab5..ec2186a 100644
--- a/doc/user/slide.skb
+++ b/doc/user/slide.skb
@@ -11,9 +11,44 @@
 (skribe-load "slide.skr")
 
 ;*---------------------------------------------------------------------*/
+;*    dummy-slide-set-output ...                                       */
+;*---------------------------------------------------------------------*/
+(define dummy-slide-set-output
+   (lambda (n e)
+      (let* ((a (markup-option n :author))
+	     (t (markup-option n :title))
+	     (b (markup-body n))
+	     (ta (table (tr (map (lambda (n)
+				    (td :valign 'top :align 'center n))
+	                         (if (list? a) a (list a)))))))
+	 (skribe-eval (center (bold t)) e)
+	 (skribe-eval (center ta) e)
+	 (output b e))))
+
+(define dummy-slide-output
+   (lambda (n e)
+      (let* ((t (markup-option n :title))
+	     (b (markup-body n)))
+	 (skribe-eval (bold t) e)
+	 (output b e))))
+
+(define dummy-slide-vspace-output
+   (lambda (n e)
+     (skribe-eval (linebreak) e)
+     (skribe-eval (center (tt "[vspace]")) e)
+     (skribe-eval (linebreak) e)))
+
+(define dummy-slide-embed-output
+   (lambda (n e)
+     (skribe-eval (linebreak) e)
+     (skribe-eval (tt (or (markup-option n :alt)
+			  (markup-option n :command)))
+		  e)))
+
+;*---------------------------------------------------------------------*/
 ;*    Computer programs                                                */
 ;*---------------------------------------------------------------------*/
-(chapter :title "Slide Package" 
+(chapter :title "Slide Package"
 
    (p [
 This chapter describes the facilities Skribe offers authoring slides.
@@ -105,11 +140,25 @@ output format does not support embedded application.]))
 	         "html4")))
        ;; Show the example and its result
        (example-produce
-         (example :legend "Example of Skribe slides"
+         (example :legend "Example of Skribilo slides"
 		  (prgm :file "src/slides.skb"))
-	 (disp (include "src/slides.skb")))
+	 (disp
+	  (processor :combinator
+		     (lambda (e1 e2)
+		       (let ((e (copy-engine 'document-engine e2)))
+			 (markup-writer 'document e
+					:options '(:title :author :ending)
+					:action dummy-slide-set-output)
+			 (markup-writer 'slide e
+					:options '(:title :ident
+						   :number :toc :vspace)
+					:action dummy-slide-output)
+			 (markup-writer 'slide-vspace
+					:action dummy-slide-vspace-output)
+			 (markup-writer 'slide-embed
+					:action dummy-slide-embed-output)
+			 e))
+		     (include "src/slides.skb"))))
        ;; Show only the example (i.e. don't produce a document in a document)
        (example :legend "Example of Skribe slides"
 	       (prgm :file "src/slides.skb")))))
-   
-		 
diff --git a/doc/user/src/Makefile.am b/doc/user/src/Makefile.am
new file mode 100644
index 0000000..6d7daf4
--- /dev/null
+++ b/doc/user/src/Makefile.am
@@ -0,0 +1,11 @@
+EXTRA_DIST = api1.skb api10.skb api11.skb api12.skb api13.skb	\
+  api14.skb api15.skb api16.skb api17.skb api18.skb		\
+  api19.skb api2.skb api20-html.skb api20-lout.skb api3.skb	\
+  api4.skb api5.skb api6.skb api7.skb api8.skb			\
+  api9.skb bib1.sbib bib2.skb bib3.skb bib4.skb			\
+  bib5.skb bib6.skb eq1.skb eq2.skb index1.skb			\
+  index2.skb index3.skb links1.skb links2.skb prgm1.skb		\
+  prgm2.skb prgm3.skb slides.skb start1.skb start2.skb		\
+  start3.skb start4.skb start5.skb
+
+## arch-tag: 9614a784-cac2-4399-bd61-18c9172f48a8
diff --git a/doc/user/src/api20.skb b/doc/user/src/api20-html.skb
index 686efcb..686efcb 100644
--- a/doc/user/src/api20.skb
+++ b/doc/user/src/api20-html.skb
diff --git a/doc/user/src/api20-lout.skb b/doc/user/src/api20-lout.skb
new file mode 100644
index 0000000..89fb961
--- /dev/null
+++ b/doc/user/src/api20-lout.skb
@@ -0,0 +1,2 @@
+[A simple ,(! "string"). A more annoying one ,(! "@B { string }"). 
+A last one with arguments ,(! "@Underline { $1 $2 }" (bold 1) (it 2)).]
diff --git a/doc/user/user.skb b/doc/user/user.skb
index 1403e71..f6a25ef 100644
--- a/doc/user/user.skb
+++ b/doc/user/user.skb
@@ -31,6 +31,12 @@
    (engine-custom-set! he 'body-width 100.))
 
 ;*---------------------------------------------------------------------*/
+;*    Lout custom                                                      */
+;*---------------------------------------------------------------------*/
+(let ((le (find-engine 'lout)))
+   (engine-custom-set! le 'document-type 'doc))
+
+;*---------------------------------------------------------------------*/
 ;*    The various indexes                                              */
 ;*---------------------------------------------------------------------*/
 (define *markup-index* (make-index "markup"))
@@ -155,7 +161,7 @@ as HTML, Info pages, man pages, Postscript, etc.]))))
     (begin
        (chapter :title "Table of contents"
 	  (toc :chapter #t :section #t :subsection #t))
-       (section :title "Index" :number #f :ident "Index"
+       (chapter :title "Index" :number #f :ident "Index"
 	  (mark "global index")
 	  (the-index :column (if (engine-format? "latex") 2 3)
 	     *markup-index* *custom-index* *function-index* *package-index*