(use tcp)

(tcp-buffer-size 1024)

(define-values (vandusen-in vandusen-out)
  (tcp-connect "localhost" 22722))

(define (vandusen-say msg . args)
  (fprintf vandusen-out
           "#chicken [eggs] ~A~%~!"
           (apply sprintf msg args)))

(on-exit
 (lambda ()
   (close-output-port vandusen-out)
   (close-input-port  vandusen-in)))

(download-release-success-hook
 (lambda (egg release)
   (vandusen-say "~A version ~A has been released" egg release)))

(download-release-error-hook
 (lambda (egg release error)
   (vandusen-say "~A version ~A could not be downloaded: ~A" egg release error)))

(read-release-info-file-error-hook
 (lambda (egg uri error)
   (vandusen-say "error while downloading the release-info file for ~A: ~A" egg error)))