mbutterick
/
pollen-tfl
Archived
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

add two fields

Browse Source
master
Matthew Butterick 7 years ago
parent 6fafef09b0
commit 612abc888c
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File

6
pricing-table.rkt
Unescape Escape View File

@ -73,7 +73,7 @@
(require rackunit) (require rackunit)
(check-equal? (check-equal?
(textify (textify
'(span (a ((href "equity.html")) "Equity") " + " (a ((href "concourse.html")) "Concourse Standard") " + " (a ((href "triplicate.html")) "Triplicate"))) '(span (a ((href "equity.html")) "Equity") " + " (a ((href "concourse.html")) "Concourse Standard") " + " (a ((href "triplicate.html")) "Triplicate")))
"Equity + Concourse Standard + Triplicate")) "Equity + Concourse Standard + Triplicate"))
(define (buy-link sku people) (define (buy-link sku people)
@ -84,7 +84,9 @@
(item ,item) (item ,item)
(label ,(format "~a (~a-person license)" item people)) (label ,(format "~a (~a-person license)" item people))
(quantity ,(number->string people)) (quantity ,(number->string people))
(amount ,(number->string price))) (amount ,(number->string price))
(success "/order-success.html")
(failure "/order-failure.html"))
,(format "$~a" price))) ,(format "$~a" price)))
(define (make-buy-grid #:people people-list #:skus sku-list) (define (make-buy-grid #:people people-list #:skus sku-list)