#lang pollen ◊(require sugar/coerce sugar/unstable/string sugar/file) error.html web-code.html order-success.html order-failure.html fonts/source-serif-a.css fonts/source-serif-b.css fonts/non-equity.css firefox.css ie.css bc.html ◊fonts.html{ equity.html concourse.html triplicate.html advocate.html} ◊(define fontrec-dir "fontrec") ◊(map (compose1 ->symbol (λ(str) (string-append fontrec-dir "/" str)) ->string remove-ext) (filter (λ(str) (ends-with? str "html.pm")) (map ->string (directory-list fontrec-dir))))