#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/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: "dest" should not be a top-level
   ;; directory that already exists.)
   '(["champlain:/www" "www" "download" "bugs" "lists" "drracket" "stubs"])))