Revision: 27963
Updated Code
at June 28, 2010 18:04 by tprimke
Updated Code
;; returns an anchored content for TOC, if needed ;; this function also updates the anchor number (define (get-anchor content level) (if (> level SETUP:toc-level) content (let ( str (append {[TOC]<a name="a} (string TOC:anchor) {" href="#toc">[TOC]} content {[TOC]</a>[TOC]}) ) (++ TOC:anchor) str)))
Revision: 27962
Initial Code
Initial URL
Initial Description
Initial Title
Initial Tags
Initial Language
at June 28, 2010 17:55 by tprimke
Initial Code
;; returns an anchored content for TOC, if needed ;; this function also updates the anchor number (define (get-anchor content level) (if (> level SETUP:toc-level) content (let ( str (append {[TOC]<a name="a} (string TOC:anchor) {" href="#toc">[TOC]} content {[TOC]</a>[TOC]}) ) (++ TOC:anchor) str)))
Initial URL
Initial Description
Initial Title
Adds anchor to found heading
Initial Tags
Initial Language
Lisp