(use svnwiki-sxml)
(require-library chicken-doc)
(import chicken-doc-text)


(define banner
  "
     _/_/_/  _/        _/            _/
  _/        _/_/_/          _/_/_/  _/  _/      _/_/    _/_/_/
 _/        _/    _/  _/  _/        _/_/      _/_/_/_/  _/    _/
_/        _/    _/  _/  _/        _/  _/    _/        _/    _/
 _/_/_/  _/    _/  _/    _/_/_/  _/    _/    _/_/_/  _/    _/")


(define (format-title title)
  (conc banner
	#\newline #\newline
	(string-pad-right (conc "--[ " title " ]") 51 #\-)
	" G A Z E T T E"
	#\newline
	(string-pad "brought to you by the Chicken Team" 65)
	#\newline
	#\newline))


(write-sxml-as-text (call-with-input-file (car (command-line-arguments))
		      (lambda (file)
			(let ((vars (read file)))
			  (list
			   (format-title (alist-ref 'title vars))
			   (svnwiki->sxml file)
			   #\newline
			   "[ --- End of this issue --- ]")))) 75)