◊(define here-title (or (select-from-metas 'title here) (symbol->string here)))
◊|here-title| | Typography for Lawyers
◊(local-require pollen/pagetree txexpr)
◊(define fontrec-pagetree "index.ptree")
◊(current-pagetree (load-pagetree fontrec-pagetree))
◊(define here-path (hash-ref metas 'here-path))
◊(define here-fontrec (path->pagenode here-path fontrec-pagetree))
◊(define child-samples (children here-fontrec))
◊(define page-title (format "~a~a" (select-from-metas 'title metas) (if child-samples " alternatives" "")))
◊(->html
(make-txexpr (get-tag doc)
(cons (class "font-sample") (get-attrs doc))
(cons (h3 page-title) (get-elements doc))))
◊(->html (gap 1))
◊when/block[child-samples]{
◊(->html `(ul ((class "font-alternatives")) ,@(map (λ(child) (define title (or (select-from-metas 'title (->complete-path child)) child)) `(li ,(xref (->string title)))) child-samples)))}
◊; close "content" div