From 3eb972a23a2e219e33f4175d4ec6963df06434fa Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Fri, 28 Aug 2015 16:05:27 -0700
Subject: [PATCH] add helpful name to automatic tag functions

---
 tag.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tag.rkt b/tag.rkt
index 1a8abda..dcf6db1 100644
--- a/tag.rkt
+++ b/tag.rkt
@@ -1,5 +1,5 @@
 #lang racket/base
-(require txexpr sugar/define) 
+(require txexpr sugar/define racket/string) 
 
 (define/contract+provide (make-default-tag-function . ids)
   (() #:rest txexpr-tags? . ->* . procedure?)
@@ -26,7 +26,7 @@
       
       `(,id ,@(if (equal? attrs null) null (list (reverse attrs))) ,@body)))
   
-  (apply compose1 (map make-one-tag ids)))
+  (procedure-rename (apply compose1 (map make-one-tag ids)) (string->symbol (format "pollen-tag:~a" (string-join (map symbol->string ids) "+")))))