#lang scheme
(require scheme/date)

(provide (all-defined-out))

(define log-filename "")

(define (open-log filename)
  (printf "opened log: ~a~n" filename)
  (set! log-filename filename)
  (let ((f (open-output-file log-filename #:exists 'append)))
    (display 
     (string-append
      "<b>Started server at: <small>" 
      (date->string (seconds->date (current-seconds)) #t) 
      "</b></small>") f)(newline f)
    (close-output-port f)))

(define (log . args)
  (_log (foldl
         (lambda (txt r)
           (cond 
            ((string? txt) (string-append r txt))
            ((number? txt) (string-append r (number->string txt)))))
         ""
         args)))

(define (_log txt)
  (printf "~a~n" txt)
  (let ((f (open-output-file log-filename #:exists 'append)))
    (display (string-append              
              "<p>"
              "<b><small>" (date->string 
                     (seconds->date (current-seconds)) #t)  "</b></small> "
              txt "</p>") f) (newline f)
    (close-output-port f)))