systemreboot git repos skribilo / master doc / user / src / start5.skb
master

Tree @master (Download .tar.gz)

start5.skb @master — raw · history · blame 

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)))))