#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))])