Ignore:
Timestamp:
08/13/09 14:14:24 (12 years ago)
Author:
sjamaan
Message:

Rearrange rules so that TYPE works only on elements and not on attribs

File:
1 edited

Legend:

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

    r15375 r15426  
    3838        (nowiki-install!)
    3939
    40         (import chicken scheme)
    41         (use data-structures qwiki qwiki-sxml)
     40(import chicken scheme)
     41(use data-structures qwiki qwiki-sxml  sxml-transforms)
    4242
    4343(define nl (list->string (list #\newline)))
    4444
    4545(define nowiki-rules
    46     `((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               )))))
     46  `((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            )))
     52    ,@alist-conv-rules))
    5253
    5354(define (nowiki-install!)
    54   (qwiki-extensions (append nowiki-rules (qwiki-extensions)))
    55   )
     55  (qwiki-extensions (cons nowiki-rules (qwiki-extensions)))
     56 )
    5657
    5758)
Note: See TracChangeset for help on using the changeset viewer.