;;;; -*- Scheme -*-

(compile -O2 -d0 -s mistie.scm -j mistie)
(compile -O2 -d0 -s mistie.import.scm)

(run (csi -s doc.scm > mistie.html))

(install-extension

  ; Name of your extension:
  'mistie

  ; Files to install for your extension:
  `("mistie.so" "mistie.import.so")

  ; Assoc list with properties for your extension:
  `((version 1.4)
    ))


;; From setup-header.scm by Kon Lovett

;;; Constants & Procedures

(define SHARED-DIR (chicken-home))
(define MISTIE-DIR (make-pathname SHARED-DIR "mistie"))


;; File Copy Operations

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

(define (copy-file-to-mistie-dir fn)
  (*file-copy fn MISTIE-DIR) )

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

(for-each (lambda (x) (copy-file-to-mistie-dir x))
	  (list "basic.mistie"
	        "footnote.mistie"
		"multipage.mistie"
		"plain.mistie"
		"scmhilit.mistie"
		"timestamp.mistie"
		"xref.mistie"))