Changeset 18003 in project


Ignore:
Timestamp:
05/06/10 00:11:31 (9 years ago)
Author:
zbigniew
Message:

chicken-doc: support (well, pass) sub/sup/big/small; correctly drop @ tags in table

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/chicken-doc/trunk/chicken-doc-text.scm

    r17845 r18003  
    6060    ;; returns ( (td td ...) (td td ...) )
    6161    ;; with TD flattened into strings and wrapped
    62     (let ((cell-ss `((@ . ,drop-tag)
     62    (let ((cell-ss `((@ *preorder* . ,drop-tag)
    6363                     . ,cell-ss)))
    6464      (filter-map (match-lambda (('tr . tds)
     
    8686        ((default-elts
    8787          `((*text* . ,(lambda (tag text) text))
    88             (*default* . ,(lambda (tag . body) (warning "dropped" tag) '()))))
     88            (*default* . ,(lambda (tag . body) (warning "dropped" (cons tag body)) '()))))
    8989         (inline-elts
    9090          `((b . ,(lambda (tag . body) `("_" ,body "_")))
    9191            (i . ,(lambda (tag . body) `("/" ,body "/")))
    9292            (tt . ,(lambda (tag . body) `("`" ,body "`")))
     93            (sub . ,(lambda (tag . body) body))
     94            (sup . ,(lambda (tag . body) body))
     95            (big . ,(lambda (tag . body) body))
     96            (small . ,(lambda (tag . body) body))
    9397
    9498            (link . ,(lambda (tag href #!optional (desc #f))
     
    262266                              (*default* . ,drop-tag)))))
    263267           
    264             (tags . ,drop-tag)
    265             (toc . ,drop-tag)))
     268            (tags *preorder* . ,drop-tag)
     269            (toc *preorder* . ,drop-tag)))
    266270
    267271         (ss `(,@block-elts
Note: See TracChangeset for help on using the changeset viewer.