summaryrefslogtreecommitdiff
path: root/doc/user/src/api15.skb
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)))))))))))