blob: f8f4958d3de70a10d8908b9230e6e70850d7aa2e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
(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)))))))))))
|
