source: project/gazette/issue2mail.scm @ 21611

Last change on this file since 21611 was 21611, checked in by sjamaan, 10 years ago

gazette: quickly fix user page links before anyone notices

File size: 890 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 --- ]")))) 72)
Note: See TracBrowser for help on using the repository browser.