Provide resources from download (so do this from all uses of

`define+provide-context'); dirlist uses that instead of www.

Also dropped redundant provides of `page'.
This commit is contained in:
Eli Barzilay 2010-06-16 02:23:58 -04:00
parent f0c28ad0e8
commit 8694d7b8ae
4 changed files with 5 additions and 11 deletions

View File

@ -185,7 +185,7 @@
(make-style dir)))]
[provides (if provide?
#'(provide page-id plain-id copyfile-id
symlink-id)
symlink-id resources-id)
#'(begin))])
#'(begin
(define resources-id resources)

View File

@ -1,5 +1,5 @@
#lang at-exp s-exp "../common.rkt"
(provide page (all-from-out "../common.rkt"))
(provide (all-from-out "../common.rkt"))
(define+provide-context "download")

View File

@ -2,9 +2,9 @@
;; This stub is to generate fancy directory listings with the Racket style
(require (prefix-in www: (only-in "../www/shared.rkt" the-resources)))
(require (prefix-in dnld: (only-in "../download/shared.rkt" the-resources)))
(define-context "stubs/dirlist" #:resources www:the-resources)
(define-context "stubs/dirlist" #:resources dnld:the-resources)
(require racket/port)
(define (xml->string content)
@ -12,9 +12,6 @@
(with-output-to-string (lambda () (output-xml content)))
"\\ "))
;; (define (racket-navbar) (xml->string (www:the-resources 'navbar #f)))
;; (define (racket-favicon) (xml->string (www:the-resources 'favicon-headers)))
(define header+footer
(delay (regexp-split #rx"{{{BODY}}}"
(xml->string @page[#:id 'browse-downloads

View File

@ -1,8 +1,5 @@
#lang at-exp s-exp "../common.rkt"
(provide page (all-from-out "../common.rkt"))
(provide (all-from-out "../common.rkt"))
(define+provide-context "www")
;; needed for sites that use the icon from here (eg, blog.racket-lang.org)
(provide the-resources)