more liberal meta-splitting in main-base

main-base.rkt

@@ -57,18 +57,32 @@
                     
                     
                     ;; Split out the metas.   
-                    (require txexpr)   
+                    (define (split-metas-to-hash x)
-                    (define (split-metas-to-hash tx) ; helper function
+                      (define (meta-key x) (car (caadr x)))
-                      ;; return tx without metas, and meta hash
+                      (define (meta-value x) (cadr (caadr x)))
-                      (define is-meta-element? (λ(x) (and (txexpr? x) (equal? 'meta (car x)))))
+                      (define is-meta-element? (λ(x) (and (list? x) ; possible txexpr
-                      (define-values (doc-without-metas meta-elements) 
+                                                          (= (length x) 2) ; = tag + attribute
-                        (splitf-txexpr tx is-meta-element?))
+                                                          (equal? 'meta (car x)) ; tag is 'meta
-                      (define meta-element->assoc (λ(x) (let ([key (car (caadr x))][value (cadr (caadr x))]) (cons key value))))
+                                                          (symbol? (meta-key x)) ; attribute key is symbol
+                                                          (string? (meta-value x))))) ; attribute value is string
+                      (define (splitter x)
+                        (define meta-acc null)
+                        (define (split-metas x)
+                          (cond
+                            [(list? x) (define-values (new-metas rest) (values (filter is-meta-element? x) (filter (compose1 not is-meta-element?) x)))
+                                       (set! meta-acc `(,@new-metas ,@meta-acc))
+                                       (map split-metas rest)]
+                            [else x]))
+                        (define result (split-metas x))
+                        (values result meta-acc))
+                      
+                      (define-values (doc-without-metas meta-elements) (splitter x))
+                      (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)))
                       (values doc-without-metas metas)) 
                     
                     
-                    (define doc-txexpr 
+                    (define doc-with-metas
                       (let ([doc-raw (if (equal? parser-mode world:mode-markdown)
                                          (apply (compose1 (dynamic-require 'markdown 'parse-markdown) string-append) doc-raw)
                                          doc-raw)])
@@ -77,8 +91,7 @@
                                   ;; cdr strips initial linebreak, but make sure doc-raw isn't blank
                                   (if (and (list? doc-raw) (> 0 (length doc-raw))) (cdr doc-raw) doc-raw))))) 
                     
-                    (define-values (doc-without-metas metas) (split-metas-to-hash doc-txexpr))
+                    (define-values (doc-without-metas metas) (split-metas-to-hash doc-with-metas))
-                    
                     
                     ;; set up the 'doc export
                     (require pollen/decode)
@@ -89,7 +102,7 @@
                                          [(or (equal? parser-mode world:mode-markup)
                                               (equal? parser-mode world:mode-markdown)) root]
                                          ;; for preprocessor output, just make a string.
-                                         [else (λ xs (apply string-append (map to-string xs)))])
+                                         [else (λ xs (apply string-append (map to-string xs)))]) ; default mode is preprocish
                                        (cdr doc-without-metas))) ;; cdr strips placeholder-root tag