summaryrefslogtreecommitdiff
path: root/doc/user/user.skb
diff options
context:
space:
mode:
Diffstat (limited to 'doc/user/user.skb')
-rw-r--r--doc/user/user.skb51
1 files changed, 32 insertions, 19 deletions
diff --git a/doc/user/user.skb b/doc/user/user.skb
index 48d3933..2d5ca48 100644
--- a/doc/user/user.skb
+++ b/doc/user/user.skb
@@ -37,11 +37,12 @@
(skribilo reader))
(if %have-ploticus? (set! %ploticus-program %ploticus-path))
-
+
;; Modules needed, e.g., to get the output of "skribilo-config --help".
(use-modules (ice-9 popen)
(ice-9 rdelim)
- (ice-9 pretty-print))
+ (ice-9 pretty-print)
+ (srfi srfi-13))
;*---------------------------------------------------------------------*/
@@ -173,6 +174,9 @@ as HTML, PostScript, Info pages, etc.])))))
;;; Pie charts
(if %have-ploticus? (include "pie.skb"))
+;;; Slides
+(include "slide.skb")
+
;;; Packages
(include "package.skb")
@@ -185,9 +189,6 @@ as HTML, PostScript, Info pages, etc.])))))
;;; Compiler
(include "compiler.skb")
-;;; Slides
-(include "slide.skb")
-
;;; skribilo-config
(include "skribilo-config.skb")
@@ -198,20 +199,32 @@ as HTML, PostScript, Info pages, etc.])))))
(include "examples.skb")
;;; table of contents
-(if (not (engine-format? "latex"))
- (begin
- (chapter :title "Table of contents"
- (toc :chapter #t :section #t :subsection #t))
- (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*
- (default-index))))
- (chapter :title "Index" :ident "Index"
- (mark "global index")
- (the-index :column (if (engine-format? "latex") 2 3)
- *markup-index* *custom-index* *function-index* *package-index*
- (default-index)))))
+(resolve (lambda (n e env)
+ (cond ((and (not (engine-format? "latex" e))
+ (not (engine-format? "lout" e)))
+ (list
+ (and (not (engine-format? "html" e))
+ (chapter :title "Table of Contents"
+ (toc :chapter #t :section #t :subsection #t)))
+ (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*
+ (default-index)))))
+
+ ((not (engine-format? "lout" e))
+ (chapter :title "Index" :ident "Index"
+ (mark "global index")
+ (the-index :column (if (engine-format? "latex") 2 3)
+ *markup-index* *custom-index*
+ *function-index* *package-index*
+ (default-index))))
+
+ (else
+ ;; FIXME: We don't have a clean `the-index' in Lout.
+ (skribe-warning 0 "index not available for this engine" e)
+ #f)))))
;; Local Variables:
;; coding: latin-1