;;;; -*- Hen -*-

(compile -O2 -S sigma.scm)

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

  ; Assoc list with properties for the program:
  '((version 2.4)))

;; From setup-header.scm by Kon Lovett

(define (installation-chicken-home)
  (if (not (installation-prefix)) (chicken-home)
    (make-pathname `(,(installation-prefix) "share") "chicken") ) )

;;; Constants & Procedures

(define SHARED-DIR (installation-chicken-home))
(define SIGMA-DIR (make-pathname SHARED-DIR "sigma"))

;; File Copy Operations

(define (copy-file-to-sigma-dir fn)
  (let ([fn (->string fn)])
    (copy-file fn (make-pathname SIGMA-DIR fn)) ) )

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