sunet/pkg-def.scm

(define-package "sunet" (2 1) ()
  (install-directory-contents "scheme" 'scheme)
  (install-directory "web-server" 'misc-shared)
  (install-directory-contents "doc" 'doc)

  (let ((doc-dir (get-directory 'doc #t))
        (misc-shared-dir (get-directory 'misc-shared #t)))
    (create-symlink (string-append doc-dir "/html")
                    (string-append misc-shared-dir "/web-server/root/htdocs/sunet-manual")))

  (let ((scheme-dir (get-directory 'scheme #t)))
    (write-to-load-script
     `((user)
       (config)
       (load ,(string-append scheme-dir "/packages.scm"))
       (user))))
)