Turn the distribution list into a parameter so it can be extended.

collects/meta/web/build.rkt

@@ -74,5 +74,5 @@ exec "$exe" "$0" "$@"
     (render-all)
     (when distribute?
       (printf "Distributing...\n")
-      (distribute distributions))))
+      (distribute (distributions)))))
 (printf "Done.\n")

collects/meta/web/common/distribute.rkt

@@ -1,6 +1,6 @@
 #lang racket/base
 
-(require racket/system racket/list racket/promise "../config.rkt")
+(require racket/system racket/list racket/promise)
 
 (define rsync-exe (delay (or (find-executable-path "rsync")
                              (error 'distribute "couldn't find `rsync'"))))

collects/meta/web/config.rkt

@@ -17,7 +17,8 @@
 
 (provide distributions)
 (define distributions
-  ;; Each is a "hostname:dest-path", and then a list of directories to
-  ;; put in that path.  (Warning: "dest" should not be a top-level
-  ;; directory that already exists.)
-  '(["champlain:/www" "www" "download" "lists" "stubs"]))
+  (make-parameter
+   ;; Each is a "hostname:dest-path", and then a list of directories to
+   ;; put in that path.  (Warning: "dest" should not be a top-level
+   ;; directory that already exists.)
+   '(["champlain:/www" "www" "download" "lists" "stubs"])))