/ Published in: Lisp
Expand |
Embed | Plain Text
Copy this code and paste it in your HTML
;; 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)))