From 1b23eec4517a8628a9564c9ed25923e6c9ea5bd8 Mon Sep 17 00:00:00 2001
From: Marius Peter <dev@marius-peter.com>
Date: Sun, 2 Nov 2025 19:40:29 +0100
Subject: Add custom display functions for certain model entities.

---
 models/nutrient.rkt | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'models/nutrient.rkt')

diff --git a/models/nutrient.rkt b/models/nutrient.rkt
index 6df0989..10e274e 100644
--- a/models/nutrient.rkt
+++ b/models/nutrient.rkt
@@ -25,7 +25,13 @@
          sql
          "../db/conn.rkt")
 
-(struct nutrient (id name formula) #:transparent)
+(struct nutrient (id name formula)
+  #:transparent
+  #:property prop:custom-write
+  (λ (v out _)
+    (fprintf out "#<~a ~a>"
+             (nutrient-id v)
+             (nutrient-name v))))
 
 
 ;; CREATE
-- 
cgit v1.2.3