From d4360259d60722eaa175a483f792fce7b8c66d97 Mon Sep 17 00:00:00 2001
From: Ludovic Court`es
Date: Wed, 11 Oct 2006 07:43:47 +0000
Subject: slide: Propagate the `outline?' parameter in `slide-(sub)?topic'.

* src/guile/skribilo/package/slide.scm (slide-topic): Propagate the
  `outline?' parameter as an option.
  (slide-subtopic): Likewise.

git-archimport-id: skribilo@sv.gnu.org--2006/skribilo--devo--1.2--patch-1
---
 skribe/doc/user/src/api15.skb | 25 -------------------------
 1 file changed, 25 deletions(-)
 delete mode 100644 skribe/doc/user/src/api15.skb

(limited to 'skribe/doc/user/src/api15.skb')

diff --git a/skribe/doc/user/src/api15.skb b/skribe/doc/user/src/api15.skb
deleted file mode 100644
index f8f4958..0000000
--- a/skribe/doc/user/src/api15.skb
+++ /dev/null
@@ -1,25 +0,0 @@
-(resolve (lambda (n e env)
-	    (let* ((d (ast-document n))
-		   (ex (container-env-get d 'figure-env)))
-	       (table (map (lambda (e)
-			      (tr (td :align 'left
-				      (markup-option e ':number)
-				      " "
-				      (ref :handle (handle e)
-					   :text (markup-option e :legend))
-				      " (section "
-				      (let ((c (ast-section e)))
-					 (ref :handle (handle c)
-					      :text (markup-option c :title)))
-				      ")")))
-			   (sort ex
-				 (lambda (e1 e2)
-				    (let ((n1 (markup-option e1 :number))
-					  (n2 (markup-option e2 :number)))
-				       (cond
-					  ((not (number? n1))
-					   #t)
-					  ((not (number? n2))
-					   #f)
-					  (else
-					   (< n1 n2)))))))))))
-- 
cgit v1.2.3