summaryrefslogtreecommitdiff
path: root/doc/user/src/start5.skb
blob: 9e6b87759337e123d2320358e9ca001dd23601fd (plain)
1
2
3
4
5
6
7
8
9
(resolve (lambda (n e env)
	    (let* ((current-chapter (ast-chapter n))
		   (body  (markup-body current-chapter))
		   (sects (filter (lambda (x) (is-markup? x 'section))
				  body)))
	       (itemize 
		(map (lambda (x)
			(item (it (markup-option x :title))))
		     sects)))))