diff options
Diffstat (limited to 'models/nutrient-target.rkt')
| -rw-r--r-- | models/nutrient-target.rkt | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/models/nutrient-target.rkt b/models/nutrient-target.rkt index 8611a40..5a6d673 100644 --- a/models/nutrient-target.rkt +++ b/models/nutrient-target.rkt @@ -30,7 +30,18 @@ "nutrient.rkt") ;; Instances of this struct are persisted in the nutrient_targets table. -(struct nutrient-target (id effective-on nutrient-values) #:transparent) +(struct nutrient-target (id effective-on nutrient-values) + #:transparent + #:property prop:custom-write + (λ (v out _) + (fprintf out "Target #~a on ~a\n" + (nutrient-target-id v) + (nutrient-target-effective-on v)) + (for ([nv (nutrient-target-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 |