From 54ae61cd32d6580791aff55bfce96386fdff9550 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Sat, 1 Dec 2007 16:01:58 +0100
Subject: doc: Improve building using the Lout engine, with a `book' style.

* doc/modules/skribilo/documentation/api.scm (doc-engine): Use
  `ctrtable' instead of `table'.

* doc/modules/skribilo/documentation/manual.scm: Add customs for the
  `lout' engine.
  (ctrtable): New.
  (prgm): Don't center frames in Lout.

* doc/user/Makefile.am (EXTRA_DIST): Add `lout/book-style.lout'.
  (%.ps): Add "-r4 -I$(srcdir)/lout".

* doc/user/char.skb: Use `ctrtable' instead of `(center (table...' for
  the list of chars.

* doc/user/markup.skb: Add emacsology.

* doc/user/package.skb: Don't show the sample code with non-HTML
  engines.

* doc/user/src/html-navtabs.skb: Fix typo.

* doc/user/user.skb: Don't produce out-of-chapter text in Lout.
---
 doc/user/user.skb | 25 +++++++++++++++----------
 1 file changed, 15 insertions(+), 10 deletions(-)

(limited to 'doc/user/user.skb')

diff --git a/doc/user/user.skb b/doc/user/user.skb
index 5cfe209..588b6f6 100644
--- a/doc/user/user.skb
+++ b/doc/user/user.skb
@@ -1,7 +1,7 @@
 ;;; user.skb  --  The Skribilo user manual.
 ;;;
+;;; Copyright 2005, 2006, 2007  Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright 2001, 2002, 2003, 2004  Manuel Serrano
-;;; Copyright 2005, 2006  Ludovic Courtès <ludovic.courtes@laas.fr>
 ;;;
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
@@ -32,7 +32,8 @@
 ;*    Packages							       */
 ;*---------------------------------------------------------------------*/
 (use-modules (skribilo package eq)
-	     (skribilo package pie))
+	     (skribilo package pie)
+	     (skribilo package slide))
 
 ;; Load the compile-time configuration file.
 (load "doc-config.scm")
@@ -47,12 +48,6 @@
 (let ((he (find-engine 'html)))
    (engine-custom-set! he 'body-width 100.))
 
-;*---------------------------------------------------------------------*/
-;*    Lout custom                                                      */
-;*---------------------------------------------------------------------*/
-(let ((le (find-engine 'lout)))
-   (engine-custom-set! le 'document-type 'doc))
-
 
 ;*---------------------------------------------------------------------*/
 ;*    The document                                                     */
@@ -70,10 +65,14 @@
 		 (author :name "Ludovic Courtès"
 		    :email (mailto *courtes-mail*)))
    
-(p :class "welcome"
+(resolve (lambda (n e env)
+	   ;; The Lout engine uses the `book' style, where we can't have
+	   ;; text outside of chapters.
+	   (and (not (engine-format? "lout" e))
+	        (p :class "welcome"
    [Welcome to the User Manual for Skribilo version ,(skribe-release).
 If you are new to Skribilo, please read the ,(ref :ident "intro"
-:text [introduction]) first.])
+:text [introduction]) first.]))))
 
 
 ;;; Introduction
@@ -187,3 +186,9 @@ as HTML, Info pages, man pages, Postscript, etc.]))))
        (the-index :column (if (engine-format? "latex") 2 3)
 	  *markup-index* *custom-index* *function-index* *package-index*
 	  (default-index)))))
+
+;; Local Variables:
+;; coding: latin-1
+;; comment-start: ";"
+;; comment-end: ""
+;; End:
-- 
cgit v1.2.3