aboutsummaryrefslogtreecommitdiff
path: root/skribe/doc/user/src/api15.skb
diff options
context:
space:
mode:
authorLudovic Court`es2006-10-11 07:43:47 +0000
committerLudovic Court`es2006-10-11 07:43:47 +0000
commitd4360259d60722eaa175a483f792fce7b8c66d97 (patch)
tree622cc21b820e3dd4616890bc9ccba74de6637d8a /skribe/doc/user/src/api15.skb
parentfc42fe56a57eace2dbdb31574c2e161f0eacf839 (diff)
downloadskribilo-d4360259d60722eaa175a483f792fce7b8c66d97.tar.gz
skribilo-d4360259d60722eaa175a483f792fce7b8c66d97.tar.lz
skribilo-d4360259d60722eaa175a483f792fce7b8c66d97.zip
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
Diffstat (limited to 'skribe/doc/user/src/api15.skb')
-rw-r--r--skribe/doc/user/src/api15.skb25
1 files changed, 0 insertions, 25 deletions
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)))))))))))