You cannot select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
This repo is archived. You can view files and clone it, but cannot push or open issues/pull-requests.
pollen-tfl/utility.ptree

21 lines
532 B
Plaintext

#lang pollen
◊(require sugar/coerce sugar/unstable/string sugar/file)
error.html
fonts/equity-a.css
fonts/equity-b.css
fonts/non-equity.css
fonts/advocate-extras.css
firefox.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))))