20 lines
717 B
Racket
20 lines
717 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
|
|
(lazy (regexp-split #rx"{{{BODY}}}"
|
|
(xml->string @page[#:id 'browse-downloads
|
|
#:html-only #t
|
|
#:part-of 'download
|
|
"{{{BODY}}}"]))))
|
|
|
|
(define header
|
|
@plain[#:file "header.html" #:newline #f (car (force header+footer))])
|
|
(define footer
|
|
@plain[#:file "footer.html" #:newline #f (cadr (force header+footer))])
|