diff options
Diffstat (limited to 'models/nutrient-measurement.rkt')
| -rw-r--r-- | models/nutrient-measurement.rkt | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/models/nutrient-measurement.rkt b/models/nutrient-measurement.rkt index d3631de..e73a10e 100644 --- a/models/nutrient-measurement.rkt +++ b/models/nutrient-measurement.rkt @@ -31,7 +31,18 @@ "nutrient.rkt") ;; Instances of this struct are persisted in the nutrient_measurements table. -(struct nutrient-measurement (id measured-on nutrient-values) #:transparent) +(struct nutrient-measurement (id measured-on nutrient-values) + #:transparent + #:property prop:custom-write + (λ (v out _) + (fprintf out "Measurement #~a on ~a\n" + (nutrient-measurement-id v) + (nutrient-measurement-measured-on v)) + (for ([nv (nutrient-measurement-nutrient-values v)]) + (match-define (cons n v) nv) + (fprintf out "~a ~a\n" + (~a (nutrient-name n) #:min-width 14) + (~a v #:max-width 6 #:align 'right))))) ;; CREATE |