Return to Snippet

Revision: 27963
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
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 (&gt; level SETUP:toc-level)
    content
    (let ( str  (append {[TOC]&lt;a name="a} (string TOC:anchor) {" href="#toc"&gt;[TOC]} content {[TOC]&lt;/a&gt;[TOC]}) )
      (++ TOC:anchor)
      str)))

Initial URL

                                

Initial Description

                                

Initial Title
Adds anchor to found heading

Initial Tags

                                

Initial Language
Lisp