Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added some clarifying comments.

Browse source
This commit is contained in:
Alex Shinn 2014-07-28 22:16:37 +09:00
parent 7c181ca3fe
commit 36bcf9c3e2
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/chibi/doc.scm
View file

@ -259,6 +259,7 @@
(len (length headers)))
(lambda (h) (- len (length (memq h headers))))))
;; return a list of (index . link-to-header) for all headers
(define (extract-contents x)
(match x
(('div ('a ('@ ('name . name)) . _)
@ -280,6 +281,7 @@
(else
'())))
;; nest the (index . link-to-header)s into ol
(define (get-contents x)
(if (null? x)
'()
@ -287,6 +289,7 @@
(let lp ((ls (cdr x)) (parent (car (cdar x))) (kids '()) (res '()))
(define (collect)
(cons `(li ,parent ,(get-contents (reverse kids))) res))
;; take a span of all sub-headers, recurse and repeat on next span
(cond
((null? ls)
`(ol ,@(reverse (collect))))
@ -315,6 +318,7 @@ div#footer {padding-bottom: 50px}
(div (@ (id . "menu"))
,(let ((contents (get-contents (extract-contents x))))
(match contents
;; flatten if we have only a single heading
(('ol (li y sections ...))
sections)
(else contents))))