~evhan/beaker

ref: e059e15e85a200e33efb4a1b1297fed45bcd9661 beaker/aux/generate-wiki-page.scm -rwxr-xr-x 541 bytes
e059e15eEvan Hanson Switch documentation generator to Markdown and remove markdown-svnwiki dependency 3 years ago
                                                                                
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
#!/bin/sh
#|
exec csi -s "$0" "$@"
|#

(import (beaker markdown))
(import (only (chicken port) make-concatenated-port))
(import (markdown-svnwiki))

(with-output-to-file "beaker.wiki"
 (lambda ()
   (let ((markdown (open-output-string))
         (template (make-concatenated-port
                    (open-input-string "#<#EOF\n")
                    (open-input-file "beaker.wiki.in")
                    (open-input-string "EOF\n"))))
     (display (eval (read template)) markdown)
     (markdown->svnwiki (get-output-string markdown)))))