# ◊|here-title| | Typography for Lawyers

◊(define here-title (or (select-from-metas 'title here) (symbol->string here))) ◊(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