From 6c56789db06e659a344fb384711433bb9ad9aaf0 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Sun, 7 Dec 2008 21:12:14 +0100
Subject: doc: Produce user manual in Info format.

* doc/user/Makefile.am (skrinfodir, skrinfo_DATA): New.
  (skribilo.info): New target.

* doc/user/user.skb: Don't produce a TOC nor an index when using the
  Info engine.
---
 doc/user/Makefile.am | 7 +++++++
 doc/user/user.skb    | 6 ++++--
 2 files changed, 11 insertions(+), 2 deletions(-)

(limited to 'doc/user')

diff --git a/doc/user/Makefile.am b/doc/user/Makefile.am
index cd148f4..1fcd354 100644
--- a/doc/user/Makefile.am
+++ b/doc/user/Makefile.am
@@ -26,6 +26,9 @@ EXTRA_DIST += src/api1.skb						\
   src/outline.txt src/scheme.scm
 
 
+skrinfodir = $(infodir)
+skrinfo_DATA = skribilo.info
+
 html_DATA = user.html user.sui
 dist_html_DATA = skribilo.css
 BUILT_SOURCES = lout/front-page.lout
@@ -50,6 +53,10 @@ endif
 load_path = $(top_srcdir)/doc/modules
 
 
+skribilo.info: user.skb
+	GUILE_LOAD_PATH=$(load_path):$$GUILE_LOAD_PATH \
+	$(skribilo) $(skrflags) --target=info -o $@ $<
+
 .skb.html:
 	GUILE_LOAD_PATH=$(load_path):$$GUILE_LOAD_PATH \
 	$(skribilo) $(skrflags) --target=html -o $@ $<
diff --git a/doc/user/user.skb b/doc/user/user.skb
index d63b8c2..d4efaf4 100644
--- a/doc/user/user.skb
+++ b/doc/user/user.skb
@@ -238,7 +238,8 @@ of documentation ``evaluation''.])))
 ;;; table of contents
 (resolve (lambda (n e env)
 	   (cond ((and (not (engine-format? "latex" e))
-	   	       (not (engine-format? "lout" e)))
+	   	       (not (engine-format? "lout" e))
+		       (not (engine-format? "info" e)))
                   (list
                      (and (not (engine-format? "html" e))
                           (chapter :title "Table of Contents"
@@ -250,7 +251,8 @@ of documentation ``evaluation''.])))
                            *function-index* *package-index*
                            (default-index)))))
 
-                 ((not (engine-format? "lout" e))
+                 ((and (not (engine-format? "lout" e))
+		       (not (engine-format? "info" e)))
                   (chapter :title "Index" :ident "Index"
                      (mark "global index")
                      (the-index :column (if (engine-format? "latex") 2 3)
-- 
cgit v1.2.3