10 lines
419 B
Scheme
10 lines
419 B
Scheme
|
(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")))
|
||
|
)
|