From 52ca4c3411fe037cd679e36d011151504de52902 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Wed, 15 Jan 2020 15:06:44 -0800 Subject: [PATCH] use capitalize not title --- quad/quad/scribblings/quad.scrbl | 2 +- quad/quadwriter/layout.rkt | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/quad/quad/scribblings/quad.scrbl b/quad/quad/scribblings/quad.scrbl index 9ee322a5..4fca3657 100644 --- a/quad/quad/scribblings/quad.scrbl +++ b/quad/quad/scribblings/quad.scrbl @@ -663,7 +663,7 @@ Vertical offset of font baseline (positive values move the baseline up, negative } @defthing[#:kind "attribute" font-case symbol?]{ -Case transformation of string. Possibilities are @racket["upper"], @racket["lower"], or @racket["title"]. +Case transformation of string. Possibilities are @racket["uppercase"], @racket["lowercase"], or @racket["capitalize"] (= first letter of each word is uppercase, the rest is lowercase). } @deftogether[(@defthing[#:kind "attribute" line-height symbol?] diff --git a/quad/quadwriter/layout.rkt b/quad/quadwriter/layout.rkt index 354ff18e..f9821305 100644 --- a/quad/quadwriter/layout.rkt +++ b/quad/quadwriter/layout.rkt @@ -152,7 +152,7 @@ (define cased-str ((match (quad-ref q :font-case) [(or "upper" "uppercase") string-upcase] [(or "lower" "lowercase" "down" "downcase") string-downcase] - [(or "title" "titlecase") string-titlecase] + [(or "capitalize" "capitalized") string-titlecase] [_ values]) (unsafe-car (quad-elems q)))) (struct-copy string-quad q:string