suzanne.soy/distro-build
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

make site: use relative paths in the pkg catalog for a site

Browse Source 
original commit: dc97b85d4464f64e336db1e0379ac2f868bb1c8a
This commit is contained in:
Matthew Flatt 2014-06-02 15:30:32 +01:00
parent 4c0267fe59
commit d82d917979
1 changed files with 6 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
pkgs/distro-build-pkgs/distro-build-server/assemble-site.rkt
View File

@ -18,6 +18,7 @@
(define installers-dir (build-path "installers"))
(define pkgs-dir (build-path "pkgs"))
(define catalog-dir (build-path "catalog"))
(define from-catalog-dir-to-pkgs-dir (build-path 'up))
(define doc-dir (build-path "doc"))
(define pdf-doc-dir (build-path "pdf-doc"))
(define log-dir (build-path "log"))
@ -70,17 +71,14 @@
(let ([c-dir (build-path built-dir catalog-dir "pkg")]
[d-dir (build-path dest-dir catalog-dir "pkg")])
(make-directory* d-dir)
(define base-url (string->url (hash-ref config '#:dist-base-url)))
(for ([f (in-list (directory-list c-dir))])
(define ht (call-with-input-file* (build-path c-dir f) read))
(define new-ht
(hash-set ht 'source (url->string
(combine-url/relative
base-url
(path->string
(build-path
pkgs-dir
(path-add-suffix f #".zip")))))))
(hash-set ht 'source (relative-path->relative-url-string
(build-path
from-catalog-dir-to-pkgs-dir
pkgs-dir
(path-add-suffix f #".zip")))))
(call-with-output-file*
(build-path d-dir f)
(lambda (o)