support expressions in meta values

pollen/private/main-base.rkt

@@ -36,7 +36,7 @@
   (syntax-case stx ()
     [(_ PARSER-MODE . EXPRS)
      (with-syntax ([EXPRS (replace-context #'here #'EXPRS)]
-                   [META-HASH (split-metas #'EXPRS (setup:define-meta-name))]
+                   [((META-KEY . META-VAL) ...) (split-metas #'EXPRS (setup:define-meta-name))]
                    [METAS-ID (setup:meta-export)]
                    [META-MOD-ID (setup:meta-export)]
                    [ROOT-ID (setup:main-root-node)]
@@ -51,7 +51,9 @@
               (proc doc-elements))) ;  positional arg for doclang-raw: post-processor
           (module META-MOD-ID racket/base
             (provide METAS-ID)
-            (define METAS-ID META-HASH))
+            (define METAS-ID (for/hasheq ([k (in-list (list 'META-KEY ...))]
+                                          [v (in-list (list META-VAL ...))])
+                               (values k v))))
           (require pollen/top pollen/core pollen/setup (submod "." META-MOD-ID))
           (provide (all-defined-out) METAS-ID DOC-ID)
           (define prev-metas (current-metas))

pollen/private/split-metas.rkt

@@ -4,22 +4,23 @@
 (provide (all-defined-out))
 
 (define (split-metas x [meta-key 'define-meta])
-  (apply hasheq
+  (let loop ([x ((if (syntax? x) syntax->datum values) x)])
-         (let loop ([x ((if (syntax? x) syntax->datum values) x)])
+    (match x
-           (match x
+      [(list (== meta-key eq?) key)
-             [(list (== meta-key eq?) key val)
+       (raise-argument-error meta-key "meta value missing" key)]
-              (unless (symbol? key)
+      [(list (== meta-key eq?) key val)
-                (raise-argument-error meta-key "valid meta key" key))
+       (unless (symbol? key)
-              (list key val)]
+         (raise-argument-error meta-key "valid meta key" key))
-             [(? list? xs) (append-map loop xs)]
+       (list (cons key val))]
-             [_ null]))))
+      [(? list? xs) (append-map loop xs)]
+      [_ null])))
 
 (module+ test
   (require rackunit)
-  (check-equal? (split-metas 'root) (hasheq))
+  (check-equal? (split-metas 'root) null)
-  (check-equal? (split-metas '(root)) (hasheq))
+  (check-equal? (split-metas '(root)) null)
   (check-exn exn:fail:contract? (λ () (split-metas '(root (define-meta 42 "bar")))))
-  (check-equal? (split-metas '(root (div #:kw #f (define-meta foo "bar") "hi") "zim" (define-meta foo "boing") "zam")) '#hasheq((foo . "boing")))
+  (check-equal? (split-metas '(root (div #:kw #f (define-meta foo "bar") "hi") "zim" (define-meta foo "boing") "zam")) '((foo . "bar") (foo . "boing")))
-  (check-equal? (split-metas '(root (div #:kw #f (define-meta foo 'bar) "hi") "zim" (define-meta foo 'boing) "zam")) '#hasheq((foo . 'boing)))
+  (check-equal? (split-metas '(root (div #:kw #f (define-meta foo 'bar) "hi") "zim" (define-meta foo 'boing) "zam")) '((foo . 'bar) (foo . 'boing)))
-  (check-equal? (split-metas #'(root (define-meta dog "Roxy") (define-meta dog "Lex"))) '#hasheq((dog . "Lex")))
+  (check-equal? (split-metas #'(root (define-meta dog "Roxy") (define-meta dog "Lex"))) '((dog . "Roxy") (dog . "Lex")))
-  (check-equal? (split-metas #'(root (define-meta dog "Roxy") (div (define-meta dog "Lex")))) '#hasheq((dog . "Lex"))))
+  (check-equal? (split-metas #'(root (define-meta dog "Roxy") (div (define-meta dog "Lex")))) '((dog . "Roxy") (dog . "Lex"))))