◊; Because I deploy this site in a sub-directory (rather than a domain root) I ◊; have to use relative paths instead of absolute ones. Defining path-prefix ◊; is just my way of coping with this. ◊(define path-prefix (if (string-contains (symbol->string here) "/") "../" "")) ◊(define source-file (select-from-metas 'here-path metas))

◊when/block[(select-from-metas 'chapter-num metas)]{ ◊(hash-ref metas 'chapter-num). }◊(hash-ref metas 'title)

◊(map ->html (select-from-doc 'body here))