mbutterick
/
typesetting
2
1
Fork 0
Code Issues 13 Pull Requests Projects Releases Wiki Activity

clarity

Browse Source
main quad-break-with-k
Matthew Butterick 6 years ago
parent 24f0ca5ff1
commit 3e64c7dc96
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File

16
quad/quad/typewriter.rkt
Unescape Escape View File

@ -31,14 +31,14 @@
'font charter 'font charter
'size 'size
(delay (delay
(let ([fontsize (string->number (hash-ref (attrs q) 'fontsize "12"))] (define fontsize (string->number (hash-ref (attrs q) 'fontsize "12")))
[str (apply string (elems q))]) (define str (apply string (elems q)))
(send* (current-doc) (send* (current-doc)
[fontSize (string->number (hash-ref (attrs q) 'fontsize "12"))] [fontSize fontsize]
[font (path->string charter)]) [font (path->string charter)])
(list (list
(send (current-doc) widthOfString str) (send (current-doc) widthOfString str)
(send (current-doc) currentLineHeight)))) (send (current-doc) currentLineHeight)))
'printable? (case (car (elems q)) 'printable? (case (car (elems q))
[(#\u00AD) (λ (sig) (memq sig '(end)))] [(#\u00AD) (λ (sig) (memq sig '(end)))]
[(#\space) (λ (sig) (not (memq sig '(start end))))] [(#\space) (λ (sig) (not (memq sig '(start end))))]

Write Preview
Loading…
Cancel
Save