add helpful name to automatic tag functions

pull/102/head
Matthew Butterick 9 years ago
parent cad3e25f96
commit 3eb972a23a

@ -1,5 +1,5 @@
#lang racket/base #lang racket/base
(require txexpr sugar/define) (require txexpr sugar/define racket/string)
(define/contract+provide (make-default-tag-function . ids) (define/contract+provide (make-default-tag-function . ids)
(() #:rest txexpr-tags? . ->* . procedure?) (() #:rest txexpr-tags? . ->* . procedure?)
@ -26,7 +26,7 @@
`(,id ,@(if (equal? attrs null) null (list (reverse attrs))) ,@body))) `(,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) "+")))))

Loading…
Cancel
Save