Revision: 27965
Updated Code
at June 28, 2010 18:06 by tprimke
Updated Code
;; applies all the changes needed to properly display (or not) TOC (define (finalize-toc) (if TOC:found (begin (push SETUP:toc-end TOC:toc) (reverse TOC:toc) (let ( str-toc (join TOC:toc "") ) (replace {\[toc\]} page str-toc 512) (replace {\[TOC\]</a>\[TOC\]} page "</a>" 512) (replace {\[TOC\]<a name(.*)\[TOC\]} page (append "<a name" $1) 512))) (begin (replace {\[TOC\]</a>\[TOC\]} page "" 512) (replace {\[TOC\]<a name.*\[TOC\]} page "" 512))))
Revision: 27964
Initial Code
Initial URL
Initial Description
Initial Title
Initial Tags
Initial Language
at June 28, 2010 17:57 by tprimke
Initial Code
;; applies all the changes needed to properly display (or not) TOC (define (finalize-toc) (if TOC:found (begin (push SETUP:toc-end TOC:toc) (reverse TOC:toc) (let ( str-toc (join TOC:toc "") ) (replace {\[toc\]} page str-toc 512) (replace {\[TOC\]</a>\[TOC\]} page "</a>" 512) (replace {\[TOC\]<a name(.*)\[TOC\]} page (append "<a name" $1) 512))) (begin (replace {\[TOC\]</a>\[TOC\]} page "" 512) (replace {\[TOC\]<a name.*\[TOC\]} page "" 512))))
Initial URL
Initial Description
Initial Title
Applies all the TOC-related changes to content
Initial Tags
Initial Language
Lisp