$ more hyde.scm
(use hyde environments defstruct)

(ajpb-rules (cons
                          `(toc . ,(lambda (tag rest) `(toc ,rest
                                                  ,(let* ((current-page ((environment-ref (page-eval-env) 'current-page)))
                                                                  (vars (record-instance-slot current-page (- (record-instance-len
gth current-page) 1)))
                                                                  (title (cdr (assq 'title vars))))
                                                         `(h1 ,title)))))
                          (ajpb-rules)))