Adds anchor to found heading - Lisp Snipplr Social Repository

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

Choose a language for easy browsing: