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:
parent
f0c28ad0e8
commit
8694d7b8ae
|
@ -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)
|
||||
|
|
|
@ -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")
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user