source: project/gazette/issue2mail.scm

Last change on this file was 22452, checked in by Christian Kellermann, 10 years ago

gazette 18: minor formatting fixes

File size: 887 bytes
Line 
1(use svnwiki-sxml)
2(require-library chicken-doc)
3(import chicken-doc-text)
4
5
6(define banner
7  "
8     _/_/_/  _/        _/            _/
9  _/        _/_/_/          _/_/_/  _/  _/      _/_/    _/_/_/
10 _/        _/    _/  _/  _/        _/_/      _/_/_/_/  _/    _/
11_/        _/    _/  _/  _/        _/  _/    _/        _/    _/
12 _/_/_/  _/    _/  _/    _/_/_/  _/    _/    _/_/_/  _/    _/")
13
14
15(define (format-title title)
16  (conc banner
17        #\newline #\newline
18        (string-pad-right (conc "--[ " title " ]") 51 #\-)
19        " G A Z E T T E"
20        #\newline
21        (string-pad "brought to you by the Chicken Team" 65)
22        #\newline
23        #\newline))
24
25
26(write-sxml-as-text (call-with-input-file (car (command-line-arguments))
27                      (lambda (file)
28                        (let ((vars (read file)))
29                          (list
30                           (format-title (alist-ref 'title vars))
31                           (svnwiki->sxml file)
32                           #\newline
33                           "[ --- End of this issue --- ]")))) 75)
Note: See TracBrowser for help on using the repository browser.