main
Matthew Butterick 6 years ago
parent e3081596e7
commit 1e9770b6e5

@ -45,7 +45,7 @@
[(#\space) (λ (sig) (not (memq sig '(start end))))]
[else #t])
'draw (λ (q doc)
#;(draw-debug q doc)
(draw-debug q doc)
(send doc fontSize (string->number (hash-ref (attrs q) 'fontsize "12")))
(let ([str (car (elems q))])
(cond

Loading…
Cancel
Save