Changeset 15427 in project


Ignore:
Timestamp:
08/13/09 14:34:01 (10 years ago)
Author:
sjamaan
Message:

Make nowiki work again

Location:
release/4/qwiki/trunk
Files:
2 edited

Legend:

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

    r15426 r15427  
    4141(use data-structures qwiki qwiki-sxml  sxml-transforms)
    4242
    43 (define nl (list->string (list #\newline)))
    44 
    4543(define nowiki-rules
    4644  `((nowiki
    47      ((*text*                         ; local override for nowiki text
    48        . ,(lambda (tag . str) str)))
    49      . ,(lambda (tag . lines)
    50           `(,@(map (lambda (line) (list "     " line nl)) lines)
    51             )))
     45     *preorder*
     46     . ,(lambda (tag . contents)
     47          (cons 'verbatim contents)))
    5248    ,@alist-conv-rules))
    5349
  • release/4/qwiki/trunk/qwiki-sxml.scm

    r15426 r15427  
    157157                   "</ul></div>"))))
    158158
     159     (verbatim
     160      *preorder*
     161      . ,(lambda (tag . contents)
     162           contents))
    159163
    160164     ,@universal-conversion-rules)
Note: See TracChangeset for help on using the changeset viewer.