From c8099ef8710afed13b5b079bb3e7131f85c37556 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Wed, 8 Apr 2020 15:34:37 -0700 Subject: [PATCH] be more obvious --- quad/quadwriter/render.rkt | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/quad/quadwriter/render.rkt b/quad/quadwriter/render.rkt index 69203275..2e8f2283 100644 --- a/quad/quadwriter/render.rkt +++ b/quad/quadwriter/render.rkt @@ -178,13 +178,15 @@ #:txexpr-proc smart-quotes)]) (match qx [(list tag attrs elements ...) - ;; we insert a dummy element "◊" (irrelevant what it is) + ;; we insert a dummy element "." + ;; (could be anything, but we want to use something obvious + ;; so we don't trigger a fallback font) ;; to get a sample of the global attrs ;; which we will strip off after atomization ;; but keep the attrs around in case anyone needs to use them ;; for instance, quads added to the layout like footers ;; won't have another way of getting this - (list* tag attrs (cons "◊" elements))]))) + (list* tag attrs (cons "." elements))]))) ;; apply some default styling attributes. ;; These will only be used if the underlying q-expression hasn't specified its own values,