From 3538ab402025cfae2efb1238ee1ac55543cc0a3b Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Mon, 20 Apr 2015 11:41:02 -0700 Subject: [PATCH] add `metaroot` hook (closes #47) --- main-base.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/main-base.rkt b/main-base.rkt index 11c886d..7f17b22 100644 --- a/main-base.rkt +++ b/main-base.rkt @@ -65,8 +65,9 @@ (values result meta-acc)) (define-values (doc-without-metas meta-elements) (splitter x)) + (define meta-xexpr (apply metaroot meta-elements)) (define meta-element->assoc (λ(x) (let ([key (meta-key x)][value (meta-value x)]) (cons key value)))) - (define metas (make-hash (map meta-element->assoc meta-elements))) + (define metas (make-hash (map meta-element->assoc (cdr meta-xexpr)))) (values doc-without-metas metas)) (require racket/list)