From 3ce0f2061b08272c1583fd5a88d9a61420bd0d84 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sat, 21 Mar 2015 13:13:13 -0700 Subject: [PATCH] add float --- quad/samples-typed.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/quad/samples-typed.rkt b/quad/samples-typed.rkt index 9cb683f2..06ee7817 100644 --- a/quad/samples-typed.rkt +++ b/quad/samples-typed.rkt @@ -24,7 +24,7 @@ (string-join (take lines (min line-limit (length lines))) "\n")) (file->string jude-text))) (define jude-blocks ((inst map String String) (λ(s) (regexp-replace* #rx"\n" s " ")) (string-split sample-string "\n\n"))) - (apply block '(font "Equity Text B" measure 360.0 leading 14.0 column-count 1 column-gutter 10.0 size 11.5 x-align justify x-align-last-line left) (add-between (map (λ([jb : String]) (block #f (box '(width 10)) (optical-kern) jb)) (filter (λ([jb : String]) (< 0 (string-length jb))) jude-blocks)) (block-break)))) + (apply block '(font "Equity Text B" measure 360.0 leading 14.0 column-count 1 column-gutter 10.0 size 11.5 x-align justify x-align-last-line left) (add-between (map (λ([jb : String]) (block #f (box '(width 10.0)) (optical-kern) jb)) (filter (λ([jb : String]) (< 0 (string-length jb))) jude-blocks)) (block-break)))) (define (jude) (make-sample "texts/jude.txt")) (define (jude0) (make-sample "texts/jude0.txt"))