simplify legend

pricing-table.rkt

@@ -1,6 +1,9 @@
 #lang racket/base
-(require racket/dict "sku.rkt")
+(require racket/dict
-(provide (all-defined-out) (all-from-out "sku.rkt"))
+         racket/match
+         "sku.rkt")
+(provide (all-defined-out)
+         (all-from-out "sku.rkt"))
 
 
 (define (round-cents float)
@@ -54,15 +57,14 @@
     (table-row row 'th))
   
   `(table ((class "buy-table"))
-    ,(table-header (car grid))
+          ,(table-header (car grid))
-    ,@(map table-row (cdr grid))))
+          ,@(map table-row (cdr grid))))
 
 (define (people->string p)
-  (define p-string (format "~a"
+  (string-append (match p
-                           (if (<= p 10)
+                   [2 "1–2"]
-                               (list-ref '(zero one two three four five six seven eight nine ten) p)
+                   [5 "3–5"]
-                               p)))
+                   [10 "6–10"]) " people"))
-  (string-append "up to " p-string " " (if (= p 1) "person" "people")))
 
 (require txexpr racket/string)
 (define (textify x)

styles.css.pp

@@ -490,6 +490,7 @@ text-align: center;
 
 th {
 font-family: "concourse-c4";
+font-feature-settings: 'c2sc' 1;
 font-weight: normal;
 text-transform: lowercase;
 font-size: 85%;