From 34e4eca80d7590f672d5658cc3be4ef903b53bbc Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Sun, 26 May 2019 09:51:53 -0700
Subject: [PATCH] bullet adopts attrs

---
 quad/quadwriter/tags.rkt | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/quad/quadwriter/tags.rkt b/quad/quadwriter/tags.rkt
index 400fbc0e..f35fa5db 100644
--- a/quad/quadwriter/tags.rkt
+++ b/quad/quadwriter/tags.rkt
@@ -1,4 +1,4 @@
-#lang racket/base
+#lang debug racket/base
 (require quad/qexpr
          pollen/tag
          quadwriter/core
@@ -97,4 +97,10 @@
 
 (define-tag-function (ol attrs exprs) (list-base attrs exprs))
 (define-tag-function (ul attrs exprs) (list-base attrs exprs "•"))
-(define-tag-function (li attrs exprs) (qexpr attrs (cons bullet-quad exprs)))
\ No newline at end of file
+(define-tag-function (li attrs exprs)
+  (define new-bullet-quad (match exprs
+                            [(cons (txexpr _ attrs _) _)
+                             (match bullet-quad
+                               [(txexpr tag battrs elems) (txexpr tag (append attrs battrs) elems)])]
+                            [_ bullet-quad]))
+  (qexpr attrs (cons new-bullet-quad exprs)))
\ No newline at end of file