;;;; -*- Hen -*-

(compile -O2 sigma.scm)

(run (csi -qbs sigma-eggdoc.scm > sigma.html))

(install-program 
 'sigma 
 
 `("sigma" )

  ; Assoc list with properties for the program:
  '((version 1.17)
    (documentation "sigma.html")))

;; From setup-header.scm by Kon Lovett

;;; Constants & Procedures

(define SHARED-DIR (chicken-home))

(define SIGMA-DIR (make-pathname SHARED-DIR "sigma"))


;; File Copy Operations

(define (*file-copy fn dn)
  (let ([fn (->string fn)])
    (copy-file fn (make-pathname dn fn)) ) )

(define (copy-to-shared fn)
  (*file-copy (->string fn) (chicken-home)) )

(define (copy-file-to-sigma-dir fn)
  (*file-copy (->string fn) SIGMA-DIR) )

(if (not (file-exists? SIGMA-DIR))
    (create-directory SIGMA-DIR))

(copy-file-to-sigma-dir "sigma.html" )
(copy-file-to-sigma-dir "sigma.css" )
(copy-file-to-sigma-dir "index-template.scm")
(copy-file-to-sigma-dir "slide-template.scm")