From 6c1e7f1eadefe6739f7a5ced3ef495ae150f90b0 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Wed, 10 Sep 2014 13:12:08 -0700
Subject: [PATCH] add `decode-elements`

---
 decode.rkt | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)

diff --git a/decode.rkt b/decode.rkt
index 822101b..0eaf826 100644
--- a/decode.rkt
+++ b/decode.rkt
@@ -66,6 +66,43 @@
       [else (error "decode: can't decode" x)])))
 
 
+(define+provide/contract (decode-elements elements
+                                 #:txexpr-tag-proc [txexpr-tag-proc (λ(x)x)]
+                                 #:txexpr-attrs-proc [txexpr-attrs-proc (λ(x)x)]
+                                 #:txexpr-elements-proc [txexpr-elements-proc (λ(x)x)]
+                                 #:block-txexpr-proc [block-txexpr-proc (λ(x)x)]
+                                 #:inline-txexpr-proc [inline-txexpr-proc (λ(x)x)]
+                                 #:string-proc [string-proc (λ(x)x)]
+                                 #:symbol-proc [symbol-proc (λ(x)x)]
+                                 #:valid-char-proc [valid-char-proc (λ(x)x)]
+                                 #:cdata-proc [cdata-proc (λ(x)x)]
+                                 #:exclude-tags [excluded-tags '()])
+  ((txexpr-elements?)  
+   (#:txexpr-tag-proc (txexpr-tag? . -> . txexpr-tag?)
+                      #:txexpr-attrs-proc (txexpr-attrs? . -> . txexpr-attrs?)
+                      #:txexpr-elements-proc (txexpr-elements? . -> . txexpr-elements?)
+                      #:block-txexpr-proc (block-txexpr? . -> . xexpr?)
+                      #:inline-txexpr-proc (txexpr? . -> . xexpr?)
+                      #:string-proc (string? . -> . xexpr?)
+                      #:symbol-proc (symbol? . -> . xexpr?)
+                      #:valid-char-proc (valid-char? . -> . xexpr?)
+                      #:cdata-proc (cdata? . -> . xexpr?)
+                      #:exclude-tags (listof symbol?)  ) . ->* . txexpr-elements?)
+  
+  (define temp-tag (gensym "temp-tag"))
+  (define decode-result (decode `(temp-tag ,@elements)
+                                #:txexpr-tag-proc txexpr-tag-proc
+                                 #:txexpr-attrs-proc txexpr-attrs-proc
+                                 #:txexpr-elements-proc txexpr-elements-proc
+                                 #:block-txexpr-proc block-txexpr-proc
+                                 #:inline-txexpr-proc inline-txexpr-proc
+                                 #:string-proc string-proc
+                                 #:symbol-proc symbol-proc
+                                 #:valid-char-proc valid-char-proc
+                                 #:cdata-proc cdata-proc
+                                 #:exclude-tags excluded-tags))
+  (get-elements decode-result))
+  
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;