ee69dc58bc
Useful to avoid deleting stuff from directories that might have non-distributed materials.
30 lines
1.4 KiB
Racket
30 lines
1.4 KiB
Racket
#lang racket/base
|
|
|
|
(provide sites)
|
|
(define sites
|
|
'(("www" "http://racket-lang.org/")
|
|
("download" "http://download.racket-lang.org/")
|
|
("bugs" "http://bugs.racket-lang.org/")
|
|
("lists" "http://lists.racket-lang.org/")
|
|
("drracket" "http://drracket.org/")
|
|
;; stubs usually use absolute paths for resources, since they're
|
|
;; templates that often get used in sub-dir pages too
|
|
("stubs/planet" "http://planet.racket-lang.org/" abs)
|
|
("stubs/pre" "http://pre.racket-lang.org/" abs)
|
|
("stubs/git" "http://git.racket-lang.org/" abs)
|
|
("stubs/blog" "http://blog.racket-lang.org/" abs)
|
|
("stubs/mailman" "http://lists.racket-lang.org/" abs)
|
|
("stubs/dirlist" "http://download.racket-lang.org/" abs)
|
|
("stubs/docs" "http://docs.racket-lang.org/" abs)
|
|
("stubs/wiki" "http://wiki.racket-lang.org/" abs)))
|
|
|
|
(provide distributions)
|
|
(define distributions
|
|
(make-parameter
|
|
;; Each is a "hostname:dest-path", and then a list of directories to put in
|
|
;; that path. Warning: distributed directories are replicated from the
|
|
;; source, including removing material that is not distributed. A directory
|
|
;; can also have "*" parts which will be expanded recursively -- useful to
|
|
;; avoid deletions in case a target directory has additional materials.
|
|
'(["champlain:/www" "www" "download" "bugs" "lists" "drracket" "stubs"])))
|