Advanced Search

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