~evhan/beaker

ref: ff2aa6197e1a2e681c4fb02ee53d18ad9e3fe86e beaker/aux/generate-wiki-page.scm -rwxr-xr-x 349 bytes
ff2aa619Evan Hanson Import beaker sources 3 years ago
                                                                                
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!/bin/sh
#|
exec csi -s "$0" "$@"
|#

(import (beaker wiki))
(import (only (chicken port) make-concatenated-port))

(define template
  (make-concatenated-port
   (open-input-string "#<#EOF\n")
   (open-input-file "beaker.wiki.in")
   (open-input-string "EOF\n")))

(with-output-to-file "beaker.wiki"
 (lambda ()
   (print (eval (read template)))))