667c682c2b
necessary modules are now "all.rkt"s; "shard.rkt"s turn to "resources.rkt". Also, "navbar.rkt" changes to "all.rkt", since it was doing the same thing (in addition to setting the navbar).
18 lines
692 B
Racket
18 lines
692 B
Racket
#lang meta/web
|
|
|
|
;; This stub is to generate fancy directory listings with the Racket style
|
|
|
|
(require (prefix-in dnld: (only-in "../download/resources.rkt" the-resources)))
|
|
|
|
(define-context "stubs/dirlist" #:resources dnld:the-resources)
|
|
|
|
(define header+footer
|
|
(delay (regexp-split #rx"{{{BODY}}}"
|
|
(xml->string @page[#:id 'browse-downloads
|
|
#:html-only #t
|
|
#:part-of 'download
|
|
"{{{BODY}}}"]))))
|
|
|
|
(define header @plain[#:file "header.html" (car (force header+footer))])
|
|
(define footer @plain[#:file "footer.html" (cadr (force header+footer))])
|