Index

◊; Get two lists: one of all index links in the current pagetree, ◊; another of all the unique headings used in the first list. ◊(define klinks (collect-index-links (pagetree->list (current-pagetree)))) ◊(define kwords (index-headings klinks)) ◊(map (λ(entry) (->html `(li ,entry ": " ,@(add-between (map i (match-index-links entry klinks)) ", ")))) kwords)