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


Ignore:
Timestamp:
08/09/09 13:36:40 (11 years ago)
Author:
Ivan Raikov
Message:

some more modifications to content rendering in qwiki

File:
1 edited

Legend:

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

    r15372 r15373  
    7878(define qwiki-html-transformation-rules
    7979
    80   `((wiki-page
     80  `(
     81
     82    ,@universal-conversion-rules
     83
     84    (wiki-page
    8185     . ,(lambda (tag . elems)
    8286          (list
     
    8589           elems
    8690           "</html>" nl)))
    87                        
     91
    8892    (Header
    8993     *macro*
     
    120124                  "</ul></div>" nl))))
    121125|#
     126    (TOC . ,(lambda (tag rest) (list)))
     127
     128    (nowiki
     129      ((*text*       ; local override for nowiki text
     130        . ,(lambda (tag . str) str)))
     131     . ,(lambda (tag . lines)
     132          `(,@(map (lambda (line) (list "     " line nl)) lines)
     133            )))
    122134
    123135    (special
     
    126138          `(,(string->symbol (string-upcase (symbol->string name))) ,arg)))
    127139         
    128 
    129     (nowiki
    130      *macro*
    131      . ,(lambda (tag . lines)
    132           `(pre ,@(map (lambda (line) (list "     " line nl))
    133                        lines))))
    134140    (type
    135141     *macro*
Note: See TracChangeset for help on using the changeset viewer.