Welcome to the CHICKEN Scheme pasting service

wiki2html hack added by sjamaan on Wed Sep 25 20:09:25 2013

#!/usr/pkg/bin/csi -s
;; -*- Scheme -*-

(use multidoc sxml-transforms srfi-1 files posix svnwiki-sxml)

(define wiki-rules
  `(((wiki-page 
      *macro*
      . ,(lambda (tag elems)
           `(html:begin . ,elems)))
     ,@alist-conv-rules*)))

(let* ((f (car (command-line-arguments)))
       (tree (call-with-input-file f svnwiki->sxml)))
  (SRV:send-reply
   (fold (lambda (ruleset tree)
           (pre-post-order* tree ruleset))
         tree
         (append wiki-rules (html-transformation-rules tree)))))
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Name of the egg which implements this service:
Visually impaired? Let me spell it for you (wav file) download WAV