Changeset 15383 in project for release/4/qwiki/trunk/qwiki-sxml.scm


Ignore:
Timestamp:
08/10/09 02:46:54 (12 years ago)
Author:
Ivan Raikov
Message:

added table of contents functionality to qwiki

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/qwiki/trunk/qwiki-sxml.scm

    r15375 r15383  
    7676    ,nl))
    7777
    78 (define qwiki-html-transformation-rules
     78(define (qwiki-html-transformation-rules content)
    7979
    8080  `(
     
    100100          `((n_) (a (@ (name ,head-word)) (n_))
    101101            (,(string->symbol (string-append "h" (number->string level)))
    102              ,head-word ,elems))))
    103 
    104 #|    TODO: figure out how to pass the content for rescanning
     102             ,head-word ,elems) ,nl
     103            )))
    105104
    106105    (TOC        ;; Re-scan the content for "Section" tags and generate
    107106     . ,(lambda (tag . rest)    ;; the table of contents
    108107          (let ((sections
    109                  (pre-post-order Content
     108                 (pre-post-order content
    110109                                 `(
    111110                                   (Section     ;; (Section level "content ...")
     
    123122                  sections
    124123                  "</ul></div>" nl))))
    125 |#
    126     (TOC . ,(lambda (tag rest) (list)))
    127124
    128125    (special
Note: See TracChangeset for help on using the changeset viewer.