Changeset 15475 in project for release/4/qwiki/trunk/qwiki.scm


Ignore:
Timestamp:
08/14/09 15:09:54 (10 years ago)
Author:
sjamaan
Message:

Remove dependency on sxml-fu, since we now only use one small procedure from it

File:
1 edited

Legend:

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

    r15464 r15475  
    5050(use extras files posix ports data-structures srfi-1 srfi-13 srfi-14
    5151     intarweb uri-common spiffy sxml-transforms
    52      wiki-parse qwiki-sxml doctype sxml-fu sxml-shortcuts
     52     wiki-parse qwiki-sxml doctype
    5353     ;; There should be a way to parameterize the versioning implementation
    5454     qwiki-svn)
     
    133133    (create-directory (pathname-directory path) #t))
    134134  (with-output-to-file path thunk))
     135
     136;; From sxml-fu
     137(define (output-xml tree rulesets)
     138  (SRV:send-reply (fold (lambda (ruleset tree)
     139                          (pre-post-order tree ruleset))
     140                        tree rulesets)))
    135141
    136142(define (send-content content)
Note: See TracChangeset for help on using the changeset viewer.